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