Wie ermittelt man die Anzahl der Unterordner eines bestimmten Ordners in Outlook?

Angenommen, Sie haben mehrere Ordner unter einem Stammordner erstellt und möchten nun herausfinden, wie viele Unterordner sich darin befinden. Wollen Sie den Stammordner wirklich jedes Mal manuell erweitern und die Unterordner einzeln zählen? Dieser Artikel zeigt Ihnen eine einfache Methode, um genau das zu vermeiden.

Anzahl der Unterordner mit VBA-Code zählen

---

Anzahl der Unterordner mit VBA-Code zählen

Der folgende VBA-Code hilft Ihnen, die Anzahl der Unterordner eines bestimmten Stammordners in Outlook zu ermitteln. Gehen Sie dazu wie folgt vor:

1. Drücken Sie die Tasten Alt + F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen.

2. Klicken Sie im Fenster Microsoft Visual Basic for Applications auf Einfügen > Modul. Anschließend kopieren Sie den unten stehenden VBA-Code in das Code-Fenster.

VBA-Code: Anzahl der Unterordner unter einem bestimmten Ordner in Outlook zählen

Sub CountSubFldsUnderRootFolder()
Dim xRootFolder As Folder
Dim xFolderCount As Long
Dim xFolder As Object
On Error Resume Next
'Set xRootFolder = Outlook.Application.ActiveExplorer.CurrentFolder
Set xRootFolder = Outlook.Application.Session.PickFolder
If TypeName(xRootFolder) = "Nothing" Then Exit Sub
If xRootFolder.Folders.Count < 1 Then
    MsgBox "No subfolders under " & Chr(34) & xRootFolder.Name & Chr(34) & ".", vbInformation, "Kutools for Outlook"
    Exit Sub
End If
For Each xFolder In xRootFolder.Folders
    If xFolder.Name <> "Conversation Action Settings" And xFolder.Name <> "Quick Step Settings" Then
        xFolderCount = xFolderCount + 1
        Call ProcessFolders(xFolder, xFolderCount)
    End If
Next
MsgBox xFolderCount & " subfolders under " & Chr(34) & xRootFolder.Name & Chr(34) & ".", vbInformation, "Kutools for Outlook"
End Sub

Sub ProcessFolders(SubFolder As MAPIFolder, Num As Long)
Dim xSubFolder As MAPIFolder
On Error Resume Next
Num = Num + SubFolder.Folders.Count
For Each xSubFolder In SubFolder.Folders
    Call ProcessFolders(xSubFolder, Num)
Next
End Sub

3. Drücken Sie die Taste F5, um den Code auszuführen.

4. Wählen Sie im geöffneten Dialogfeld Ordner auswählen den Ordner aus, dessen Unterordner Sie zählen möchten, und klicken Sie anschließend auf die Schaltfläche OK. Siehe Screenshot:

5. Anschließend erscheint das Dialogfeld Kutools für Outlook, das Ihnen anzeigt, wie viele Unterordner sich im angegebenen Ordner befinden. Siehe Screenshot:

---

Verwandte Artikel:

• Wie lässt sich die Anzahl der Ordner unter einem bestimmten E-Mail-Konto oder in allen Postfächern in Outlook ermitteln?
• Wie können Sie die Posteingänge mehrerer Konten zusammenführen, um alle E-Mails gemeinsam in Outlook anzuzeigen?
• Wie lässt sich in Outlook ein „Ordner durchsuchen“-Dialogfeld zum Auswählen eines Ordners anzeigen?
• Wie findet man einen versehentlich verschobenen Ordner in Outlook wieder?