//發信-----------------------------------------------------------
    if qry_ics_resumeu.fieldbyname('kemail').AsString<>'' then
    begin
    //exit;
    nmsmtp1.Host := '10.70.65.1';  //郵件服務器地址
    nmsmtp1.Port := 25 ;           //PORT
    nmsmtp1.PostMessage.FromName :='儀校系統訊息';
    nmsmtp1.PostMessage.FromAddress :='[email protected]';  //轉發MAIL郵箱
    nmsmtp1.Connect ;
    nmsmtp1.PostMessage.Subject :='儀校系統--'+qry_ics_resumeu.fieldbyname('ano').AsString+'校驗到期通知';
    nmsmtp1.postmessage.ToAddress.ASSIGN(MEMO1.LINES);
    //nmsmtp1.postmessage.ToAddress.Add('[email protected]');
    nmsmtp1.postmessage.Body.Clear ;
    nmsmtp1.postmessage.Body.add(qry_ics_resumeu.fieldbyname('ano').AsString+':將於'+
                                 qry_ics_resumeu.fieldbyname('fday').AsString+
                                 '到期,請於到期日之前送至儀校室校驗,謝謝!!'+chr(13)+chr(13)+
                                 '儀器履歷編號:'+qry_ics_resumeu.fieldbyname('part').AsString+'-'+
                                 qry_ics_resumeu.fieldbyname('kind').AsString+'-'+
                                 qry_ics_resumeu.fieldbyname('pno').AsString+
                                 '    儀器序號:'+qry_ics_resumeu.fieldbyname('gno').AsString );
    NMSMTP1.SENDMAIL;
    NMSMTP1.DISCONNECT;
    end;
  //---------------------------------------------------------------- 就是不知道附件怎麼發!盼高人指教!