Wie ermittelt man die Anzahl der Ordner unter einem bestimmten E-Mail-Konto oder in allen Postfächern in Outlook?
Dieser Artikel zeigt Ihnen, wie Sie die Anzahl der Ordner unter einem bestimmten E-Mail-Konto oder in allen Postfächern in Outlook ermitteln können.
Anzahl der Ordner unter einem bestimmten E-Mail-Konto oder in allen Postfächern mit VBA-Code zählen
„Anzahl der Ordner unter einem bestimmten E-Mail-Konto oder in allen Postfächern mit VBA-Code zählen"
Sie können die Anzahl der Ordner unter einem bestimmten E-Mail-Konto oder in allen Postfächern ganz einfach mit dem folgenden VBA-Code ermitteln – so geht’s:
1. Drücken Sie „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“ > „UserForm“. Siehe Screenshot:
3. Fügen Sie anschließend zwei Optionsfelder und zwei Schaltflächen in „UserForm1“ ein und passen Sie den Anzeigetext der Schaltflächen gemäß dem folgenden Screenshot an.
4. Ändern Sie den Namen des ersten Optionsfelds in „opbCurAccount“ und stellen Sie die Eigenschaft „Value“ auf „True“. Siehe Screenshot:
5. Ändern Sie danach den Namen des zweiten Optionsfelds in „opbAllAccounts“ und legen Sie anschließend die Namen der beiden Schaltflächen auf „cdbOk“ und „cdbCancel“ fest.
6. Doppelklicken Sie auf eine leere Stelle in UserForm1 und ersetzen Sie anschließend den ursprünglichen Code im Fenster „UserForm1 (Code)“ durch den folgenden VBA-Code.
VBA-Code: Anzahl der Ordner in Outlook zählen
Option Explicit
'Update by Extendoffice 20180504
Public xRet As Boolean
Private Sub cdbCancel_Click()
xRet = False
UserForm1.Hide
End Sub
Private Sub cdbOk_Click()
xRet = True
UserForm1.Hide
End Sub
7. Click Insert > Module. Then copy below VBA code into the Module window.
VBA code: Count number of folders in Outlook
Function GetSubFolderCount(ParentFolder As Folder) As Long
Dim xSubFolders As Folders
Dim xCurFolder As Outlook.Folder
Dim xFoldersCount As Integer
On Error Resume Next
Set xSubFolders = ParentFolder.Folders
If xSubFolders.Count > 0 Then
Set xCurFolder = xSubFolders.GetFirst
While TypeName(xCurFolder) = "MAPIFolder"
xFoldersCount = xFoldersCount + GetSubFolderCount(xCurFolder)
Set xCurFolder = xSubFolders.GetNext
Wend
GetSubFolderCount = xFoldersCount + xSubFolders.Count
Else
GetSubFolderCount = 0
End If
End Function
Sub CountFoldersInOutlook()
Dim xNameSpace As NameSpace
Dim xFolder As Folder
Dim xAllFoldersCount As Long
On Error Resume Next
UserForm1.Show
If UserForm1.xRet Then
Set xNameSpace = Outlook.Application.Session
If UserForm1.opbCurAccount.Value Then
Set xFolder = Outlook.Application.ActiveExplorer.CurrentFolder.Store.GetRootFolder
xAllFoldersCount = GetSubFolderCount(xFolder)
ElseIf UserForm1.opbAllAccounts.Value Then
For Each xFolder In xNameSpace.Folders
xAllFoldersCount = xAllFoldersCount + GetSubFolderCount(xFolder)
Next
End If
Else
Exit Sub
End If
MsgBox "Total Folders: " & xAllFoldersCount, vbInformation + vbOKOnly, "Kutools for Outlook"
End Sub8. Drücken Sie die Taste „F5“, um den Code auszuführen. Daraufhin erscheint das Dialogfeld „UserForm1“. Um die Anzahl der Ordner im aktuellen Konto zu ermitteln, wählen Sie die Option „Current Account“ und klicken Sie auf „OK“. Möchten Sie die Anzahl der Ordner in allen Postfächern zählen, wählen Sie stattdessen „All Accounts“ und bestätigen Sie mit „OK“. Siehe Screenshot:
9. Anschließend erscheint ein „Kutools für Outlook“-Dialogfeld, das Ihnen anzeigt, wie viele Ordner im aktuellen Konto oder in allen Postfächern vorhanden sind (siehe folgender Screenshot). Klicken Sie auf „OK“.
Hinweis: Bei der Zählung werden alle ausgeblendeten Ordner berücksichtigt – darunter beispielsweise der Ordner „Conversation Action Settings“ und der Ordner „Quick Step Settings“.
KI-E-Mail-Assistent in Outlook: Intelligentere Antworten, klarere Kommunikation (Ein-Klick-Zauber!)
Vereinfachen Sie Ihre täglichen Outlook-Aufgaben mit dem KI-E-Mail-Assistenten von Kutools für Outlook – einem leistungsstarken Tool, das aus Ihren bisherigen E-Mails lernt, um intelligente und präzise Antworten vorzuschlagen, Ihren E-Mail-Inhalt zu optimieren und Ihnen das mühelose Verfassen und Überarbeiten von Nachrichten zu ermöglichen.
Diese Funktion unterstützt:
- Intelligente Antworten: Erhalten Sie maßgeschneiderte, präzise und sofort einsatzbereite Antworten, die auf Ihren bisherigen Gesprächen basieren.
- Verbesserter Inhalt: Verbessern Sie Ihren E-Mail-Text automatisch – für mehr Klarheit und Wirkung.
- Müheloses Verfassen: Geben Sie einfach Stichwörter ein und überlassen Sie den Rest der KI – mit mehreren Schreibstilen.
- Intelligente Erweiterungen: Erweitern Sie Ihre Gedanken mit kontextbezogenen Vorschlägen.
- Zusammenfassung: Erhalten Sie sofort prägnante Übersichten über lange E-Mails.
- Globale Reichweite: Übersetzen Sie Ihre E-Mails mühelos in jede gewünschte Sprache.
Diese Funktion unterstützt:
- Intelligente E-Mail-Antworten
- Optimierter Inhalt
- Stichwortbasierte Entwürfe
- Intelligente Inhaltserweiterung
- E-Mail-Zusammenfassung
- Mehrsprachige Übersetzung
Warten Sie nicht –laden Sie jetzt den KI-E-Mail-Assistenten herunter und genießen Sie!
Verwandte Artikel:
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor.Kutools für Excel bietet über 300 erweiterte Funktionen zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie die Bearbeitung und das Lesen mit Tabs in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Tabs desselben Fensters – statt in separaten Fenstern.
- Steigert Ihre Produktivität um 50 % und spart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office Das Paket bündelt Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro und ist ideal für Teams, die mit verschiedenen Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins