Zum Hauptinhalt springen

Kutools für Office — Eine Suite. Fünf Tools. Erledigen Sie mehr.

Wie kann man alle leeren Ordner in Outlook stapelweise löschen?

Author Kelly Last modified

Angenommen, es gibt Dutzende von leeren Ordnern unter einem E-Mail-Ordner in Outlook. Normalerweise können wir die leeren Ordner einzeln durch Rechtsklick auf jeden Ordner löschen. Im Vergleich zum wiederholten Rechtsklicken stellt dieser Artikel ein VBA-Skript vor, um schnell alle leeren Unterordner eines Outlook-Ordners in einem Massenvorgang zu löschen.

Stapelweise alle leeren Ordner in Outlook mit VBA löschen


Stapelweise alle leeren Ordner in Outlook mit VBA löschen

Um alle leeren Unterordner eines bestimmten Outlook-Ordners zu entfernen, 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 auf „Einfügen“ > „Modul“ und fügen Sie den folgenden VBA-Code in das neue Modulfenster ein.

VBA: Löschen aller leeren Unterordner eines bestimmten Outlook-Ordners in einem Massenvorgang

Public Sub DeletindEmtpyFolder()
Dim xFolders As Folders
Dim xCount As Long
Dim xFlag As Boolean
Set xFolders = Application.GetNamespace("MAPI").PickFolder.Folders
Do
FolderPurge xFolders, xFlag, xCount
Loop Until (Not xFlag)
If xCount > 0 Then
MsgBox "Deleted " & xCount & "(s) empty folders", vbExclamation + vbOKOnly, "Kutools for Outlook"
Else
MsgBox "No empty folders found", vbExclamation + vbOKOnly, "Kutools for Outlook"
End If
End Sub

Public Sub FolderPurge(xFolders, xFlag, xCount)
Dim I As Long
Dim xFldr As Folder
xFlag = False
If xFolders.Count > 0 Then
For I = xFolders.Count To 1 Step -1
Set xFldr = xFolders.Item(I)
If xFldr.Items.Count < 1 Then
If xFldr.Folders.Count < 1 Then
xFldr.Delete
xFlag = True
xCount = xCount + 1
Else
FolderPurge xFldr.Folders, xFlag, xCount
End If
Else
FolderPurge xFldr.Folders, xFlag, xCount
End If
Next
End If
End Sub
screenshot of VBA editor inserting code

3. Drücken Sie „F5“ oder klicken Sie auf die Schaltfläche „Ausführen“, um diesen VBA-Code auszuführen.

4. Wählen Sie im erscheinenden Dialogfeld „Ordner auswählen“ den spezifischen Ordner aus, dessen leere Unterordner Sie im großen Stil löschen möchten, und klicken Sie auf die Schaltfläche „OK“.

screenshot selecting folder in Outlook

 

5. Nun wird ein Kutools für Outlook-Dialogfeld angezeigt, das zeigt, wie viele leere Unterordner gelöscht wurden. Klicken Sie auf die Schaltfläche „OK“, um es zu schließen.

screenshot showing number of deleted folders

Bis jetzt wurden alle Unterordner des angegebenen Outlook-Ordners erfolgreich im großen Stil gelöscht.

screenshot after deleting empty folders

Verwandte Artikel

Ordner (vollständiger Ordnerpfad) anhand des Ordnernamens in Outlook finden


Beste Office-Produktivitätstools

Eilmeldung: Kutools für Outlook veröffentlicht kostenlose Version!

Erleben Sie das brandneue Kutools für Outlook mit über100 unglaublichen Funktionen! Jetzt herunterladen!

🤖 Kutools AI : Nutzt fortschrittliche KI-Technologie, um E-Mails mühelos zu verwalten – inklusive Antworten, Zusammenfassen, Optimieren, Erweitern, Übersetzen und Verfassen von E-Mails.

📧 E-Mail-Automatisierung: Automatische Antwort (verfügbar für POP und IMAP)/E-Mail senden planen/Automatische CC/BCC nach Regel beim Senden von E-Mail/Automatische Weiterleitung (Erweiterte Regeln) /Begrüßung automatisch hinzufügen/E-Mails mit mehreren Empfängern automatisch in einzelne E-Mails aufteilen...

📨 E-Mail-Management: E-Mail zurückrufen/Betrugs-E-Mails nach Betreff und anderen Kriterien blockieren/Duplikate löschen/Erweiterte Suche/Ordner organisieren...

📁 Anhänge Pro:Stapel speichern/Stapel ablösen/Stapel komprimieren/Automatisch speichern/Automatisch abtrennen/Automatische Komprimierung...

🌟 Interface-Magie: 😊Mehr schöne und coole Emojis /Benachrichtigung bei wichtigen E-Mails/Outlook minimieren statt schließen...

👍 Ein-Klick-Genies: Allen mit Anhängen antworten /Anti-Phishing-E-Mails/🕘Zeitzone des Absenders anzeigen...

👩🏼‍🤝‍👩🏻 Kontakte & Kalender: Stapel Kontakt aus ausgewählten E-Mails hinzufügen/Kontaktgruppe in einzelne Gruppen aufteilen/Geburtstagserinnerung entfernen...

Verwenden Sie Kutools in Ihrer bevorzugten Sprache – unterstützt Englisch, Spanisch, Deutsch, Französisch, Chinesisch und über40 weitere!

Schalten Sie Kutools für Outlook sofort mit einem einzigen Klick frei. Nicht zögern, jetzt herunterladen und Ihre Effizienz steigern!

kutools for outlook features1 kutools for outlook features2

🚀 Ein-Klick-Download — alle Office-Add-Ins verfügbar

Dringend empfohlen: Kutools für Office (5-in-1)

Mit einem Klick laden Sie fünf Installationsprogramme gleichzeitig herunter — Kutools für Excel, Outlook, Word, PowerPoint und Office Tab Pro. Jetzt herunterladen!

  • Ein-Klick-Komfort: Laden Sie alle fünf Installationspakete in nur einem Schritt herunter.
  • 🚀 Für jede Office-Aufgabe bereit: Installieren Sie die benötigten Add-Ins genau dann, wenn Sie sie brauchen.
  • 🧰 Enthalten: Kutools für Excel / Kutools für Outlook / Kutools für Word / Office Tab Pro / Kutools für PowerPoint