Hola estoy utilizando el codigo:
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
begin
mailMensaje.Clear;
mailMensaje.From.Address := 'tu_email@gmail.com';
mailMensaje.Subject := 'Asunto';
mailMensaje.Body.SetText(Memo1.Lines.GetText);
mailMensaje.From.Name := 'Tu Nombre';
mailMensaje.Recipients.EMailAddresses := 'email_destino';
indySMTP.Host := 'smtp.gmail.com';
indySMTP.Username := 'tu_email@gmail.com';
indySMTP.Password := 'tu_clave';
indySMTP.Port := 465;
indySMTP.AuthenticationType := atLogin;
indySMTP.IOHandler := IdSSLIOHandlerSocket1;
IdSSLIOHandlerSocket1.SSLOptions.Method := sslvSSLv23;
IdSSLIOHandlerSocket1.SSLOptions.Mode := sslmUnassigned;
try
indySMTP.Connect;
try
indySMTP.Send(mailMensaje);
finally
showmessage('El mensaje se envió correctamente');
end;
except
showmessage('Se produjo un fallo durante el envío del mensaje');
end;
if indySMTP.Connected then
indySMTP.Disconnect;
end;
con la indy_openssl096, aunque tambien me funciona con la indy_openssl096k.
PERO IMPORTANTE solo me funciona en el ordenador que compilo (windows 7), cuando paso el ejecutable y las dll a otro ordenador (en este caso el S.O. Windows XP) no me funciona y me sale el error de : "Could not load SSL Library", al igual que si quito las dos dll del subdirectorio del ordenador de compilacion (sale el mismo error).
Para mas informacion tambien e intentando hacer el .RES con las librerias pero no me funciona en otro ordenador.
¿Como lo puedo solucionar?
Gracias.