Comment compter le nombre de sous-dossiers contenus dans un dossier donné dans Outlook ?

Supposons que vous ayez créé des dossiers sous un dossier racine. Vous souhaitez maintenant connaître le nombre exact de sous-dossiers qu’il contient. Faut-il simplement développer ce dossier racine et compter manuellement chaque sous-dossier un par un ? Cet article vous propose une méthode simple pour y parvenir.

Compter le nombre de sous-dossiers à l’aide d’un code VBA

---

Compter le nombre de sous-dossiers à l’aide d’un code VBA

Le code VBA suivant vous permet de compter le nombre de sous-dossiers contenus dans un dossier racine donné d’Outlook. Voici la marche à suivre.

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

2. Dans la fenêtre Microsoft Visual Basic pour Applications, cliquez sur Insertion > Module. Copiez ensuite le code VBA ci-dessous et collez-le dans la fenêtre Code.

Code VBA : compter le nombre de sous-dossiers sous un dossier donné dans Outlook

Sub CountSubFldsUnderRootFolder()
Dim xRootFolder As Folder
Dim xFolderCount As Long
Dim xFolder As Object
On Error Resume Next
'Set xRootFolder = Outlook.Application.ActiveExplorer.CurrentFolder
Set xRootFolder = Outlook.Application.Session.PickFolder
If TypeName(xRootFolder) = "Nothing" Then Exit Sub
If xRootFolder.Folders.Count < 1 Then
    MsgBox "No subfolders under " & Chr(34) & xRootFolder.Name & Chr(34) & ".", vbInformation, "Kutools for Outlook"
    Exit Sub
End If
For Each xFolder In xRootFolder.Folders
    If xFolder.Name <> "Conversation Action Settings" And xFolder.Name <> "Quick Step Settings" Then
        xFolderCount = xFolderCount + 1
        Call ProcessFolders(xFolder, xFolderCount)
    End If
Next
MsgBox xFolderCount & " subfolders under " & Chr(34) & xRootFolder.Name & Chr(34) & ".", vbInformation, "Kutools for Outlook"
End Sub

Sub ProcessFolders(SubFolder As MAPIFolder, Num As Long)
Dim xSubFolder As MAPIFolder
On Error Resume Next
Num = Num + SubFolder.Folders.Count
For Each xSubFolder In SubFolder.Folders
    Call ProcessFolders(xSubFolder, Num)
Next
End Sub

3. Appuyez sur la touche F5 pour exécuter le code.

4. Dans la boîte de dialogue Sélectionner un dossier qui s’ouvre, sélectionnez le dossier dont vous souhaitez compter les sous-dossiers, puis cliquez sur le bouton OK. Voir la capture d’écran :

5. Une boîte de dialogue Kutools pour Outlook s’affiche alors pour vous indiquer combien de sous-dossiers existent dans le dossier spécifié. Voir la capture d’écran :

---

Articles associés :

• Comment compter le nombre de dossiers dans un compte de messagerie spécifique ou dans toutes les boîtes aux lettres d’Outlook ?
• Comment regrouper les boîtes de réception de plusieurs comptes afin d’afficher tous vos e-mails en un seul endroit dans Outlook ?
• Comment afficher la boîte de dialogue « Parcourir pour choisir un dossier » dans Outlook ?
• Comment retrouver un dossier manquant déplacé accidentellement dans Outlook ?