Enviar varios archivos adjuntos por email

[kapcomx]

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