[yn4v4s]

Hola a todos, estoy desarrollando una App que envia un email a mi cuenta de correo (GMail), y utilize el siguiente codigo:


procedure TForm1.btnConnectClick(Sender: TObject);
var

SMTP: TIdSMTP;
Mail: TIdMessage;


begin

IdSMTP_SendMail := TIdSMTP.Create(Self);

with IdSMTP_SendMail do begin
IoHandler:=SSLIOHandler;
AuthType := satDefault;
Host := 'smtp.gmail.com';
port := 465 ;
useTLS:=utUseExplicitTLS;
Username := mi_cuenta;
Password := mi_password;
end;

mail := TIdMessage.Create(Self);
with mail do begin
From.Address := mi_cuenta;
Recipients.EMailAddresses := cuenta_del_destinatario;
Subject := 'Hola';
body.Text := 'Esto es una prueba';
end;


IdSMTP_SendMail.Connect;


IdSMTP_SendMail.Send(mail);

end;

//---------------------------------------------

La App me da la siguiente excepcion:

First chance exception at $75244B32. Exception class EIdOSSLCouldNotLoadSSLLibrary with message 'Could not load SSL library.'. Process Project1.exe (3360)

He descargado e instalado las siguientes librerias:

"libeay32.dll", "libSSL32.dll" y "ssleay32.dll", "MSVCR100.dll" y "VSINIT.dll"

Las copie en C:\Windows\SysWOW64 ya que tengo Win8 x64.

Uso el Embarcadero RAD Studio 2010 y Indy v10.5.5

Agradeceria mucho su ayuda... 1000 Gracias