Jump to content

SSL negotiation failed


Juan Carlos

Recommended Posts

Estou tentando fazer o envio de e-mail pelo uniGUI usando o seguinte código: 

      IdSMTP1.Disconnect;

      Messagem := TIdMessage.Create(nil);
      Messagem.CharSet := 'ISO-8859-1';
      Messagem.Encoding := meMIME;
      Messagem.Clear;
      Messagem.ContentType := 'text/html';
      Messagem.ContentTransferEncoding := '16bit';
      Messagem.From.Name := UniMainModule.TMEMPRESANOME_FANTASIA.AsString;
      Messagem.From.Address := edtRemetente.text;
      Messagem.Priority := mpNormal;
      Messagem.Subject := edtAssunto.text;
      Messagem.Date := Now;
      Messagem.Recipients.Add;
      Messagem.Recipients.EMailAddresses := cbEmailPara.Text;
      Messagem.BccList.EMailAddresses := chkComboBoxEmail.Text;

      //Corpo
      Messagem.Body.Clear;
      Messagem.Body.Text := UniHTMLMemo1.Text;

      IdSMTP1.UserName := QPARAMETROS_WEBSMTP_USUARIO.AsString;

      IdSMTP1.Password := QPARAMETROS_WEBSMTP_SENHA.AsString;
      IdSMTP1.Host := QPARAMETROS_WEBSMTP_SERVIDOR.AsString;

      if QPARAMETROS_WEBSMTP_AUTENTICACAO.asstring = 'S' then
      begin
        IdSMTP1.UseTLS := utUseExplicitTLS; // utUseImplicitTLS;
        IdSMTP1.AuthType := satDefault;
        IdSMTP1.IOHandler := IdSSLIOHandlerSocketOpenSSL1;
        IdSSLIOHandlerSocketOpenSSL1.SSLOptions.Method := sslvTLSv1;
        IdSSLIOHandlerSocketOpenSSL1.SSLOptions.Mode := sslmClient;
      end
      else
      begin
        IdSMTP1.IOHandler := nil;
        IdSMTP1.UseTLS := utNoTLSSupport;
      end;

      IdSMTP1.Port := QPARAMETROS_WEBSMTP_PORTA.AsInteger;
      IdSMTP1.HeloName := IntToStr(UniMainModule.idusuario);
      IdSMTP1.Connect;
      IdSMTP1.Send(Email);
      IdSMTP1.Disconnect;
      Messagem.Free;

 

Recebo a seguinte mensagem de erro:

Visualização da imagem

Link to comment
Share on other sites

  • 9 months later...
  • 3 weeks later...

Please sign in to comment

You will be able to leave a comment after signing in



Sign In Now
×
×
  • Create New...