Pour supprimer tous les sous-dossiers vides d'un certain dossier Outlook, procédez comme suit:

1. presse autre + F11 touches pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.

2Cliquez sur insérer > Module, et collez ci-dessous le code VBA dans la nouvelle fenêtre du module.

VBA: supprimez tous les sous-dossiers vides de certains dossiers Outlook en masse

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 'Declare sub folder objects
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 the folder is empty check for subfolders
If xFldr.Folders.Count < 1 Then 'If the folder contains not sub folders confirm deletion
xFldr.Delete 'Delete the folder
xFlag = True
xCount = xCount + 1
Else 'Folder contains sub folders so confirm deletion
FolderPurge xFldr.Folders, xFlag, xCount
End If
Else 'Folder contains items or (subfolders that may be empty).
FolderPurge xFldr.Folders, xFlag, xCount
End If
Next
End If
End Sub

3. presse F5 Clé ou Courir bouton pour exécuter ce code VBA.

4. Dans la boîte de dialogue contextuelle Sélectionner un dossier, sélectionnez le dossier spécifique dont vous allez supprimer les sous-dossiers vides en bloc, puis cliquez sur le bouton OK bouton. Voir la capture d'écran:

5. Maintenant un Kutools for Outlook La boîte de dialogue apparaît et vous montre combien de sous-dossiers vides ont été supprimés. Clique le OK bouton pour le fermer.

Jusqu'à présent, tous les sous-dossiers du dossier Outlook spécifié ont déjà été supprimés en masse.