使用D7 + Indy 10最新版本。
我的代码使用TIdSMTP发送电子邮件。但是在某些终端用户处,我不断收到“连接已优雅地关闭”的消息,而电子邮件从未发送成功。
代码如下:
try
~~~~
~~~~
_idSMTP := TIdSmtp.Create;
with _idSMTP do
begin
Host := 'myhost';
Connect;
try
Send(_EmailMsg);
Result := True;
except
on E: Exception do
begin
MsgDlgErr(Self.Handle, E.Message)
end
end;
end;
finally
_idSMTP.Disconnect;
_idSMTP.Free;
end;
有什么建议吗?