Aufgaben in Outlook erstellen

[mmw]

hallo,

ich habe folgendes unter 0ffice 2016 getestet. sollte aber auch mit 365 funktionieren.

Delphi-Quellcode:

var  outlook,
     mytask,
     myfolder
     mynameSpace : OleVariant;

begin

   outlook:=Unassigned;
   mytask:=Unassigned;
   
   mynameSpace:=Unassigned;
   myfolder:=Unassigned;

   outlook := CreateOleObject('Outlook.Application');


  mytask := outlook.CreateItem(olTaskItem);
  mytask.subject := '"Delphi 1"';
  mytask.startdate := Now;
  mytask.body := 'Delphi';
  mytask.save;


  mynameSpace := outlook.GetNamespace('MAPI');
  mynameSpace.Logon(EmptyParam, EmptyParam, False, True);
  myfolder := mynameSpace.GetDefaultFolder(olFolderInbox);
  myfolder.Display;

Gruß