Beim starten von Outlook soll der Baum der Öffentlichen Ordner aufgeklappt werden

Hallo Leute,

bin auf der Suche nach einer Lösung.

Wenn ich Outlook starte, soll automatisch beim Start der Ordner Öffentliche Ordner automatisch aufgeklappt werden.

Es soll nicht ein Ordner im Öffentlichen Ordner angezeigt werden. Da hätt ich schon ne Lösung. /select "outlook:\\Öffentliche Ordner\Alle Öffentlichen Ordner\Fax"

Wenn ich Outlook jetzt mit diesem Parameter starte, dann klappt er den Baum Öffentliche Ordner auf aber zeigt zugleich auch noch den Ordner Fax an.

Ich möchte, das nur der Baum Öffentliche Ordner\Alle Öffentlichen Ordner aufgeklappt wird, damit man sehen kann, ob neu Faxe gekommen sind. Der Ordner Posteingang soll aber trotzdem als erstes angezeigt werden, wenn ich Outlook öffne.

Bin schon 5 Tage am googlen, aber ich finde dazu nix.

Wahrscheinilch könnte man es mit vb lösen, aber da kenn ich mich leider überhaupt nicht aus.

Habt ihr dazu vielleicht eine Lösung?

Jetzt schon mal vielen Dank für eure Antworten.

Viele Grüße
Michael

Private Sub Application_Startup()

    Dim objFolder           As Object

    Set objFolder = Outlook.Session.Folders("Öffentliche Ordner").Folders("Alle Öffentlichen Ordner")  

    If Not objFolder Is Nothing Then
        Outlook.ActiveExplorer.SelectFolder objFolder
        Set objFolder = Nothing
    Else
        Dummy = MsgBox("Der öffentliche Ordner konnte nicht geöffnet werden.", vbCritical + vbOKOnly)  
    End If
End Sub