enviar email a gmail /hotmail /...

[emeritos]

yo lo tengo asi:

Código Delphi [-]
    DLLHandlelib := LoadLibrary('libeay32.dll');
    DLLHandlessl := LoadLibrary('ssleay32.dll');
    cArchivo := 'C:\carpeta\pdf\Incidencias.pdf';
    mailMensaje.Clear;
    mailMensaje.From.Address := 'xxx@gmail.com';

    mailMensaje.Subject := Etexto.Text;
    Etexto.Text := 'texto a poner';
    mailMensaje.Body.SetText(Etexto.Lines.GetText);
    mailMensaje.From.Name := 'Incidencias';
    mailMensaje.Recipients.EMailAddresses := email.Text;
    indySMTP.Host := 'smtp.gmail.com';
    indySMTP.Username := 'xxx@gmail.com';
    indySMTP.Password := 'clave';
    indySMTP.Port := 465;

    TIdAttachment.Create(mailMensaje.MessageParts, cArchivo);
    indySMTP.AuthenticationType := atLogin;
    indySMTP.IOHandler := IdSSLIOHandlerSocket1;
    IdSSLIOHandlerSocket1.SSLOptions.Method := sslvSSLv23;
    IdSSLIOHandlerSocket1.SSLOptions.Mode := sslmUnassigned;


    indySMTP.Connect;

    If indySMTP.Connected
       Then
          Begin
              indySMTP.Send(mailMensaje);
              indySMTP.Disconnect;
              showmessage('El mensaje se envió correctamente');
          End
       Else showmessage('Se produjo un fallo durante el envío del mensaje');

Sea al correo que sea, me da error en la lineas "indySMTP.Connect;" que es este "Proyect programa.exe raised exception class EIdOSSL ConnectError with mensage "Error connecting SSL" ........



Como lo puedo solucionar. Gracias

[Casimiro Notevi]

Puede que espere otra versión de la SSL, en lugar de la sslvSSLv23

[emeritos]

Como puedo averiguar la version correcta. Por que creo que en otro programa ya me funciono.

Gracias.

[emeritos]

He probado con todas estas que vienen y todas dan el mismo fallo

Código Delphi [-]
//    IdSSLIOHandlerSocket1.SSLOptions.Method := sslvSSLv23;
//    IdSSLIOHandlerSocket1.SSLOptions.Method := sslvSSLv2;
//    IdSSLIOHandlerSocket1.SSLOptions.Method := sslvSSLv3;
//    IdSSLIOHandlerSocket1.SSLOptions.Method := sslvTLSv1;