Comment compter le nombre de messages marqués dans Outlook ?
Dans Outlook, vous pouvez marquer les messages, contacts ou tâches pour les rendre plus visibles, mais parfois, vous devez compter le nombre d'éléments marqués dans votre Outlook. Comment pourriez-vous gérer cette tâche dans Outlook ?
Compter le nombre de messages marqués dans un compte avec les Dossiers de recherche
a name="a1"> Compter le nombre de messages marqués dans un compte avec les Dossiers de recherche
Pour compter le nombre d'e-mails marqués dans un compte Outlook, la fonctionnalité Dossiers de recherche peut vous aider, veuillez procéder comme suit :
1. Cliquez avec le bouton droit sur Dossiers de recherche sous votre compte de messagerie, puis sélectionnez Nouveau dossier de recherche, voir capture d'écran :
2. Ensuite, une boîte de dialogue Nouveau dossier de recherche s'affiche, cliquez sur l'option Mail marqué pour suivi dans la section Lecture des mails, voir capture d'écran :
3. Puis cliquez sur OK, et tous les messages marqués sont copiés dans le dossier Pour suivi, et le nombre total d'e-mails marqués est affiché comme indiqué dans la capture d'écran suivante :
a name="a2"> Compter le nombre de messages / contacts / tâches marqués séparément dans tous les comptes avec du code VBA
Si vous souhaitez compter le nombre de tous les éléments marqués, tels que les e-mails, contacts et tâches dans Outlook séparément, le code VBA suivant peut vous aider.
1. Maintenez enfoncées les touches ALT + F11 pour ouvrir la fenêtre Microsoft Visual Basic for Applications.
2. Ensuite, cliquez sur Insérer > Module, copiez et collez le code ci-dessous dans le module vide ouvert, voir capture d'écran :
Code VBA : Compter le nombre de fois où des éléments ont été marqués dans Outlook :
Dim GSeparateCount, GMailCount, GContactCount, GTaskCount As Long
Sub CountFlaggedItems()
Dim xStore As Outlook.Store
Dim xTotalCount As Long
Dim xPrompt As String
Dim xFolder As Folder
Dim i, k As Integer
On Error Resume Next
xTotalCount = 0
GMailCount = 0
GContactCount = 0
GTaskCount = 0
For Each xStore In Application.Session.Stores
For Each xFolder In xStore.GetRootFolder.Folders
Call ProcessFolders(xFolder)
Next
Next
xTotalCount = GMailCount + GContactCount + GTaskCount
xPrompt = xTotalCount & " items have been flagged, as follows: " & Chr(10) & Chr(10) & "Emails: " & GMailCount & Chr(10) & "Contacts: " & GContactCount & Chr(10) & "Tasks: " & GTaskCount
MsgBox xPrompt, vbInformation + vbOKOnly, "Kutools for Outlook"
End Sub
Sub ProcessFolders(ByVal CurFolder As Outlook.Folder)
Dim xSubfolder As Outlook.Folder
Dim xItem As Object
Dim i, k As Integer
On Error Resume Next
For i = CurFolder.Items.Count To 1 Step -1
Set xItem = CurFolder.Items.item(i)
Select Case xItem.Class
Case olMail, olPost, olSharing
If xItem.IsMarkedAsTask = True Then
GMailCount = GMailCount + 1
End If
Case olContact, olDistList
If xItem.IsMarkedAsTask = True Then
GContactCount = GContactCount + 1
End If
Case olTask
If CurFolder.DefaultItemType = olTaskItem Then
GTaskCount = GTaskCount + 1
End If
End Select
Next i
If CurFolder.Folders.Count > 0 Then
For k = CurFolder.Folders.Count To 1 Step -1
Set xSubfolder = CurFolder.Folders.item(k)
Call ProcessFolders(xSubfolder)
Next k
End If
End Sub
3. Appuyez ensuite sur la touche F5 pour exécuter ce code, et une boîte de dialogue apparaît pour vous indiquer le nombre total de tous les éléments marqués comme indiqué dans la capture d'écran ci-dessous :
Compter le nombre d'éléments d'aujourd'hui, d'hier, lus, non lus, totaux... dans Outlook Avec la fonctionnalité Statistiques puissante de Kutools pour Outlook, vous pouvez obtenir le nombre d'éléments en fonction de la date, des éléments sélectionnés, lus, non lus, etc., selon vos besoins.  Kutools pour Outlook : avec plus de 70+ add-ins pratiques et gratuits pour Outlook, téléchargez dès maintenant la version gratuite. |
Meilleurs outils de productivité pour Office
Dernière nouvelle : Kutools pour Outlook lance sa version gratuite !
Découvrez le tout nouveau Kutools pour Outlook avec plus de100 fonctionnalités incroyables ! Cliquez pour télécharger dès maintenant !
📧 Automatisation des E-mails : Réponse automatique (disponible pour POP et IMAP) / Programmer l’envoi d’un e-mail / CC/BCC automatique par règle lors de l’envoi / Transfert automatique (règle avancée) / Ajouter automatiquement une salutation / Diviser automatiquement les e-mails multi-destinataires en messages individuels ...
📨 Gestion des E-mails : Rappeler lemail / Bloquer les e-mails frauduleux par objet et autres critères / Supprimer les doublons / Recherche Avancée / Organiser les dossiers ...
📁 Pièces jointes Pro : Enregistrement en lot / Détachement en lot / Compression en lot / Enregistrer automatiquement / Détachement automatique / Compression automatique ...
🌟 Interface magique : 😊Plus d’emojis élégants et amusants / Vous rappelle lorsque des e-mails importants arrivent / Réduire Outlook au lieu de fermer ...
👍 Fonctions en un clic : Répondre à tous avec pièces jointes / E-mails anti-phishing / 🕘Afficher le fuseau horaire de l’expéditeur ...
👩🏼🤝👩🏻 Contacts & Calendrier : Ajouter en lot des contacts à partir des e-mails sélectionnés / Diviser un groupe de contacts en groupes individuels / Supprimer le rappel d’anniversaire ...
Utilisez Kutools dans votre langue préférée – prend en charge l’Anglais, l’Espagnol, l’Allemand, le Français, le Chinois et plus de40 autres !
🚀 Téléchargement en un clic — Obtenez tous les compléments Office
Recommandé vivement : Kutools pour Office (5-en-1)
Un clic pour télécharger cinq installateurs en une seule fois — Kutools pour Excel, Outlook, Word, PowerPoint et Office Tab Pro. Cliquez pour télécharger dès maintenant !
- ✅ Praticité en un clic : téléchargez les cinq packages d’installation en une seule action.
- 🚀 Prêt pour toutes les tâches Office : installez les compléments dont vous avez besoin, quand vous en avez besoin.
- 🧰 Inclus : Kutools pour Excel / Kutools pour Outlook / Kutools pour Word / Office Tab Pro / Kutools pour PowerPoint