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的{{1}}事件分配处理程序，以查看握手实际获得的距离。如果您使用的是相对现代版本的Indy 10，请尝试查看引发异常的OnStatusInfo/Ex属性，它可能会在InnerException例外之前给出一个关于出错的线索。之后提出。

使用indy组件发送电子邮件delphi xe2 SSL negotiation faild

1 个答案: