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