使用 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;
有什么建议吗?