Enviar un e-mail con delphi 7
 

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

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

Enviar un e-mail con delphi 7
 

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

por fin pude enviar un e-mail desde y a gmail...
 

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

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

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

como funcionaria para hotmail

Hola kurono.. te cuento que he estado investigando el tema y me da el famoso error #10060 de timed out, se suponía que cambiando el Host y el Port debería funcionar pero no es así... no se si será problema de las librerias SSL, serán diferentes para Hotmail que para GMail.. no se.. la cosa es que el código que publiqué arriba funciona perfectamente con GMail pero no funciona con Hotmail... si alguien puede darnos una mano.. aqui estamos...

(Estoy trabajando con Delphi 7 e Indy 9)

hola me dice que no se a declarado
 

hola fenix

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



donde y como lo declaro

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.

Saludos
 

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

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

Saludos.

agredecimiento por el apoyo
 

Yo también tuve necesidad de enviar correos electronicos desde delphi 7 y este hilo me fue de mucha utilidad agradezco a todos el aporte en este magnifico foro

saludos desde Guadalajara, Mexico

No se si sirva de algo pero falto comentar que se debe habilitar el Acceso IMAP: en la cuenta de gmail desde donde se quiere hacer el envió.

Saludos...

Consulta para complementar
 

En primer lugar felicito a Fénix y todos quienes colaboraron en este tema ya que resultó ser una respuesta concreta a una inquietud que varios arrastramos.

Quiero consultar por los pasos adicionales que se deben agregar al código para permitir adjuntar archivos en el mail que se envía. Puntualmente necesito adjuntar archivos con extensión .RAR

Agradezco de antemano su respuesta u orientación.

Hola adjunto ejemplo de codigo que permite enviar archivos adjuntos.
Saludos

Código Delphi [-]

function correo(chostcorreo, cusername, cPassword, cDestinatario, cAsunto, cArchivo: String; cportcorreo: Integer; lsCuerpo: TStringList): Boolean;
var
IdMessage1: TIdMessage;
   begin
     idMessage1.Clear;
     idMessage1.ContentType := 'text/html';
     idMessage1.FromList.EMailAddresses := cUserName;
     idMessage1.Recipients.EMailAddresses := cDestinatario;
     idMessage1.Subject := cAsunto;
     idMessage1.Body.AddStrings(lsCuerpo);
     if FileExists(cArchivo) then
        TIdAttachmentFile.Create( idMessage1.MessageParts, cArchivo );
     form1.idSMTP1.Username := cUserName;
     form1.idSMTP1.Password := cPassword;
     form1.idSMTP1.Host := cHostCorreo;
     form1.idSmtp1.Port := cPortCorreo;

        if not form1.idSMTP1.Connected then
           form1.idSMTP1.Connect;
        form1.idSMTP1.Send(IdMessage1);
        Result := True;
end;

ejemplo de llamada:

Código Delphi [-]
var
slLista : TstringList;
begin

slLista := TStringList.Create();
slLista.Add( 'CUERPO' );
...

{
correo(chostcorreo, cusername, cPassword, cDestinatario, cAsunto, cArchivo: String; cportcorreo: Integer; lsCuerpo: TStringList): Boolean;
}

correo('smtp.live.com', 'pepito', 'pass123', 'mailDesdeElQueSeEnvia@Dominio.com.ar','asunto','C:\archivo.txt',587,slLista);

Saludos
Nicolas Perichon

Hola amigos, tengo un caso similar y necesito ayuda. Tenía una aplicación que enviaba correos realizada con C++ Builder 5 y componentes Indy 9. Las cuentas son de telefónica que, recientemente, ha migrado a la plataforma office365 que requiere conexión segura y puerto 587 en SMTP. He utilizado las versiones de las librerías que se indican y alguna otra pero siempre me salta "Error connecting with SSL". He probado combinado diferentes opciones en SSLOptions y en Mode, pero nada. ¿Alguien sabe cómo solucionar el problema?.



Gracias de antemano.

Al final he conseguido que funcione, he utilizado la versión 0.96m de OpenSSL (también me funciona con la 0.96). Por lo visto el puerto 587 necesita STARTTLS . El código sería algo así:

Código Delphi [-]
 
        // configuramos el envío de correo electrónico
        idSMTP->Host = fmVisual->host_smtp;
        idSMTP->Username = fmVisual->username_smtp;
        idSMTP->Password = fmVisual->password_smtp;
        idSMTP->Port = fmVisual->smtp_puerto;
        idSMTP->IOHandler = NULL;

        if (fmVisual->smtp_SSL != "Ninguno") {
                idSMTP->IOHandler = IdSSL;
        }

        if (fmVisual->smtp_modo_SSL == "sslmUnassigned") {
                IdSSL->SSLOptions->Mode = sslmUnassigned;
        } else {
                if (fmVisual->smtp_modo_SSL == "sslmServer") {
                        IdSSL->SSLOptions->Mode = sslmServer;
                } else {
                        if (fmVisual->smtp_modo_SSL == "sslmClient") {
                                IdSSL->SSLOptions->Mode = sslmClient;
                        } else {
                                if (fmVisual->smtp_modo_SSL == "sslmBoth") {
                                        IdSSL->SSLOptions->Mode = sslmBoth;
                                } else {
                                        IdSSL->SSLOptions->Mode = sslmUnassigned;
                                }
                        }
                }
        }


        // si el puerto requiere STARTTLS como Indy 9 no lo soporta nativamente hay que simularlo
        if (fmVisual->smtp_SSL == "STARTTLS") {
                // primero establecemos el método
                IdSSL->SSLOptions->Method = sslvTLSv1;

                // se coloca PassThrough a true
                IdSSL->PassThrough = true;

                // se llama a Connect
                idSMTP->Connect(IdTimeoutDefault);

                // se envía manualmente un comando STARTTLS
                if (idSMTP->SendCmd("STARTTLS", 220) == 220) {
                        // se coloca PassThrough a false
                        IdSSL->PassThrough = false;

                        // se envía un comando HELO
                        if (idSMTP->SendCmd("HELO " + idSMTP->LocalName, 250) != 250) {
                                idSMTP->Disconnect();
                                MessageDlg("Fallo en envío de comando HELO.", mtError, TMsgDlgButtons() << mbOK, 0);
                        }

                        if (!idSMTP->Authenticate()) {
                                idSMTP->Disconnect();
                                MessageDlg("Autenticación incorrecta.", mtError, TMsgDlgButtons() << mbOK, 0);
                        }
                } else {
                        MessageDlg("Fallo en envío de comando STARTTLS.", mtError, TMsgDlgButtons() << mbOK, 0);
                }
        } else {
                // SSL
                if (fmVisual->smtp_SSL == "sslvTLSv1") {
                        IdSSL->SSLOptions->Method = sslvTLSv1;
                } else {
                        if (fmVisual->smtp_SSL == "sslvSSLv3") {
                                IdSSL->SSLOptions->Method = sslvSSLv3;
                        } else {
                                if (fmVisual->smtp_SSL == "sslvSSLv23") {
                                        IdSSL->SSLOptions->Method = sslvSSLv23;
                                } else {
                                        IdSSL->SSLOptions->Method = sslvSSLv2;
                                }
                        }
                }
        }



        try {
                if (!idSMTP->Connected()) {
                        idSMTP->Connect(IdTimeoutDefault);
                }

                idSMTP->Send(mensaje);
                idSMTP->Disconnect();
                MessageDlg("Envío realizado.", mtInformation, TMsgDlgButtons() << mbOK, 0);

        } catch (Exception &error) {
                MessageDlg("No se pudo realizar el envío:\n\n" + error.Message, mtError, TMsgDlgButtons() << mbOK, 0);
        }

alguien pudo enviarlo a hotmail

^\||/^\||/^\||/

smtp.live.com
ssl
pto.: 587

http://www.teclasocial.com/2009/01/c...otmail-y-live/

estos datos los tengo en un programa de facturación y a través de un correo de ho tmail envio las facturas a los clientes

Otra opcion y uno se quita muchos lios es usar un API:

http://documentation.mailgun.com/api...l#introduction

Estoy usando este. Es solo hacer un POST con los datos, y no hay que preocuparse de firewalls ni nada de esas cosas.

Hay que usar Indy 10 y no 9 :rolleyes:

Puedes darnos un ejemplo de su uso en Delphi, claro si esto no implica mucho lío. Gracias !!

No tengo delphi a la mano, pero el uso de eso es muy trivial. Se resuelve en pocas lineas de codigo. Es solo hacer GET & POST. Enviar un correo es (usando CURL):

Asi que se puede usar no solo indy, sino tambien synpse, winnet y similares. Y no hay que lidiar con los MIMES y otras chorradas. POr ejemplo, para hacer correo como texto y como HTML:

http://documentation.mailgun.com/api....html#examples

Gracias por la respuesta, aunque he quedado en lo mismo. :confused:

Como metiste ese codigo en Delphi 7
 

Buenas grupo , mamcx queria saber como metiste ese codigo curl en delphi 7 . Te lo agradeceria
Abrazo

Hola estoy utilizando el codigo:

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;

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.

te recomiendo que las DLLS las pongas junto con el Executable (en la misma carpeta)

Necesitas instalar el SSL, en el caso de windows esta este "Win32OpenSSL" que puedes encontrar googleando, o como te comentan copia las dll a system/System32/SysWOW64 dependiendo de tu sistema o colocalas junto a tu ejecutable.

Saludos.

Muchas gracias a FENIXadr por su valioso aporte