Enviar varios archivos adjuntos por email
 

Necesito enviar varios archivos adjuntos por email.
El envío de un solo archivo está resuelto(attachment). Pero en el caso de ser varios archivos de diferentes formatos ¿como lo hago?¿Pongo los fichero separados por ';' ?. ¿Creo varios attachment, uno por fichero?...
El email lo envío a través de SMTP
Un saludo

Hola.

No lo he probado pero creo que si creas un attachment por cada fichero debería de funcionar.

ejemplo
 

ke tal amigo identsoft aqui pongo unejemplo donde envio dos archivos un xls y un pdf
ed_archivo.text y ed_archivo2.text contienen los nombres de los archivos los cuales los tomo de un opendialog.

Código Delphi [-]
procedure Tfrmenviaproveedor2.btnEnviarCorreoClick(Sender: TObject);

var
    Password: String;
  filename, filename2: String;
begin
filename:= ed_archivo.Text;
filename2:= ed_archivo2.Text;
  idMessage.Clear;
  idMessage.FromList.EMailAddresses := '[email protected]';
  idMessage.Recipients.EMailAddresses := ed_mail.Text;
    idMessage.Subject := 'Confirmar Existencias';
  idMessage.AttachmentTempDirectory := filename;
  TIdAttachmentfile.create(idMessage.MessageParts,filename);
  if (ed_archivo2.Text  <>'') then
  TIdAttachmentfile.create(idMessage.MessageParts,filename2);


  mmobserva.Lines.Add('Mensaje de Correo enviado desde Sistema Informatico XXXXXXX.');
  idMessage.Body.AddStrings(mmobserva.Lines);


      idSMTP.Username := '[email protected]';
    idSMTP.Password := ed_contra.text;

    btnEnviarCorreo.Enabled := false;

    try
      if not idSMTP.Connected then
                idSMTP.Connect;

      idSMTP.Send(IdMessage);
       except

      showmessage('Ocurrio un error al Intentar enviar el Correo, Verifique el password indicado');
      rebote:=true;
        btnEnviarCorreo.Enabled := true;
     end;

end;

espero te sirva:cool:

Gracias newtron y kapcomx, voy a probarlo