Comment supprimer en lot tous les dossiers vides dans Outlook ?

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

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

2. Cliquez sur « Insertion » > « Module », puis collez le code VBA suivant dans la nouvelle fenêtre de module.

VBA : Supprimer en bloc tous les sous-dossiers vides d’un dossier Outlook donné

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 lancer ce code VBA.

4. Dans la boîte de dialogue « Sélectionner un dossier » qui s’ouvre, choisissez le dossier spécifique dont vous souhaitez supprimer en bloc les sous-dossiers vides, puis cliquez sur « OK ».

 

5. Une boîte de dialogue Kutools pour Outlook s’affiche désormais, indiquant le nombre de sous-dossiers vides supprimés. Cliquez sur « OK » pour la fermer.

À ce stade, tous les sous-dossiers du dossier Outlook spécifié ont été supprimés en bloc avec succès.