Outlook-Kalender auslesen

[MrChey]

Zitat von Jumpy:

Wie hast du es denn gemacht? Welche Bezeichnungen? Und an welcher Stelle kommt die Fehlermeldung?

Delphi-Quellcode:

procedure TfrmEinstellungen.AutoImport();
const olFolderCalendar = 9;
      olPublicFoldersAllPublicFolders = 12;
var
  outlook, NameSpace,calendarfolder, Termine, Termin,topfolder: OleVariant;
  i: Integer;
  Created : Boolean;
  f : TextFile;

begin
  outlook := CreateOleObject('Outlook.Application');
  Created := True;
  NameSpace := outlook.GetNameSpace('MAPI');
  TopFolder := NameSpace.GetDefaultFolder(olFolderCalendar);
  Termine := TopFolder.Folders(kal);


// Titel des Termins und Startdatum mit Zeit auslesen:
for i := 1 to Termine.Items.Count do
  begin
    Termin := Termine.Items.Item(i);

//...

Yeehaaah. So läuft es wunderbar.