代码如下:
with IdSMTP do
begin
Host := edtHost.Text; //SMTP狝叭竟
Port := strtoint(edtpost.text); //SMTP狝叭竟狠
UserName := edtUser.Text; //ノめ姐腹
Password := edtPwd.Text; // ノめ盞絏
if CKSever.Checked then AuthenticationType:=atLogin else AuthenticationType:=atNone ; try
Connect(); //秸ノ Connect硈钡狝叭
except
Memo.Lines.Add(DateTimeToStr(Now) + '<Connection Server failure!>');
Memo2.Lines.Clear ;
Disconnect();
abort ;
end; try
Send(IdMessage);
Memo1.Lines.Add(DateTimeToStr(Now) + '<Email send success!>');
except
Memo.Lines.Add(DateTimeToStr(Now) + '<Email send failure!>');
Memo2.Lines.Clear ;
Disconnect();
abort ;
end;
Disconnect();
end;
with IdSMTP do
begin
Host := edtHost.Text; //SMTP狝叭竟
Port := strtoint(edtpost.text); //SMTP狝叭竟狠
UserName := edtUser.Text; //ノめ姐腹
Password := edtPwd.Text; // ノめ盞絏
if CKSever.Checked then AuthenticationType:=atLogin else AuthenticationType:=atNone ; try
Connect(); //秸ノ Connect硈钡狝叭
except
Memo.Lines.Add(DateTimeToStr(Now) + '<Connection Server failure!>');
Memo2.Lines.Clear ;
Disconnect();
abort ;
end; try
Send(IdMessage);
Memo1.Lines.Add(DateTimeToStr(Now) + '<Email send success!>');
except
Memo.Lines.Add(DateTimeToStr(Now) + '<Email send failure!>');
Memo2.Lines.Clear ;
Disconnect();
abort ;
end;
Disconnect();
end;
某一环节出了毛病会影响你的成功与结论。
如邮件DNS地址的解析能否成功。