Comment compter le nombre d’e-mails marqués dans Outlook ?

Dans Outlook, vous pouvez marquer des messages, contacts ou tâches pour les mettre en évidence, mais comment compter rapidement le nombre d’éléments marqués ?

Comptez le nombre de E-mails marqués dans un compte à l’aide des dossiers de recherche

Comptez séparément le nombre de E-mails marqués / contacts / tâches dans tous les comptes à l’aide d’un code VBA

---

a name="a1">Comptez le nombre de E-mails marqués dans un compte à l’aide des dossiers de recherche

Pour compter le nombre de courriels marqués dans un compte Outlook, la fonctionnalité Dossiers de recherche peut vous aider. Procédez 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 la capture d’écran :

2. Une boîte de dialogue Nouveau dossier de recherche s’ouvre alors. Cliquez sur l’option Courrier marqué pour suivi dans la section Lecture du courrier, voir la capture d’écran :

3. Cliquez ensuite sur OK : tous les e-mails marqués sont alors copiés dans le dossier À suivre, où s’affiche le nombre total de courriels marqués, comme illustré dans la capture d’écran suivante :

---

a name="a2">Comptez séparément le nombre de E-mails marqués / contacts / tâches dans tous les comptes à l’aide d’un code VBA

Si vous souhaitez compter séparément le nombre de tous les éléments marqués — tels que les courriels, contacts et tâches — dans Outlook, le code VBA suivant vous sera particulièrement utile.

1. Maintenez enfoncées les touches ALT + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.

2. Cliquez ensuite sur Insertion > Module, puis copiez-collez le code ci-dessous dans le module vide qui s’ouvre (voir la capture d’écran) :

Code VBA : compter le nombre d’éléments 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. Une boîte de dialogue s’ouvre alors pour vous indiquer le nombre total d’éléments marqués, comme illustré dans la capture d’écran ci-dessous :

---

Comptez le nombre d’éléments d’aujourd’hui, d’hier, lus, non lus, Nombre total d'éléments… dans Outlook Grâce à la puissante fonctionnalité Statistiques de Kutools pour Outlook, vous pouvez obtenir le nombre d’éléments selon la date, le nombre d’éléments sélectionnés, lus, non lus, etc., en fonction de vos besoins. Kutools pour Outlook: avec plus de 70+ compléments Outlook pratiques et gratuits,téléchargez dès maintenant la version gratuite.