Outlook-Kalender auslesen

[MrChey]

Zitat von Jumpy:

Hab mal was aus einer Excel-VBA-Anwendung kopiert, daher die nicht Delphi-Syntax. Das Prinzip des Zugriffs sollte aber das selbe sein:

Code:

Set Kalender = objApp.GetNamespace("MAPI") _
               .Folders.Item("Öffentliche Ordner") _
               .Folders.Item("Alle Öffentlichen Ordner") _
               .Folders.Item("Kalender") _
               .Folders.Item("Raum1")

Hallo Jumpy,

vielen lieben Dank, habe es versucht zu implentieren. Leider ohne Erfolg.
Ich bekomme immer nur die Fehlermeldung Der versuchte Vorgang konnte nicht ausgeführt werden. Ein Objekt wurde nicht gefunden.
Aber welches Objekt, sagt mir diese Meldung nicht.

[Jumpy]

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

[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.