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.


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?

:confused:

[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, :D