Fórum ENVIAR E-MAIL PELO DELPHI - SSL Negotiation Failed #581548

procedure TFrmSugerencias.btnEnviarClick(Sender: TObject);
  var
  // objetos necessários para o funcionamento
  IdSSL: TIdSSLIOHandlerSocketOpenSSL;
  IdSMTP: TIdSMTP;
  IdMessage: TIdMessage;
  CaminhoAnexo: string;

begin
  // instanciação dos objetos
    IdSMTP := TIdSMTP.Create(nil);
    IdMessage := TIdMessage.Create(nil);
    IdSSL := TIdSSLIOHandlerSocketOpenSSL.Create(nil);

  // Configuração do SSL
    IdSSL.SSLOptions.Method := sslvSSLv23;//sslvTLSv1;//
    IdSSL.SSLOptions.Mode := sslmClient;
    IdSSL.SSLOptions.VerifyMode := [];
    IdSSL.SSLOptions.VerifyDepth := 0;

  // Configuração do SMTP
    IdSMTP.IOHandler := IdSSL; //Aki você linka com o componente TIdSSLIOHandlerSocket
    IdSMTP.AuthType := satDefault;
    IdSMTP.UseTLS := utUseRequireTLS;
    IdSMTP.Port := 587;
    IdSMTP.Host := 'smtp.gmail.com';
    IdSMTP.Username := 'meu_email@gmail.com';
    IdSMTP.Password := 'minha_senha_gmail';

  try
   // Configuração da mensagem
    IdMessage.Clear;
    IdMessage.MessageParts.Clear;
    IdMessage.From.Address := 'meu_email@gmail.com';
    IdMessage.From.Name := 'WILTON';
    IdMessage.ReplyTo.EMailAddresses := IdMessage.From.Address;
    IdMessage.Recipients.EMailAddresses := 'e-mail_destinatariol@gmail.com';
    IdMessage.Subject := lblSugerencia.Caption;;
    IdMessage.Body.Text := (mmoSugerencia.Text);//'Corpo do e-mail';
    IdMessage.Body.Text := 'Data/Hora: ' + DateTimeToStr(Now);
    IdMessage.ContentType := 'Multipart/Related';
    IdMessage.Priority := mpNormal;

    // Tentativa de conexão e autenticação
    try
      IdSMTP.Connect;
      IdSMTP.Authenticate;
    except
      on E:Exception do
      begin
        MessageDlg('Erro na conexão e/ou autenticação: ' +
                    E.Message, mtWarning, [mbOK], 0);
        Exit;
      end;
    end;

    // Anexo da mensagem (opcional)
    CaminhoAnexo := 'C:\\Anexo.txt';
    if FileExists(CaminhoAnexo) then
      TIdAttachmentFile.Create(IdMessage.MessageParts, CaminhoAnexo);

    // Envio da mensagem
    try
      IdSMTP.Send(IdMessage);
      MessageDlg('Mensagem enviada com sucesso.', mtInformation, [mbOK], 0);
    except
      On E:Exception do
        MessageDlg('Erro ao enviar a mensagem: ' +
                    E.Message, mtWarning, [mbOK], 0);
    end;
  finally
    // liberação dos objetos da memória
    FreeAndNil(IdMessage);
    FreeAndNil(IdSSL);
    FreeAndNil(IdSMTP);
  end;