E-Mail + Attachements mit Outlook versenden.

[mannewolff]

Ich habe jetzt einen Code Snibble gefunden, aber noch nicht ausprobiert

Delphi-Quellcode:

procedure SendOutlookMail;
const
  olMailItem = 0;
var
  Outlook: OleVariant;
  vMailItem: variant;
begin
  try
    Outlook := GetActiveOleObject('Outlook.Application');
  except
    Outlook := CreateOleObject('Outlook.Application');
  end;
  vMailItem := Outlook.CreateItem(olMailItem);
  vMailItem.Recipients.Add('[e-mail]');
  vMailItem.Subject := 'test email';
  vMailItem.Body := 'This is a test';
  vMailItem.Attachments.Add('C:\temp\sample.txt');
  vMailItem.Send;

  VarClear(Outlook);
end;

Was mich gleich zu der nächsten Frage führt: Wo bekomme ich eine Dokumentation, was ich mit dem Ole-Objekt alles machen kann? Schwierig, Schwierig.