Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Internet
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 08-12-2010
FENIXadr FENIXadr is offline
Miembro
 
Registrado: may 2010
Ubicación: Córdoba - Cba. - Argentina
Posts: 101
Poder: 14
FENIXadr Va por buen camino
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...
Responder Con Cita
  #2  
Antiguo 08-12-2010
Avatar de Aleca
Aleca Aleca is offline
Miembro
 
Registrado: may 2003
Ubicación: Venado Tuerto, Argentina
Posts: 277
Poder: 21
Aleca Va por buen camino
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.
__________________
Aleca
Responder Con Cita
  #3  
Antiguo 08-12-2010
FENIXadr FENIXadr is offline
Miembro
 
Registrado: may 2010
Ubicación: Córdoba - Cba. - Argentina
Posts: 101
Poder: 14
FENIXadr Va por buen camino
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..
Responder Con Cita
  #4  
Antiguo 09-12-2010
FENIXadr FENIXadr is offline
Miembro
 
Registrado: may 2010
Ubicación: Córdoba - Cba. - Argentina
Posts: 101
Poder: 14
FENIXadr Va por buen camino
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..
Responder Con Cita
  #5  
Antiguo 09-12-2010
Avatar de AzidRain
[AzidRain] AzidRain is offline
Miembro Premium
 
Registrado: sep 2005
Ubicación: Córdoba, Veracruz, México
Posts: 2.914
Poder: 21
AzidRain Va camino a la fama
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ó..."
__________________
AKA "El animalito" ||Cordobés a mucha honra||
Responder Con Cita
  #6  
Antiguo 10-12-2010
FENIXadr FENIXadr is offline
Miembro
 
Registrado: may 2010
Ubicación: Córdoba - Cba. - Argentina
Posts: 101
Poder: 14
FENIXadr Va por buen camino
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...
Responder Con Cita
  #7  
Antiguo 11-12-2010
Avatar de kurono
[kurono] kurono is offline
Miembro Premium
 
Registrado: jul 2007
Ubicación: Republica Dominicana
Posts: 1.126
Poder: 18
kurono Va por buen camino
como funcionaria para hotmail
Responder Con Cita
  #8  
Antiguo 13-12-2010
FENIXadr FENIXadr is offline
Miembro
 
Registrado: may 2010
Ubicación: Córdoba - Cba. - Argentina
Posts: 101
Poder: 14
FENIXadr Va por buen camino
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)
Responder Con Cita
  #9  
Antiguo 12-01-2011
Philip_ Philip_ is offline
No confirmado
 
Registrado: abr 2010
Posts: 8
Poder: 0
Philip_ Va por buen camino
Post hola me dice que no se a declarado

hola fenix

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



donde y como lo declaro
Responder Con Cita
  #10  
Antiguo 13-01-2011
FENIXadr FENIXadr is offline
Miembro
 
Registrado: may 2010
Ubicación: Córdoba - Cba. - Argentina
Posts: 101
Poder: 14
FENIXadr Va por buen camino
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.


Última edición por FENIXadr fecha: 13-01-2011 a las 15:59:24.
Responder Con Cita
  #11  
Antiguo 13-01-2011
Philip_ Philip_ is offline
No confirmado
 
Registrado: abr 2010
Posts: 8
Poder: 0
Philip_ Va por buen camino
Saludos

Hola… muchas gracias me sirvió de mucho ya lo termine y funciona gracias
Responder Con Cita
  #12  
Antiguo 27-06-2013
Avatar de jzginez
jzginez jzginez is offline
Miembro
 
Registrado: sep 2003
Ubicación: Puebla, México
Posts: 247
Poder: 21
jzginez Va por buen camino
Disculpen que active este hilo tan viejo pero solo es para agradecer a FENIXadr por el aporte apenas lo necesite y funciono de maravilla.
__________________
Espero poder seguir exprimiéndote el cerebro 8)
Jorge Zamora Ginez
Puebla, Pue. México
Responder Con Cita
  #13  
Antiguo 27-06-2013
FENIXadr FENIXadr is offline
Miembro
 
Registrado: may 2010
Ubicación: Córdoba - Cba. - Argentina
Posts: 101
Poder: 14
FENIXadr Va por buen camino
Muchas gracias amigo jzginez y me alegra saber que te ha sido de utilidad....

Saludos.
Responder Con Cita
  #14  
Antiguo 03-09-2013
FAJ FAJ is offline
Registrado
 
Registrado: dic 2006
Posts: 5
Poder: 0
FAJ Va por buen camino
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
Responder Con Cita
  #15  
Antiguo 04-09-2013
mordaz mordaz is offline
Miembro
 
Registrado: mar 2008
Posts: 32
Poder: 0
mordaz Va por buen camino
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...
Responder Con Cita
  #16  
Antiguo 25-09-2013
Alonsoab Alonsoab is offline
Registrado
 
Registrado: sep 2006
Posts: 2
Poder: 0
Alonsoab Va por buen camino
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.
Responder Con Cita
  #17  
Antiguo 27-09-2013
Avatar de Pericles
Pericles Pericles is offline
Miembro
NULL
 
Registrado: sep 2013
Ubicación: Buenos Aires, Argentina
Posts: 24
Poder: 0
Pericles Va por buen camino
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
Responder Con Cita
  #18  
Antiguo 20-11-2013
jcosta jcosta is offline
Registrado
 
Registrado: feb 2008
Posts: 9
Poder: 0
jcosta Va por buen camino
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.
Responder Con Cita
  #19  
Antiguo 21-11-2013
jcosta jcosta is offline
Registrado
 
Registrado: feb 2008
Posts: 9
Poder: 0
jcosta Va por buen camino
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);
        }
Responder Con Cita
  #20  
Antiguo 10-02-2014
Avatar de kurono
[kurono] kurono is offline
Miembro Premium
 
Registrado: jul 2007
Ubicación: Republica Dominicana
Posts: 1.126
Poder: 18
kurono Va por buen camino
alguien pudo enviarlo a hotmail
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
enviar mail desde delphi martinchooozzz Internet 7 20-05-2008 13:20:42
como puedo enviar un mail con delphi 7 kurono Varios 4 29-03-2008 18:38:53
Enviar e-mail D-MO PHP 5 10-01-2006 20:21:08
enviar mail amadis API de Windows 2 06-05-2005 05:02:02
enviar mail desde delphi 7 Diego Internet 2 07-06-2004 14:07:50


La franja horaria es GMT +2. Ahora son las 14:15:18.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi