Hallo Muchacho,
Zitat:
Natürlich, wenn die selbst definierte Kalender wie in Deinem Fall als Unterordner von:
Kalender := MeinNameSpace.GetDefaultFolder(olFolderCalendar);
Damit wird nur der Root-Ordner Kalender bestimmt. Damit wird noch nicht ein Unterordner angelegt. Danach wird rekursive alle Kalender bestimmt.
Zitat:
Jedoch im Outlook selbst kann man Kalender als z.B. Unterordner von Posteingang anlegen.
Das geht meiner Meinung nicht. Man kann in zwar im Posteingang anlegen, aber er wird anschließend als Item unter dem Root-Ordner Kalender eingefügt.
Mit dem Quellcode der ich in Beitrag #2 angegeben habe, werden alle Kalender in eine TObjectList eingetragen.
Zitat:
und dann per Rekursion auch alle Unterordner, auslesen.
Genau das wird in den Zeilen:
Delphi-Quellcode:
procedure NeuerOrdner (aUnterOrdner: MAPIFolder; aKalenderListe: TObjectList);
var
i: Integer;
begin
for I := 1 to aUnterOrdner.Folders.Count do
begin
ListeEintragen(aUnterOrdner.Folders.Item(i), aKalenderListe);
NeuerOrdner(aUnterOrdner.Folders.Item(i), aKalenderListe);
end;
end;
gemacht.
Vielleicht führen die von mir gewählten Bezeichnungen zu Irritationen, jedenfalls werden damit die Unterordner vom Root-Kalender in die ObjectList gespeichert und zwar rekursiv.
Bis bald Chemiker