0

我有一个 Delphi 应用程序，它使用 TidSMTP 发送电子邮件，应该是这样。在我们的本地邮件服务器上进行测试时，它工作正常，但是一旦我将其设置为与外部邮件服务器一起使用，我就会收到套接字错误 10054 - 当它尝试执行 l_idSMTP.connect 代码行时由 Peer 重置连接

我已经设置了我希望用来在同一台机器上的 Outlook 中发送电子邮件的帐户，并且它能够成功发送电子邮件，所以我不确定为什么同一台机器上的 Delphi 应用程序不是？

下面是我的代码

    try
      l_pConfigurator := TConfigurator.Create;
      l_idSMTP.Username := l_pConfigurator.SMTPUser;
      l_idSMTP.Password := l_pConfigurator.SMTPPass;
      l_idSMTP.Host     := l_pConfigurator.SMTPHost;
      l_idSMTP.Port     := strtoint(l_pConfigurator.SMTPPort);
      if l_pConfigurator.SMTPAuth = 'LOGIN' then
      begin
        l_idSMTP.AuthenticationType := atLogin;
      end;
    finally
      FreeAndNil(l_pConfigurator);
    end;

    l_idSMTP.Connect(30000);

    if l_idSMTP.Connected then 
      l_idSMTP.Send(l_idMsg);

任何帮助将不胜感激

4

0 回答 0