Enviar un e-mail con delphi 7

[FENIXadr]

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

Saludos.

[FAJ]

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

[mordaz]

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

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