使用 indy 组件 delphi xe2 SSL 协商发送电子邮件失败

Question

我尝试使用 Indy 组件在 XE2 中发送电子邮件，它在我编译项目的笔记本电脑上运行良好。

但是如果我将我的 exe 项目带到另一台电脑上，它会显示一条错误消息

连接正常关闭

或者，有时我会得到

SSL 协商失败

其实我尝试了很多次来解决我的问题，但我不能。

这是我的代码 - 我的错误在哪里？我需要一个实用的解决方案。

procedure Gmail(username, password, totarget, subject, body :string);
var
   DATA : TIdMessage;
   SMTP : TIdSMTP;
   SSL : TIdSSLIOHandlerSocketOpenSSL;
   result:Boolean;
begin
   try
      SMTP := TIdSMTP.Create(nil);
      DATA := TIdMessage.Create(nil);
      SSL := TIdSSLIOHandlerSocketOpenSSL.Create(nil);

      SSL.Destination := 'smtp.gmail.com:587';
      SSL.Host := 'smtp.gmail.com';
      //  SSL.MaxLineAction.maException;
      SSL.Port:= 587;
      SSL.SSLOptions.Method := sslvTLSv1;
      SSL.SSLOptions.Mode := sslmUnassigned;
      SSL.SSLOptions.VerifyMode :=  [];
      SSL.SSLOptions.VerifyDepth := 0;

      DATA.From.Address := username;
      DATA.Recipients.EMailAddresses := totarget;
      DATA.Subject := subject;
      DATA.Body.Text := body;

      if FileExists('D:\Test1.txt') then
         TIdAttachmentFile.Create(DATA.MessageParts, 'D:\Test1.txt');

      SMTP.IOHandler := SSL;
      SMTP.Host := 'smtp.live.com';
      SMTP.Port := 587 ;
      SMTP.Username := username;
      SMTP.Password := password;
      //  SMTP.SASLMechanisms;
      SMTP.UseTLS := utUseExplicitTLS;

      try
         try
           SMTP.Connect;
           SMTP.Send(DATA);
           Result := True;
         except
           on E:Exception do
           begin
               ShowMessage('Cannot send E-Mail: ' + E.Message);
               Result := False;
           end;
         end;
      finally
         if SMTP.Connected then SMTP.Disconnect;
      end;
  except
    on E : Exception do
    begin
      ShowMessage('Error in the function SendEmailDelphi: ' + E.Message);
      Result := False;
    end;
  end;

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Timer1.Enabled:= True;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
mail_username := 'email@gmail.com';
mail_password := 'pass';
mail_to := 'email@gmail.com';
mail_subject := 'Text email from Delphi project';
mail_body := 'this is a test email sent from Delphi project, do not reply';

 try
   begin
     Gmail(mail_username, mail_password, mail_to , mail_subject, mail_body);
   end;
 finally

 end;
end;

Answer 1

请勿手动设置SSL.Destination、SSL.Host 或SSL.Port 属性！ TIdTCPClient.Connect() 为您处理。此外，您不觉得将SSL.Destination/Host 设置为smtp.gmail.com 而是将SMTP.Host 设置为smtp.live.com 很奇怪吗？ Gmail 和 Live 不是同一个服务提供商。

此外，SSL.SSLOptions.Mode 应设置为 sslmClient 而不是 sslmUnassigned。不太重要，TIdSSLIOHandlerSocketOpenSSL 在配置连接时会简单地翻转它。但无论如何你都应该这样做，因为你知道你的代码是作为客户端的。

最后，尝试设置SMTP.UseTLS before设置SMTP.Port，因为设置UseTLS 可能更改Port，所以你要确保你确实连接到您期望的正确端口。

话虽如此，SSL Negotiation failed 错误意味着 TLS 握手已启动，但在协商过程中失败。尝试将处理程序分配给TIdSSLIOHandlerSocketOpenSSL 的OnStatusInfo/Ex 事件，以查看握手的实际进展情况。如果您使用的是相对现代的 Indy 10 版本，请尝试查看引发的异常的 InnerException 属性，它可能会为您提供关于在随后引发 EIdTLSClientTLSHandShakeFailed 异常之前出现问题的线索。