Enviar un e-mail con delphi 7

[jzginez]

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

[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', 'mailDesdeElQueSeEnvia@Dominio.com.ar','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.