Enviar un e-mail con delphi 7

[FENIXadr]

Bueno gente despues de renegar un monton... por fin pude enviar un mail desde y a gmail... lo que pensé que iva a ser una tontera terminó por ser una odisea.. pero en fin ya está...

El problema más grande que tenía era mi falta de conocimientos sobre protocolos de seguridad y las versiones de las .dll que andan por toda la red y que funcionan sólo con la versión adecuada...

Mi código está hecho en delphi 7 con las indy 9

Código Delphi [-]

procedure TForm1.Button1Click(Sender: TObject); 
begin
//indySMTP es de tipo TIdSMTP (el icono es un buzon azul)  
//mailMensaje es de tipo TIdMessage (el icono es un sobre)  
//IdSSLIOHandlerSocket1 es un componente TIdSSLIOHandlerSocket (el icono es un candadito)   



   mailMensaje.Clear;
   mailMensaje.From.Address := '[email protected]';
   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 := '[email protected]';
   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;

y eso es todo...
aqui les dejo las un link a las .dll que utilicé y que me funcionaron a la perfección...

http://indy.fulgan.com/SSL/Archive/

el archivo que usé es el
indy_openssl096.zip

(recuerden que estoy trabajando con indy 9.. para otras versiones de indy no creo que funcionen estas .dll)

Por cualquier duda aqui estmos.

saludos..