OK.
Habe DefNameSpace als
ole deklariert. Den olFolderTasks habe ich
hier gefunden. Der Code jetzt:
Delphi-Quellcode:
procedure TDeskBar.Button1Click(Sender: TObject);
var
Journals : OleVariant;
ItemColl : OleVariant;
aJournal : OleVariant;
OutlookApplication : OleVariant;
iCnt : Integer;
DefNameSpace : OleVariant;
begin
OutlookApplication := CreateOleObject('
Outlook.Application');
DefNameSpace := OutlookApplication.GetNamespace('
MAPI');
Journals := DefNameSpace.GetDefaultFolder($0000000D);
ItemColl := Journals.Items;
for iCnt := 1
to ItemColl.Count
do
begin
aJournal := ItemColl.Item(iCnt);
ShowMessage(aJournal.Subject);
end;
end;
So läuft es.
Vielen Dank!
