Enviar un e-mail con delphi 7

[Alonsoab]

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.

[Pericles]

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', '[email protected]','asunto','C:\archivo.txt',587,slLista);

Saludos
Nicolas Perichon

[jcosta]

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.

[jcosta]

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);
        }

[[kurono]]

alguien pudo enviarlo a hotmail

[Casimiro Noteví]

Empezado por kurono

alguien pudo enviarlo a hotmail

[jzginez]

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

[mamcx]

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.

[juanelo]

Pues gracias a jcosta hepodido mandar correos desde una cuenta de hotmail.

[emeritos]

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

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.

[Enan0]

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