Wie zählt man die Anzahl der Unterordner in einem bestimmten Ordner in Outlook?
Angenommen, Sie haben einige Ordner unter einem Stammordner erstellt. Nun möchten Sie wissen, wie viele Unterordner sich unter dem Stammordner befinden. Wie können Sie das tun? Den Stammordner einfach ausklappen und alle Unterordner manuell einzeln zählen? Dieser Artikel stellt eine einfache Methode vor, um dies zu erreichen.
Anzahl der Unterordner mit VBA-Code zählen
Anzahl der Unterordner mit VBA-Code zählen
Der folgende VBA-Code kann Ihnen helfen, die Anzahl der Unterordner unter einem bestimmten Stammordner in Outlook zu zählen. Gehen Sie bitte 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. Kopieren Sie dann den folgenden VBA-Code und fügen Sie ihn in das Codefenster ein.
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 Sub3. Drücken Sie die Taste F5, um den Code auszuführen.
4. Wählen Sie im Dialogfeld „ Ordner auswählen“ einen Ordner aus, dessen Unterordner Sie zählen möchten, und klicken Sie dann auf die Schaltfläche OK. Siehe Screenshot:
5. Dann erscheint ein Dialogfeld von Kutools für Outlook, das Ihnen mitteilt, wie viele Unterordner im angegebenen Ordner vorhanden sind. Siehe Screenshot:
Verwandte Artikel:
- Wie zählt man die Anzahl der Ordner unter einem bestimmten E-Mail-Konto oder allen Postfächern in Outlook?
- Wie vereinheitlicht man alle Posteingänge mehrerer Konten, um alle E-Mails zusammen in Outlook anzuzeigen?
- Wie zeigt man ein „Durchsuchen nach Ordner“-Dialogfeld zur Auswahl eines Ordners in Outlook an?
- Wie findet man einen fehlenden Ordner, der versehentlich verschoben wurde, in Outlook?
Beste Office-Produktivitätstools
Eilmeldung: Kutools für Outlook startet kostenlose Version!
Erleben Sie die brandneue kostenlose Version von Kutools für Outlook mit über70 unglaublichen Funktionen, die Sie FÜR IMMER nutzen können! Klicken Sie jetzt, um herunterzuladen!
📧 E-Mail-Automatisierung: Automatische Antwort (Verfügbar für POP und IMAP) / E-Mails senden planen / Automatische CC/BCC nach Regeln beim Senden von E-Mails / Automatische Weiterleitung (Erweiterte Regeln) / Automatische Begrüßung hinzufügen / Automatisches Aufteilen von E-Mails mit mehreren Empfängern in einzelne Nachrichten ...
📨 E-Mail-Management: E-Mails zurückrufen / Betrugs-E-Mails nach Betreff und anderen blockieren / Duplikate E-Mails löschen / Erweiterte Suche / Ordner organisieren ...
📁 Anhänge Pro: Stapelspeichern / Stapelablösen / Stapelkomprimieren / Automatisch speichern / Automatisch abtrennen / Automatische Komprimierung ...
🌟 Interface Magic: 😊Mehr hübsche und coole Emojis / Erinnern Sie, wenn wichtige E-Mails kommen / Outlook minimieren statt schließen ...
👍 Ein-Klick-Wunder: Allen mit Anhängen antworten / Anti-Phishing-E-Mails / 🕘Zeitzone des Absenders anzeigen ...
👩🏼🤝👩🏻 Kontakte & Kalender: Kontakte aus ausgewählten E-Mails stapelweise hinzufügen / Eine Kontaktgruppe in einzelne Gruppen aufteilen / Geburtstagserinnerung entfernen ...
