//發信-----------------------------------------------------------
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;
//---------------------------------------------------------------- 就是不知道附件怎麼發!盼高人指教!
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;
//---------------------------------------------------------------- 就是不知道附件怎麼發!盼高人指教!
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货