Comment obtenir rapidement le nombre total de sous-dossiers sous un dossier spécifique dans Outlook

Peut-être avez-vous créé un grand nombre de sous-dossiers sous un certain dossier, tel que la boîte de réception, dans votre Outlook. Dans ce cas, si vous voulez compter les sous-dossiers, vous devez être réticent à compter manuellement. Ici, nous allons vous partager une manière beaucoup plus intelligente.

Pour mieux classer et archiver les éléments dans Outlook, de nombreux utilisateurs ont l'habitude de créer divers dossiers et sous-dossiers. Pourtant, après coup, ils peuvent trouver un peu difficile de gérer trop de dossiers. Dans ce cas, ils voudront peut-être compter le nombre de sous-dossiers dans un dossier spécifique. Sans aucun doute, il est stupide et fastidieux de compter manuellement. Par conséquent, dans ce qui suit, nous montrerons un moyen beaucoup plus intelligent.

Obtenir le nombre total de sous-dossiers dans un dossier spécifique

1. Au tout début, start votre programme Outlook.
2. Ensuite, dans la fenêtre Outlook, vous pouvez appuyer sur les touches "Alt + F11" pour accéder à l'éditeur VBA.
3. Ensuite, dans la fenêtre contextuelle suivante, vous devez ouvrir un module qui n'est pas utilisé.
4. Ensuite, copiez et collez le code VBA suivant dans ce module.

Sub CountSubfoldersUnderRootFolder()
    Dim objRootFolder As Folder
    Dim lFolderCount As Long
    Dim objFolder As Object
 
    'Get the current folder
    Set objRootFolder = Outlook.Application.ActiveExplorer.CurrentFolder
    'If you want to select, use the following line instead
    'Set objRootFolder = Outlook.Application.Session.PickFolder
 
    If objRootFolder.Folders.count > 0 Then
       For Each objFolder In objRootFolder.Folders
           'Exclude the hidden folders under Inbox
           If objFolder.Name <> "Conversation Action Settings" And objFolder.Name <> "Quick Step Settings" Then
              lFolderCount = lFolderCount + 1
 
              'Process subfolders recursively
              Call ProcessFolders(objFolder, lFolderCount)
           End If
       Next
       MsgBox lFolderCount & " subfolders under " & Chr(34) & objRootFolder.Name & Chr(34) & ".", vbInformation
    Else
       MsgBox "No subfolders under " & Chr(34) & objRootFolder.Name & Chr(34) & ".", vbInformation
    End If
End Sub
 
Sub ProcessFolders(objCurrentFolder As Object, lCount As Long)
    Dim objSubfolder As Object
 
    lCount = lCount + objCurrentFolder.Folders.count
 
    For Each objSubfolder In objCurrentFolder.Folders
        Call ProcessFolders(objSubfolder, lCount)
    Next
End Sub

5. Après cela, vous pouvez quitter la fenêtre actuelle.
6. Plus tard, allez dans "Fichier"> "Options"> "Barre d'outils d'accès rapide". Là, vous pouvez ajouter la nouvelle macro à la barre d'outils Accès rapide.
7. Enfin, vous pouvez essayer cette macro.

• Tout d'abord, sélectionnez un dossier dont vous souhaitez compter les sous-dossiers.
• Ensuite, cliquez sur le bouton macro dans la barre d'outils d'accès rapide.
• Immédiatement, Outlook exécutera cette macro.
• Une fois la macro terminée, vous recevrez un message, comme l'image suivante :

Astuces pour faire face à la corruption d'Outlook

Outlook est extrêmement vulnérable à de nombreux facteurs, notamment les virus, les problèmes logiciels ou matériels, les pannes de courant, etc. Personne ne peut garantir qu'il est en mesure de conserver son fichier Outlook à l'abri de la corruption. Par conséquent, il est essentiel de maîtriser certaines astuces pour faire face aux dégâts. Tout d'abord, vous devez effectuer une sauvegarde PST régulière. De plus, vous devez savoir utiliser Scanpst, l'outil de réparation intégré. Enfin, vous devez préparer un outil externe plus robuste, tel que 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 correctif mdf et produits logiciels de réparation Outlook. Pour plus d'informations, visitez www.datanumen.com