Comment compter le nombre de sous-dossiers dans certains dossiers dans Outlook?

Auteur : Siluvia Dernière modification: 2024-09-03

Supposons que vous ayez créé des dossiers sous un dossier racine. Maintenant, vous voulez savoir combien de sous-dossiers sous le dossier racine, comment pouvez-vous faire? Développez simplement le dossier racine et comptez manuellement tous les sous-dossiers un par un? Cet article vous présentera une méthode simple pour y parvenir.

Compter le nombre de sous-dossiers avec le code VBA

Compter le nombre de sous-dossiers avec le code VBA

Le code VBA suivant peut vous aider à compter le nombre de sous-dossiers sous un certain dossier racine dans Outlook. Veuillez faire comme suit.

1. appuie sur le autre + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

2. dans le Microsoft Visual Basic pour applications fenêtre, cliquez sur insérer > Module. Ensuite, copiez et collez ci-dessous le code VBA dans la fenêtre Code.

Code VBA: comptez le nombre de sous-dossiers sous certains dossiers 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. appuie sur le F5 clé pour exécuter le code.

4. Dans l'ouverture Sélectionner le dossier boîte de dialogue, sélectionnez un dossier dans lequel vous comptez ses sous-dossiers, puis cliquez sur le OK bouton. Voir la capture d'écran:

étapes pour compter le nombre de sous-dossiers sous un certain dossier dans Outlook à l'aide de vba

5. Puis un Kutools for Outlook La boîte de dialogue apparaît pour vous dire combien de sous-dossiers existent dans le dossier spécifié. Voir la capture d'écran:

Meilleurs outils de productivité bureautique

Dernières nouvelles : lancement de Kutools pour Outlook Version gratuite!

Découvrez le tout nouveau Kutools pour Outlook Version GRATUITE avec plus de 70 fonctionnalités incroyables, à utiliser POUR TOUJOURS! Cliquez pour télécharger maintenant!

🤖 Kutools IA : Utilise une technologie d'IA avancée pour gérer les e-mails sans effort, notamment en répondant, en résumant, en optimisant, en prolongeant, en traduisant et en composant des e-mails.

📧 Email Automation: Réponse automatique (disponible pour POP et IMAP) / Programmer l'envoi d'e-mails / Auto CC/BCC par règles lors de l'envoi d'un e-mail / Transfert automatique (règles avancées) / Ajouter un message d'accueil automatique / Divisez automatiquement les e-mails multi-destinataires en messages individuels

(I.e. Email Management: Rappel des e-mails / Bloquer les e-mails frauduleux par sujets et autres / Supprimer les e-mails en double / Recherche Avancée / Consolider les dossiers

(I.e. Pièces jointes Pro: Sauvegarde par lots / Détachement par lots / Compression par lots / Enregistrement automatique / Détachement automatique / Compression automatique

???? Magie de l'interface: 😊Plus d'émojis jolis et cool / Vous rappeler lorsque des e-mails importants arrivent / Réduire Outlook au lieu de fermer

???? Merveilles en un clic: Répondre à tous avec les pièces jointes entrantes / E-mails anti-hameçonnage / 🕘Afficher le fuseau horaire de l'expéditeur

👩🏼‍🤝‍👩🏻 Contacts et calendrier: Ajouter par lots des contacts à partir des e-mails sélectionnés / Diviser un groupe de contacts en groupes individuels / Supprimer les rappels d'anniversaire

Déverrouillez instantanément Kutools pour Outlook en un seul clic :gratuit en permanence. N'attendez pas, téléchargez maintenant et augmentez votre efficacité !