Outlook: Ordner nach neustart aufgeklappt lassen

Jeder kennt es, Outlook schließt immer alle Ordner sobald man sein Outlook beendet.
Mit diesem Marko kann man einfach seinen Öffentlichen Ordner (mit Unterordner) aufgeklappt lassen, auch nach Neustart von Outlook.

1. „C:\Programme\Microsoft Office\Office\OFFICE11\SELFCERT.EXE“ öffnen und ein Zertifikat auf seinen Namen ausstellen. Danach Programm schließen.

2. Outlook starten und unter „Extras -> Makro -> Visual Basic-Editor” öffnen

3. Im Linken oberen Register “DeineOutlookSitzung” öffnen.

4. Folgendes Script unter “DeineOutlookSitzung” kopieren:

Private Sub Application_Startup()

Dim objFolder As Object

Set objFolder = Outlook.Session.Folders(“Öffentliche Ordner”).Folders(“Alle Öffentlichen Ordner”).Folders(“Ordner1″).Folders(“Ordner2″)

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

5. Die jeweiligen Ordner im Script Anpassen. - .Folders(“Ordner1″).Folders(“Ordner2″)

6. Unter „Extras -> Digitale Signatur“ die erstellte Signatur angeben.

7. Speichern und Outlook Neustarten. Jetzt sollte Outlook immer den Öffentlichen Ordner geöffnet haben. Dieses Script kann man auch für andere Objekte wie z.B. Kontakte oder Kalender anpassen.

Das Scirpt kann natürlich auch für zwei Ordner angepasst werden. D.h. das zwei Ordner bei start gleichzeitig geöffnet sind.