Comment compter les emails par catégorie dans Outlook ?

Compter les emails par catégorie dans Outlook avec la fonctionnalité Recherche instantanée

Compter les emails par catégorie dans Outlook avec VBA

Cette méthode vous guidera pour trouver tous les emails marqués avec les catégories de couleur spécifiées grâce à la fonctionnalité Recherche instantanée, puis obtenir facilement le nombre total de tous les résultats de recherche dans la barre d'état.

1. Dans la vue Mail, appuyez simultanément sur Ctrl + E pour activer les Outils de recherche.

2. Cliquez sur Recherche > Catégorisé, puis sélectionnez la catégorie de couleur spécifiée selon laquelle vous souhaitez compter les emails.

3. Maintenant, tous les emails marqués avec la catégorie de couleur spécifiée sont trouvés et listés dans la liste des emails. Vous pouvez facilement obtenir le nombre total de tous les résultats de recherche dans la barre d'état. Voir capture d'écran :

Remarques :

(1) Pour compter les emails marqués avec la catégorie Jaune et la catégorie Orange simultanément, veuillez saisir directement dans la zone de Recherche instantanée le critère de recherche category:="Jaune" AND "Orange".

(2) Pour compter les emails marqués avec la catégorie Jaune ou la catégorie Orange simultanément, veuillez saisir directement dans la zone de Recherche instantanée le critère de recherche category:="Jaune" OR "Orange".

Cette méthode présentera un VBA pour compter les emails par catégorie dans une plage de dates personnalisée dans Outlook. Veuillez procéder comme suit :

1. Dans la vue Mail, sélectionnez le dossier d'emails dont vous souhaitez compter les emails.

2. Appuyez simultanément sur Alt + F11 pour ouvrir la fenêtre Microsoft Visual Basic for Applications.

3. Cliquez sur Insérer > Module, puis collez le code VBA ci-dessous dans la nouvelle fenêtre Module qui s'ouvre :

VBA : Compter les emails par catégorie dans Outlook

Sub CategoriesEmails()

Dim oFolder As MAPIFolder
Dim oDict As Object
Dim sStartDate As String
Dim sEndDate As String
Dim oItems As Outlook.Items
Dim sStr As String
Dim sMsg As String


On Error Resume Next
Set oFolder = Application.ActiveExplorer.CurrentFolder

Set oDict = CreateObject("Scripting.Dictionary")

sStartDate = InputBox("Type the start date (format MM/DD/YYYY)")
sEndDate = InputBox("Type the end date (format MM/DD/YYYY)")

Set oItems = oFolder.Items.Restrict("[Received] >= '" & sStartDate & "' And [Received] <= '" & sEndDate & "'")
oItems.SetColumns ("Categories")

For Each aitem In oItems
sStr = aitem.Categories
If Not oDict.Exists(sStr) Then
oDict(sStr) = 0
End If
oDict(sStr) = CLng(oDict(sStr)) + 1
Next aitem

sMsg = ""
For Each aKey In oDict.Keys
sMsg = sMsg & aKey & ":   " & oDict(aKey) & vbCrLf
Next
MsgBox sMsg

Set oFolder = Nothing

 End Sub

4. Appuyez sur la touche F5 ou cliquez sur le bouton Exécuter pour exécuter ce VBA.

5. (1) Dans la première boîte de dialogue Microsoft Outlook qui apparaît, saisissez la date de début de la plage de dates personnalisée dans laquelle vous souhaitez compter les emails, puis cliquez sur le bouton OK. (2) Dans la deuxième boîte de dialogue Microsoft Outlook, saisissez la date de fin, puis cliquez sur le bouton OK . Voir captures d'écran :

Une boîte de dialogue apparaît maintenant et affiche le nombre d'emails marqués avec des catégories de couleur. Voir capture d'écran :

Compter le nombre total de résultats de recherche dans Outlook

Compter les heures/jours/semaines passés sur un rendez-vous ou une réunion dans Outlook

Compter le nombre d'emails par sujet dans Outlook

Compter le nombre total d'emails entrants par jour dans Outlook

Compter le nombre total d'emails sélectionnés dans Outlook