Outlook-Kalender auslesen

[MrChey]

Hallo,

ich weiß, dass diese Frage schon sehr oft gestellt wurde. Ich habe nachfolgenden Code gefunden und getestet. Soweit funktioniert er auch.
Doch leider kann ich nur den 'Kalender' auslesen, aber nicht die 'Unter-Kalender' [Raum1, Raum2, Raum3].
Es hat mit Sicherheit etwas mit

Code:

CalendarFolder := Topfolder.Folders('Kalender');

zu tun. Ich habe wirklich alles getan, um
eine Lösung zu finden. Kann mir hier jemand helfen? Wäre echt toll.

Delphi-Quellcode:

procedure TForm1.btn1Click(Sender: TObject);
const
  olFolderCalendar = $00000009;
var
  outlook, NameSpace,calendarfolder, Termine, Termin, topfolder: OleVariant;
  i: Integer;
  Datum, ZeitVon, ZeitBis, Firma, Raum, Kategorie, erledigt_jn : string;
  f : TextFile;

begin


  outlook := CreateOleObject('Outlook.Application');
  NameSpace := outlook.GetNameSpace('MAPI');
  TopFolder := NameSpace.Folders[1];
  CalendarFolder := Topfolder.Folders('Kalender');
  Termine := NameSpace.GetDefaultFolder(olFolderCalendar);

  for i := 1 to Termine.Items.Count do
  begin
    Termin := Termine.Items.Item(i);
    Datum := Copy(DateTimeToStr(Termin.Start),1,10);
    ZeitVon := Copy(DateTimeToStr(Termin.Start),12,8);
    ZeitBis := Copy(DateTimeToStr(Termin.End), 12,8);
    Firma := Termin.Subject;
    Raum := Termin.Location;
    Kategorie := Termin.Categories;
    erledigt_jn := 'N';


      if StrToDate(Datum) <> Now then    // Wenn das eingelesene Datum größer ist, als das Aktuelle dann...
        begin                           // schreibe den Termin
          memo1.lines.add( Raum +','+ Kategorie +','+ Firma +','+ Datum +','+ ZeitVon +','+ ZeitBis +','+ erledigt_jn);
     end;

  end;

  Outlook := UnAssigned;
end;