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

Question

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

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

连接正常关闭

或者，有时我得到

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设置之前SMTP.Port ，如设置UseTLS可能改变Port ，所以你要确保你真的连接到您所期待的正确的端口。

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