Comment compter le nombre de dossiers dans un compte e-mail spécifique ou dans toutes les boîtes aux lettres d’Outlook ?
Cet article explique comment compter le nombre de dossiers associés à un compte e-mail spécifique ou présents dans l’ensemble des boîtes aux lettres d’Outlook.
«Compter le nombre de dossiers sous un compte e-mail spécifique ou dans toutes les boîtes aux lettres à l’aide d’un code VBA»
Vous pouvez compter le nombre de dossiers d’un compte e-mail spécifique ou de toutes les boîtes aux lettres à l’aide du code VBA ci-dessous. Suivez ces étapes :
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 » > « UserForm ». Voir la capture d’écran :
3. Insérez ensuite deux « boutons d’option » et deux « boutons de commande » dans « UserForm1 », puis modifiez le texte affiché sur ces boutons comme illustré dans la capture d’écran ci-dessous.
4. Modifiez le nom du premier bouton d’option en « opbCurAccount » et définissez sa propriété « value » sur « True ». Voir la capture d’écran :
5. Continuez en renommant le deuxième bouton d’option « opbAllAccounts », puis attribuez respectivement les noms « cdbOk » et « cdbCancel » aux deux boutons de commande.
6. Double-cliquez sur une zone vide de UserForm1, puis remplacez le code existant par le code VBA ci-dessous dans la fenêtre « UserForm1 (Code) ».
Code VBA : Compter 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 Sub8. Appuyez sur la touche « F5 » pour exécuter le code. La boîte de dialogue « UserForm1 » s’ouvre alors. Pour compter le nombre de dossiers du compte actuel, sélectionnez l’option « Compte actuel », puis cliquez sur le bouton « OK ». Pour compter le nombre de dossiers dans toutes les boîtes aux lettres, choisissez l’option « Tous les comptes » et cliquez sur « OK ». Voir la capture d’écran :
9. Une boîte de dialogue « Kutools pour Outlook » s’ouvre alors pour vous indiquer le nombre de dossiers présents dans le compte actuel ou dans l’ensemble des boîtes aux lettres, comme le montre la capture d’écran ci-dessous. Cliquez sur le bouton « OK ».
Remarque : Tous les dossiers masqués, tels que le dossier « Paramètres des actions de conversation » et le dossier « Paramètres des étapes rapides », sont inclus dans le décompte.
Assistant IA Mail dans Outlook : des réponses plus intelligentes, une communication plus claire (magie en un clic !) !
Simplifiez vos tâches quotidiennes dans Outlook avec l’Assistant IA Mail de Kutools pour Outlook. Cet outil intelligent s’appuie sur vos e-mails précédents pour vous suggérer des réponses pertinentes, optimiser le contenu de vos messages et vous aider à rédiger et perfectionner vos e-mails en toute simplicité.
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 immédiatement utilisables.
- Contenu amélioré : affinez automatiquement le texte de vos e-mails pour plus de clarté et d’impact.
- Rédaction simplifiée : il vous suffit d’indiquer des mots-clés, et l’IA s’occupe du reste, avec plusieurs styles d’écriture.
- Extensions intelligentes : libérez tout le potentiel de vos idées grâce à des suggestions parfaitement adaptées à votre contexte.
- Résumé : obtenez instantanément des aperçus concis de vos e-mails les plus longs.
- Portée mondiale : traduisez vos e-mails facilement dans n’importe quelle langue.
Cette fonctionnalité prend en charge :
- Réponses intelligentes aux e-mails
- Contenu optimisé
- Brouillons basés sur des mots-clés
- Extension intelligente du contenu
- Résumé d’e-mails
- Traduction multilingue
N’attendez plus –téléchargez dès maintenant l’Assistant IA Mail et profitez-en!
Articles associés :
Meilleurs outils de productivité Office
Boostez vos compétences Excel avec Kutools pour Excel et découvrez une efficacité inégalée.Kutools pour Excel propose plus de 300 fonctionnalités avancées pour accroître votre productivité et Gagner du temps.Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte une interface à onglets à Office et rend votre travail bien plus facile
- Activez l’édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
- Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, au lieu de le faire dans des fenêtres séparées.
- Augmente votre productivité de 50 % et vous fait économiser des centaines de clics de souris chaque jour !
Tous les compléments Kutools en un seul installateur.
Kutools for Office regroupe les compléments pour Excel, Word, Outlook et PowerPoint, ainsi qu’Office Tab Pro, ce qui en fait la solution idéale pour les équipes travaillant sur plusieurs applications Office.
- Suite tout-en-un— compléments pour Excel, Word, Outlook et PowerPoint + Office Tab Pro
- Un seul installateur, une seule licence— installation en quelques minutes (compatible MSI)
- Fonctionne mieux ensemble— productivité optimisée entre les applications Office
- Essai gratuit de 30 jours avec toutes les fonctionnalités— aucune inscription, aucune carte bancaire
- Meilleur rapport qualité-prix— économisez par rapport à l’achat de compléments individuels