Comment supprimer en masse tous les dossiers vides dans Outlook ?

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

1. Appuyez sur les touches "Alt" + "F11" pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.

2. Cliquez sur "Insérer" > "Module", puis collez le code VBA suivant dans la nouvelle fenêtre du module.

VBA : Supprimer en masse tous les sous-dossiers vides d'un certain dossier Outlook

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. Appuyez sur "F5" ou cliquez sur le bouton "Exécuter" pour exécuter ce code VBA.

4. Dans la boîte de dialogue Sélectionner un dossier qui apparaît, sélectionnez le dossier spécifique dont vous souhaitez supprimer en masse les sous-dossiers vides, puis cliquez sur le bouton "OK".

5. Maintenant, une boîte de dialogue Kutools pour Outlook apparaîtra, indiquant combien de sous-dossiers vides ont été supprimés. Cliquez sur le bouton "OK" pour la fermer.

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