代码如下: with NMSMTP1 do begin if Connected then Disconnect; Host :="MAIL.DNET.COM.CN"; Port :=25; UserID :="FISH"; ReportLevel :=1; TimeOut :=10000; PostMessage.FromAddress:="[email protected]"; try Connect ; ///连接 except exit; end; if Connected then begin PostMessage.ToAddress :=MailToAddress; for i:=0 to MailToBody.count-1 do PostMessage.Body.add(MailToBody[i]); PostMessage.Subject:=MailToSubject; try SendMail; except exit; end; end;
with NMSMTP1 do
begin
if Connected then Disconnect;
Host :="MAIL.DNET.COM.CN";
Port :=25;
UserID :="FISH";
ReportLevel :=1;
TimeOut :=10000;
PostMessage.FromAddress:="[email protected]";
try
Connect ; ///连接
except
exit;
end;
if Connected then
begin
PostMessage.ToAddress :=MailToAddress;
for i:=0 to MailToBody.count-1 do
PostMessage.Body.add(MailToBody[i]);
PostMessage.Subject:=MailToSubject;
try
SendMail;
except
exit;
end;
end;