Comment supprimer par lots tous les sous-dossiers vides dans votre Outlook

Si vous souhaitez supprimer par lots tous les sous-dossiers vides de votre Outlook, vous pouvez utiliser la méthode présentée dans cet article. Il vous apprendra à utiliser Outlook VBA pour supprimer les sous-dossiers par lots.

Afin de mieux classer et gérer vos e-mails Outlook, vous devez avoir créé de nombreux sous-dossiers personnalisés sous les dossiers par défaut, peu importe le dossier Boîte de réception, Éléments envoyés ou Brouillons, etc. Cependant, parfois, vous pouvez constater que certains sous-dossiers ne sont pas fréquemment utilisé. Par conséquent, most de temps, ils sont vides sans aucun élément. Dans ce cas, vous espérez supprimer tous les sous-dossiers vides.

En général, vous pouvez cliquer avec le bouton droit sur un tel sous-dossier, puis choisir "Supprimer le dossier" dans le menu contextuel. Néanmoins, s'il y a beaucoup de sous-dossiers vides, les supprimer un par un sera assez gênant. Par conséquent, vous devez attendre un pourboire pour les supprimer tous en masse. Bien qu'Outlook ne fournisse pas une telle fonctionnalité, vous pouvez toujours utiliser le code VBA pour le réaliser rapidement. Dans ce qui suit, nous vous montrerons les étapes et les codes élaborés.

Supprimer par lots tous les sous-dossiers vides

1. En premier lieu, start votre programme Outlook.
2. Appuyez ensuite sur les touches "Alt + F11" dans la fenêtre principale d'Outlook.
3. Ensuite, dans la fenêtre "Microsoft Visual Basic pour Applications", ouvrez un module qui n'est pas utilisé.
4. Ensuite, copiez et collez les codes VBA suivants dans ce module.

Public Sub GetAllSubfolders()
    Dim objFolders As Outlook.Folders
    Dim objFolder As Outlook.Folder
    Dim i As Long
 
    On Error Resume Next
 
    'Change "Personal" to the name of your Outlook data file
    Set objFolders = Outlook.Application.Session.Folders("Personal").Folders
 
    For Each objFolder In objFolders
        If objFolder.Folders.Count > 0 Then
           For i = objFolder.Folders.Count To 1 Step -1
               Call DeleteEmptyFolder(objFolder.Folders(i))
           Next
        End If
    Next
 
    MsgBox ("Completed!")
End Sub

Public Sub DeleteEmptyFolder(objCurrentFolder As Outlook.Folder)
    Dim objSubFolder As Outlook.Folder
    Dim n As Long
 
    If objCurrentFolder.Items.Count = 0 Then
       objCurrentFolder.Delete
    End If
 
    'Process the subfolders recursively
    If objCurrentFolder.Folders.Count > 0 Then
       For n = objCurrentFolder.Folders.Count To 1 Step -1
           Set objSubFolder = objCurrentFolder.Folders(n)
           Call DeleteEmptyFolder(objSubFolder)
       Next
    End If
End Sub

5. Après cela, modifiez le niveau de sécurité de votre macro Outlook sur faible.
6. Finalement, vous pouvez exécuter cette macro en appuyant sur la touche "F5" dans la fenêtre de macro actuelle.
7. Immédiatement, vous découvrirez que tous les sous-dossiers vides seront supprimés.

Récupérer les données Outlook PST corrompues

En raison du fait qu'Outlook est susceptible d'erreurs et de dommages, vous devez faire attention à la sauvegarde de votre fichier Outlook PST. Par exemple, vous devez sauvegarder régulièrement vos données PST. De plus, afin de réparer Outlook problèmes dès que possible, vous devez préparer un outil de réparation réputé et puissant comme DataNumen Outlook Repair.

Introduction de l'auteur:

Shirley Zhang est une experte en récupération de données dans DataNumen, Inc., qui est le leader mondial des technologies de récupération de données, y compris SQL Server la corruption et produits logiciels de réparation Outlook. Pour plus d'informations, visitez www.datanumen.com