Hoe alle lege mappen in Outlook bulksgewijs verwijderen?

Om alle lege submappen van een bepaalde Outlook-map te verwijderen, doe het volgende:

1. Druk op de toetsen "Alt" + "F11" om het Microsoft Visual Basic for Applications-venster te openen.

2. Klik op "Invoegen" > "Module" en plak de volgende VBA-code in het nieuwe modulevenster.

VBA: Verwijder alle lege submappen van een bepaalde Outlook-map in bulk

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. Druk op "F5" of klik op de knop "Uitvoeren" om deze VBA-code uit te voeren.

4. Selecteer in het pop-upvenster Map selecteren de specifieke map waarvan u de lege submappen in bulk wilt verwijderen en klik op de knop "OK".

5. Nu verschijnt er een dialoogvenster van Kutools voor Outlook, waarin wordt getoond hoeveel lege submappen zijn verwijderd. Klik op de knop "OK" om het te sluiten.

Tot nu toe zijn alle submappen van de gespecificeerde Outlook-map succesvol in bulk verwijderd.