Beitrag aus SmartTools Outlook Weekly
Anzeige aller Elemente für mehrere Ordner einschalten
Outlook 365 2024 2021 2019 2016 2013
FRAGE In den Ordnereigenschaften gibt es die Option Anzahl aller Elemente anzeigen. Damit wird die entsprechende Zahl in der Ordnerliste hinter dem Ordnernamen angezeigt, so dass ich sofort einen Überblick über den Umfang der einzelnen Ordner erhalte. Ich suche schon lange nach einer Möglichkeit, diese Option automatisch für mehrere Ordner einzuschalten. Oder zumindest für alle Unterordner eines bestimmten Ordnerzweiges. Offensichtlich vererbt sich die Einstellung aber nicht automatisch auf die Unterordner - nicht einmal auf neue Unterordner. Muss ich wirklich immer wieder jeden Ordner mit der rechten Maustaste anklicken, dann Eigenschaften anwählen und schließlich die Option Anzahl aller Elemente anzeigen einschalten?
Diverse Anfragen
ANTWORT Wenn Sie nach einer Lösung fragen, die auf einem speziellen Outlook-Befehl oder auf einer versteckten Programmfunktion aufbaut, dann lautet die Antwort leider: Ja! Ordnereigenschaften können über die normale Benutzeroberfläche leider nicht "am Stück" geändert werden.
Aber es gibt ja noch VBA. Mit ein paar Zeilen Programmcode können Sie für alle Unterordner eines Ordnerzweiges die Option Anzahl aller Elemente anzeigen einschalten. Geben Sie dafür zuerst den VBA-Code ein:
- Wechseln Sie aus Outlook mit Alt + F11 in den Visual Basic-Editor.
- Wählen Sie Einfügen-Modul an, um ein neues Codefenster zu öffnen.
- Geben Sie in dieses Codefenster folgende VBA-Prozeduren ein:
Sub StartOrdneranpassung()
Dim oNsp As Outlook.NameSpace
Dim oFld As Object
On Error Resume Next
Set oNsp = Application.GetNamespace("MAPI")
Set oFld = oNsp.PickFolder
If Not oFld Is Nothing Then
OrdnerBearbeiten oFld
Set oFld = Nothing
End If
Set oNsp = Nothing
End Sub
Sub OrdnerBearbeiten(EditFolder As Object)
Dim oFld As Object
On Error Resume Next
EditFolder.ShowItemCount = olShowTotalItemCount
For Each oFld In EditFolder.Folders
OrdnerBearbeiten oFld
Next
Set oFld = Nothing
End Sub
- Verlassen Sie den Visual Basic-Editor wieder, indem Sie Datei-Schließen und zurück zu Microsoft (Office) Outlook aufrufen.
Um die Option Anzahl aller Elemente anzeigen nun für mehrere Ordner einzuschalten, drücken Sie Alt + F8, womit Sie das Dialogfenster Makros öffnen. In der Liste verfügbarer Makros doppelklicken Sie dann auf den Eintrag
StartOrdneranpassung
Daraufhin öffnet sich ein Dialogfenster, in dem Sie einen Ordner auswählen können. Für diesen Ordner und für alle Unterordner wird die Ordnereigenschaft angepasst. So können Sie zum Beispiel den Posteingang und alle Unterordner gleichzeitig umstellen. Bestätigen Sie Ihre Wahl mit Ok. - Nach wenigen Augenblicken sollten Sie in der Ordnerliste das gewünschte Resultat sehen.