Wie löscht man alle leeren Ordner in Outlook im Batchverfahren?

Um alle leeren Unterordner eines bestimmten Outlook-Ordners zu entfernen, gehen Sie bitte wie folgt vor:

1. Drücken Sie „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 neu geöffnete Modulfenster ein.

VBA: Löschen Sie alle leeren Unterordner eines bestimmten Outlook-Ordners im Batchverfahren

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

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

4. Wählen Sie im erscheinenden Dialogfeld „Ordner auswählen“ den gewünschten Ordner aus, dessen leere Unterordner Sie im Batchverfahren löschen möchten, und bestätigen Sie mit „OK“.

 

5. Nun erscheint ein Kutools für Outlook-Dialogfeld, das anzeigt, wie viele leere Unterordner gelöscht wurden. Klicken Sie auf „OK“, um es zu schließen.

Bislang wurden alle Unterordner des angegebenen Outlook-Ordners erfolgreich im Batchverfahren gelöscht.