Enviar email retorna o erro: Error connecting with SSL. Error connecting with SSL. error:1408F10B:SSL routines:SSL3_GET_RECORD:wrong version number.

Delphi

19/05/2011

Amigos, bom dia(tarde / noite).

Estou com um problema, estou fazendo uma aplicação para envio de e-mails para posteriormente acopla-la a minha aplicação principal. Porem na hora que q envio está me retornando o seguinte erro:

Error connecting with SSL.  Error connecting with SSL.  error:1408F10B:SSL routines:SSL3_GET_RECORD:wrong version number.


Não sei o q está acontecendo. Poderiam me ajudar?

Estou fazendo uma conexão pelo hotmail. Porta 25

Segue o cod do envio:

if chk1.Checked then      begin
        IdSSLIOHandlerSocketOpenSSL1.DefaultPort :=  StrToInt(edt10.Text);       
        IdSSLIOHandlerSocketOpenSSL1.SSLOptions.Method := sslvSSLv3;        
        IdSSLIOHandlerSocketOpenSSL1.SSLOptions.Mode := sslmClient;
      end;
      with IdSMTP do      begin
        IOHandler := IdSSLIOHandlerSocketOpenSSL1;
        UseTLS := utUseImplicitTLS;
        AuthType := satDefault;
        Host := edt8.Text;
        Username := edt5.Text;
        Password := medt1.Text;
        Port := StrToInt(edt10.Text);
      end;


   with idmsg1 do      begin
    Recipients.Clear;

      Body.Clear;
       Recipients.Add.Address := edt1.Text;
        From.Name := 'Marcelo' ;
        From.Address := edt1.Text;
        Subject := edt4.Text ;
        Date := Date ;

        MessageParts.Clear;
        ContentType := 'text/html'; // Texto em HTML

        Body.Assign(mmo1.Lines);
        IdSMTP.Connect;
        if IdSMTP.Connected then         IdSMTP.Send(idmsg1)        else         ShowMessage('erro ao conectar');

        IdSMTP.Disconnect;
        Sleep(StrToInt(edt6.Text) * 1000);
        IdSMTP.Disconnect;
      end;


Obrigado desde já.
Marcelo Letteri

Marcelo Letteri

Curtidas 0

Melhor post

Marcelo Letteri

Marcelo Letteri

19/05/2011

Senhores, conseguio resolver bastou setar a propriedade:UseTLS := utUseImplicitTLS para UseTLS := utUseExplicitTLS

Espero que sej util para alguém.
Podem dar este tópico como encerrado!
GOSTEI 4

Mais Respostas

Ricardo Alves

Ricardo Alves

19/05/2011

Cara o Seu Post me ajudou, estava com um problema parecido no sistema da minha empresa
GOSTEI 0
Singular Ti

Singular Ti

19/05/2011

Amigo de uma olhada nesse post:
https://www.devmedia.com.br/forum/porta-de-conexao-para-envio-de-emails/426011


Percebi que vc utiliza conexao do tipo SSL/TLS esse tipo de conexao tem algumas particularidades começando pela porta a ser usada... porta 25 nao funciona para esse tipo de conexao.. Outra coisa eu sugiro que voce mude as seguintes instruçoes:

IdSSLIOHandlerSocketOpenSSL1.SSLOptions.Method := sslvTLSv1;
IdSSLIOHandlerSocketOpenSSL1.SSLOptions.Mode   := sslmUnassigned;
IdSMTP.IOHandler := IdSSLIOHandlerSocket


De uma lida no post que passei para voce... e analize as mudanças que eu sugeri.. Ja tive dor de cabeça com isso tambem.
Qualquer duvida é só postar.
Abraços!!!
GOSTEI 0
Wagner Novaes

Wagner Novaes

19/05/2011

Cara salvou meu dia... Tava atrás dessa solução...
GOSTEI 0
Adriano Wolff

Adriano Wolff

19/05/2011

Marcelo Lobão vc salvou a pátria cara,eu estava a dias com problemas para enviar e-mail com hotmail,Muito obrigado!
GOSTEI 0
Wanderson Cardoso

Wanderson Cardoso

19/05/2011

Show cara... Obrigado mesmo... Estava com problemas com Indy 10 do XE 7...
GOSTEI 0
Afonso Foletto

Afonso Foletto

19/05/2011

Valeu amigo, deu certo pra mim no delphi seattle, muito obrigado.
GOSTEI 0
Rafael Mattos

Rafael Mattos

19/05/2011

Senhores, conseguio resolver bastou setar a propriedade:<div><div><span class="Apple-style-span" style="font-family: verdana; -webkit-border-horizontal-spacing: 2px; -webkit-border-vertical-spacing: 2px; font-size: small; "><b>UseTLS := utUseImplicitTLS para </b></span><span class="Apple-style-span" style="font-family: verdana; -webkit-border-horizontal-spacing: 2px; -webkit-border-vertical-spacing: 2px; font-size: small; "><b>UseTLS := utUseExplicitTLS</b></span></div></div><div><span class="Apple-style-span" style="font-family: verdana; -webkit-border-horizontal-spacing: 2px; -webkit-border-vertical-spacing: 2px; font-size: small; "><b>
</b></span></div><div><span class="Apple-style-span" style="font-family: verdana; -webkit-border-horizontal-spacing: 2px; -webkit-border-vertical-spacing: 2px; font-size: small; "><b>
</b></span></div><div><span class="Apple-style-span" style="font-family: verdana; -webkit-border-horizontal-spacing: 2px; -webkit-border-vertical-spacing: 2px; font-size: small; ">Espero que sej util para alguém.</span></div><div><span class="Apple-style-span" style="font-family: verdana; -webkit-border-horizontal-spacing: 2px; -webkit-border-vertical-spacing: 2px; font-size: small; ">
</span></div><div><span class="Apple-style-span" style="font-family: verdana; -webkit-border-horizontal-spacing: 2px; -webkit-border-vertical-spacing: 2px; font-size: small; ">Podem dar este tópico como encerrado!</span></div>


Me ajudou com e-mail da sinos.net Delphi Rio 10.3.1 e Indy 10.
GOSTEI 0
POSTAR