Outlock Termine auslesen

[Paul Knodel]

Wie kann ich mit Delphi 4 alle Termine von Outlock 97 auslesen um diese weiterzuverarbeiten ?

[Andreas Kosch]

Hallo,

das folgende Beispiel demonstriert die Vorgehensweise unter Delphi 4. Zuerst muss dazu die Typbibliothek von Outlook importiert werden.
<pre>
uses Outlook_TLB;

procedure TForm1.Button1Click(Sender: TObject);
var
Outlook : _DApplication;
DefNamespace : NameSpace;
Journals : MAPIFolder;
aItem : OleVariant;
iCnt : Integer;
begin
Outlook := CoApplication_.Create;
DefNameSpace := Outlook.GetNamespace('MAPI');
Journals := DefNameSpace.GetDefaultFolder(olFolderCalendar);
for iCnt := 1 to Journals.Items.Count do
begin
aItem := Journals.Items.Item(iCnt);
ListBox1.Items.Add(aItem.Subject);
end;
Outlook := nil;
StatusBar1.SimpleText := 'Fertig';
end;
</pre&gt

[Paul Knodel]

Hallo Herr Kosch,

das hat super geklappt. Vielen Dank !!!
Jetzt muß ich nur noch herausfinden wie ich an die Felder "Ort" und "Beschreibung" komme. Haben Sie hier auch einen Tip greifbar ?

[Andreas Kosch]

Hallo,

in der eingebundenen Typbibliotheks-Unit <b>Outlook_TLB.pas</b> werden alle Interfaces mit ihren Methoden und <b>Eigenschaften</b> beschrieben. Dort sollte ein Interface mit dem Namen <b>_DJournalItem</b> (oder so ähnlich, ich bin jetzt zu faul, nachzuschauen) vorhanden sein. Und in dieser Interface-Beschreibung werden alle Eigenschaften aufgelistet