0

TidSMTP を使用して電子メールを送信する Delphi アプリケーションがあります。ローカルメールサーバーでテストすると正常に動作しますが、外部メールサーバーで動作するように設定するとすぐに、l_idSMTP.connect コード行から実行しようとするとソケットエラー 10054 - Connection Reset by 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