Mehrere Dateien an Outlook übergeben? (Komandozeile)

[iKilledKenny]

Delphi-Quellcode:

var
  MI      : Variant;
  Outlook : OleVariant;
begin
  Outlook := CreateOleObject('Outlook.Application');
  MI := Outlook.CreateItem(0);
  MI.Recipients.Add('[e-mail]');
  MI.Subject := 'Test Subject';
  MI.Body := 'test message text';
  MI.Attachments.Add('d:\temp\test1.xls');
  MI.Attachments.Add('d:\temp\test2.xls');
  MI.Send;
end;

Z.B. so

[edit=r_kerber]Auf Wunsch des Verfassers geändert. Mfg, r_kerber[/edit]