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