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 une 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 emails : Réponse automatique (disponible pour POP et IMAP) / Programmation de l’envoi des emails / CC/BCC automatique selon des règles lors de l’envoi / Transfert automatique (Règle avancée) / Ajout automatique de la salutation / Fractionnement automatique des emails multi-destinataires en messages individuels...
📨 Gestion des emails : Rappeler les emails / Bloquer les emails frauduleux par sujet et autres critères / Supprimer les emails en double / Recherche Avancée / Organiser les dossiers...
📁 Pièces jointes Pro:Enregistrer par lot / Détachement par lot / Compression par lot / Enregistrer automatiquement/ Détachement automatique/Compression automatique...
🌟 Magie de l’interface : 😊Davantage d’emojis beaux et sympas / Recevez une alerte en cas d’email important / Réduisez Outlook au lieu de le fermer...
👍 Fonctions en un clic : Répondre à tous avec pièces jointes / Anti-phishing emails / 🕘Afficher le fuseau horaire de l’expéditeur...
👩🏼🤝👩🏻 Contacts & Calendrier: Ajouter des contacts en lot à partir des emails sélectionnés / Diviser un groupe de contacts en groupes individuels / Supprimer le rappel d’anniversaire...
Utilisez Kutools dans la langue de votre choix– prend en charge l’anglais, l’espagnol, l’allemand, le français, le chinois, et plus de40 autres langues !
