Enviar un e-mail con delphi 7

[FENIXadr]

Hola gente... ya se que este tema está por todo el foro.. pero sinceramente veo que hay mas problemas que soluciones con las famosas indy.. alguien pudo enviar un e-mail a gmail con las indy 9 y delphi 7??.. hay alguna lista de los servidores de mail y sus puertos?? no habrá por ahí algun componente que funcione bien??? necesito enviar mails con mi aplicación y no encuentro la forma.. si alguien me puede dar una mano.. desde ya muchas gracias...

[Aleca]

Si queres mandar el mail a traves de outlook podes usar TJvMail de las Jedi.
Según mi opinion las indy funcionan bien, muchas veces es que no sabemos usarlas, hice mis primeros palotes en el envio de correo con las indy estoy muy conforme.

[FENIXadr]

Hola Aleca.. la idea de enviar un mail es desde mi aplicación, sin tener que usar un programa externo.. y eso de que las INDY funcionan bien y somos nosotros que a veces no las sabemos usar es muy cierto.... mi comentario fue a razón de que son muchos los problemas que se registran.. de todos modos la mayoría puede deberse a la falta de conocimiento sobre los protocolos y esas cosas y no tanto por las INDY.
Te agradezco la respuesta.. y voy a seguir intentando esto del envío de mails que no puede ser tan complicado.. acabo de instalar las INDY 10, veo que tiene muchisimos componenetes y vamos a ver que sucede..
Estamos en contacto..

[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 := '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;

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..

[[AzidRain]]

Precisamente Fenix, para empezar recuerda siempre usar la versión mas actualizada posible (y estable) de cada componente que usas. Por otor lado actualmente hay muchos proveedores de correo que cambian sus protocolos por seguridad. LO que te funciona con uno no necesariamente te va a funcionar con otro.

Finalmente tu código está mal estructurado en la captura de las excepciones pues "El mensaje se envió correctamente" siempre se ejecutará aún cuando haya algun error. Te esta sobrando ese try que pusiste, debe quedar asi:

Código Delphi [-]
try
       indySMTP.Connect;
       indySMTP.Send(mailMensaje);
       showmessage('El mensaje se envió correctamente');
  except
       showmessage('Se produjo un fallo durante el envío del mensaje');
   end;

De esta forma si se genera una excepción todo salta a "Se produjo un fallo..." y nunca verás el otro mensaje. Si todo va bien, verás "El mensaje se envió..."

[FENIXadr]

Hola AzidRain... gracias por la correccion, si es cierto lo que decís.. la mayor parte del código es sacado de distintos lugares de la red y no presté demaciada atención a ese "try" de mas... lo que más me preocupaba era la forma de enviar el mail y ni bien lo pude hacer lo publique... pero me parece muy bueno tu aporte porque para eso estamos.. para ayudar a otros y ser ayudados en el proceso...

[Philip_]

hola fenix

me dice que no se a declarado:
mailMensaje.Clear;



donde y como lo declaro

[FENIXadr]

Hola Philip_... para declara mailMensaje tenes que instalar las librerías Indy (el ejemplo esta hecho con la versión 9).. buscalas por la red que estan en todos lados... aqui en el foro vas a encontrar muchos links para descargarlas, una vez que instales las librerías busca un componente que se llama IdMessage (que el icono es un buzón azul), que es de tipo TIdMessage y lo llamás mailMensaje (propiedad .Name del componente), también agregá los componentes indySMTP (tal vez en la propiedad .Name tengas que borrar el 1 al final del nombre) e IdSSLIOHandlerSocket (a este no le cambies nada).
Fijate que en el comentario dentro del código puse como son los iconos de cada uno.

Saludos.

[jzginez]

Disculpen que active este hilo tan viejo pero solo es para agradecer a FENIXadr por el aporte apenas lo necesite y funciono de maravilla.

[FENIXadr]

Muchas gracias amigo jzginez y me alegra saber que te ha sido de utilidad....

Saludos.

[edy_aca]

Muchas gracias a FENIXadr por su valioso aporte

[MAXIUM]

Empezado por FENIXadr

Hola gente... ya se que este tema está por todo el foro.. pero sinceramente veo que hay mas problemas que soluciones con las famosas indy.. alguien pudo enviar un e-mail a gmail con las indy 9 y delphi 7??.. hay alguna lista de los servidores de mail y sus puertos?? no habrá por ahí algun componente que funcione bien??? necesito enviar mails con mi aplicación y no encuentro la forma.. si alguien me puede dar una mano.. desde ya muchas gracias...

Hay que usar Indy 10 y no 9