[VBA] Outlook Makro Frage

[Grolle]

Hallo,

ich habe eine Frage zu einem Makro:

Code:

Sub projekte()

Dim objNS As NameSpace
Dim olExplorer As Outlook.Explorer

Set olExplorer = Application.ActiveExplorer
Set objNS = Application.GetNamespace("MAPI")

Set olExplorer.CurrentFolder = objNS.Folders("Öffentliche Ordner").Folders("Alle Öffentlichen Ordner").Folders("Projekte")

End Sub

Damit öffne ich den Ordner "Alle öffentlichen Ordner" -> "Projekte". Jetzt möchte ich noch die Unterordner angezeigt bekommen.
Der Ordner "Projekte" soll also in der Ordneriste expandiert angezeigt werden. Kann mir da jemand einen Tip geben?

Viele Grüße ...