como puedo Agregar un Archivo en un mail

[carlosmoralesm]

De antemano Gracias a todos


Como puedo agregar un archivo a un correo enviado con un componente indy

IdSMTP1 de la pestaña clients

Gracias

[Jure]

... algo mas o menos asi: tienes que usar junto con el IdSMTP1 el TIdMessage para el mensaje.

Código Delphi [-]
begin
   try
   TidAttachment.Create(idMessage1, 'c:\chica.jpg');
   with idMessage1. do
     begin
        Body.Assign(Memo1.Lines);
        From.Text := UserEmail;
        Recipients.EMailAddresses := edtTo.Text; 
        Subject := edtSubject.Text; 
        CCList.EMailAddresses := edtCC.Text;
        BccList.EMailAddresses := edtBCC.Text;
     end;
     idSMTP1.Connect;
     idSMTP1.Send(idMessage1);
  finally
     idSMTP1.Disconnect;
     slBody.Free;
     Showmessage('done');
  end;
end;

...de todas maneras revisa dentro de la carpeta de ejemplos de Indy hay un ejemplo mas completo y mejor explicado.

espero que te sirva de algo.

Jure.

[carlosmoralesm]

Gracias Jure


voy a hacerlo asi Te Agradezco Mucho la Ayuda

[rafita]

Hola a todos,

El código funciona muy bien, pero no soy capaz de modificarlo para adjuntar varios ficheros, ¿cómo lo hago?

[rafita]

Ya encontre la solución, basta con ir creando mas partes al mensaje:

TidAttachment.Create(idMessage1, 'c:\chica.jpg');
TidAttachment.Create(idMessage1, 'c:\mujer.jpg');
TidAttachment.Create(idMessage1, 'c:\anciana.jpg');

Saludos,