Comment compter le nombre de dossiers sous le compte de messagerie spécifié ou toutes les boîtes aux lettres dans Outlook?

Cet article parle de compter le nombre de dossiers sous le compte de messagerie spécifié ou toutes les boîtes aux lettres dans Outlook.

Compter le nombre de dossiers sous le compte de messagerie spécifié ou toutes les boîtes aux lettres avec le code VBA

Compter le nombre de dossiers sous le compte de messagerie spécifié ou toutes les boîtes aux lettres avec le code VBA

Vous pouvez compter le nombre de dossiers sous le compte de messagerie spécifié ou toutes les boîtes aux lettres avec le code VBA ci-dessous. 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 > Formulaire utilisateur. Voir la capture d'écran:

3. Insérez ensuite deux Boutons d'options et deux Boutons de commande développement FormulaireUtilisateur1et modifiez le texte d'affichage des boutons comme illustré ci-dessous.

4. Modifiez le nom du premier bouton d'option en "opbCurCompte»Et modifiez le Plus-value propriété à Vrai. Voir la capture d'écran:

5. Continuez à changer le nom du deuxième bouton d'option en "opbTous les comptes». Et puis spécifiez le nom des deux boutons de commande à "cdbOk" et "cdbAnnuler»Séparément.

6. Double-cliquez sur n'importe quel emplacement vide de UserForm1 et puis remplacez le code d'origine par le code VBA ci-dessous dans la fenêtre Userform1 (Code).

Code VBA: compte le nombre de dossiers dans Outlook

Option Explicit
'Update by Extendoffice 20180504
Public xRet As Boolean
Private Sub cdbCancel_Click()
xRet = False
UserForm1.Hide
End Sub
Private Sub cdbOk_Click()
xRet = True
UserForm1.Hide
End Sub
7. Click Insert > Module. Then copy below VBA code into the Module window.
VBA code: Count number of folders in Outlook
Function GetSubFolderCount(ParentFolder As Folder) As Long
    Dim xSubFolders As Folders
    Dim xCurFolder As Outlook.Folder
    Dim xFoldersCount As Integer
    On Error Resume Next
    Set xSubFolders = ParentFolder.Folders
    If xSubFolders.Count > 0 Then
       Set xCurFolder = xSubFolders.GetFirst
       While TypeName(xCurFolder) = "MAPIFolder"
          xFoldersCount = xFoldersCount + GetSubFolderCount(xCurFolder)
         Set xCurFolder = xSubFolders.GetNext
       Wend
       GetSubFolderCount = xFoldersCount + xSubFolders.Count
    Else
        GetSubFolderCount = 0
    End If
    End Function
    
    Sub CountFoldersInOutlook()
    Dim xNameSpace As NameSpace
    Dim xFolder As Folder
    Dim xAllFoldersCount As Long
    On Error Resume Next
    UserForm1.Show
    If UserForm1.xRet Then
        Set xNameSpace = Outlook.Application.Session
        If UserForm1.opbCurAccount.Value Then
            Set xFolder = Outlook.Application.ActiveExplorer.CurrentFolder.Store.GetRootFolder
            xAllFoldersCount = GetSubFolderCount(xFolder)
        ElseIf UserForm1.opbAllAccounts.Value Then
            For Each xFolder In xNameSpace.Folders
                xAllFoldersCount = xAllFoldersCount + GetSubFolderCount(xFolder)
            Next
        End If
    Else
        Exit Sub
    End If
    MsgBox "Total Folders: " & xAllFoldersCount, vbInformation + vbOKOnly, "Kutools for Outlook"
    End Sub

8. appuie sur le F5 clé pour exécuter le code. Puis un FormulaireUtilisateur1 boîte de dialogue apparaît, pour compter le nombre de dossiers dans le compte actuel, veuillez sélectionner le Compte courant option et cliquez sur le OK bouton. Pour compter le nombre de dossiers dans toutes les boîtes aux lettres, choisissez le Tous les comptes option, puis cliquez sur le OK bouton. Voir la capture d'écran:

9. Puis un Kutools for Outlook La boîte de dialogue apparaît pour vous indiquer le nombre de dossiers existants dans le compte actuel ou dans toutes les boîtes aux lettres comme ci-dessous. Veuillez cliquer sur le OK .

Notes: Tous les dossiers masqués tels que le dossier Paramètres d'action de conversation et le dossier Paramètres Quick Step sont inclus dans le décompte des dossiers.

---

AI Mail Assistant dans Outlook : réponses plus intelligentes, communication plus claire (magie en un clic !) un devis GRATUIT

Rationalisez vos tâches Outlook quotidiennes avec l'assistant AI Mail de Kutools for Outlook. Cet outil puissant apprend de vos e-mails passés pour offrir des réponses intelligentes et précises, optimiser le contenu de vos e-mails et vous aider à rédiger et affiner vos messages sans effort.

Cette fonctionnalité prend en charge :

• Réponses intelligentes : obtenez des réponses élaborées à partir de vos conversations passées : personnalisées, précises et prêtes à l'emploi.
• Contenu amélioré : affinez automatiquement le texte de votre e-mail pour plus de clarté et d'impact.
• Composition sans effort : fournissez simplement des mots-clés et laissez l'IA gérer le reste, avec plusieurs styles d'écriture.
• Extensions intelligentes : développez vos idées avec des suggestions contextuelles.
• Récapitulatif : obtenez instantanément des aperçus concis des longs e-mails.
• Portée mondiale : traduisez facilement vos e-mails dans n’importe quelle langue.

Cette fonctionnalité prend en charge :

• Réponses intelligentes par e-mail
• Contenu optimisé
• Brouillons basés sur des mots clés
• Extension de contenu intelligente
• Résumé par e-mail
• Traduction multilingue

Mieux encore, cette fonctionnalité est complètement faim pour toujours! N'attendez pas—téléchargez AI Mail Assistant maintenant et profitez-en!

Articles Liés:

• Comment afficher une boîte de dialogue «Rechercher un dossier» pour choisir un dossier dans Outlook?