Wie kann ich die IMAP-Ordnerstruktur beim Outlook-Start automatisch aufklappen lassen?

Viele User wünschen sich, das die Ordner des IMAP-Postfaches (ähnlich der des 
POP3-Bereiches in der Ordner-Liste) expandiert angezeigt werden. Leider zuckt 
Outlook hier mit den virtuellen Schultern. Der VBA-Spezialist Peter Marchert hat 
diese Anforderung realisisiert-per VBA:

Private Sub Application_Startup()

'====================================================================='
' Öffnet bei Programmstart alle Posteingangsordner und wählt dann'
' einen festgelegten Startordner aus.'
' (c) 2007 Peter Marchert - http://www.outlook-stuff.com'
'====================================================================='

Dim objFolder As Outlook.MAPIFolder
Dim strStartFolder As String
Dim lngFolder As Long

On Error Resume Next

' Startordner festlegen (z. B. "Kontakte", "Posteingang", "Aufgaben" etc.)'
strStartFolder = "Posteingang"

' Alle Posteingangs-Ordner aufklappen'
For lngFolder = 1 To Outlook.Session.Folders.Count
Set objFolder = Outlook.Session.Folders(lngFolder).Folders("Posteingang")
Call Outlook.ActiveExplorer.SelectFolder(objFolder)
Next

' Ordner bei Programmstart anwählen'
If strStartFolder = "Posteingang" Then
Set objFolder = Outlook.Session.GetDefaultFolder(olFolderInbox).Parent
Else
Set objFolder = Outlook.Session.GetDefaultFolder(olFolderInbox).Parent.Folders(strStartFolder)
End If
Call Outlook.ActiveExplorer.SelectFolder(objFolder)

Set objFolder = Nothing

End Sub

Und so binden Sie das Makro ein:
1. Starten Sie mit (Alt) +(F11) den Visual Basic-Editor.
2. Doppelklicken Sie im Projekt-Explorer auf den Eintrag DieseOutlookSitzung, wobei Sie gegebenenfalls zuvor die übergeordneten Zweige einblenden müssen.
3. Geben Sie im Codefenster die o.g. Programmzeilen ein:
4. Beenden Sie den Visual Basic-Editor und speichern das VBA-Projekt
5. Starten Sie das Makro über Extras Makro Makros