Aufgabe in Outlook eintragen?

[micsie]

nach längerer Suche hab ich eine Lösung gefunden:

Code:

procedure TForm1.Button1Click(Sender: TObject);
var
  OutlookApp  : OleVariant;
  OutlookItem : OleVariant;
  NameSpace   : OleVariant;
begin
  OutlookApp := CreateOleObject('Outlook.Application');
  NameSpace := OutlookApp.GetNameSpace('MAPI');
  OutlookItem := OutlookApp.CreateItem(olTaskItem);
  OutlookItem.Subject := 'Betreff';
  OutlookItem.Body := 'Text';
  OutlookItem.Save;
end;

Hier gibts weitere Infos: http://www.access-paradies.de/news/a...ok_aufgabe.php

mfg micsie