Comment compter les e-mails par catégorie dans Outlook ?

Compter les e-mails par catégorie dans Outlook avec la fonction Recherche instantanée

Compter les e-mails par catégorie dans Outlook avec VBA

Cette méthode vous guide pas à pas pour retrouver tous les e-mails marqués avec la catégorie de couleur spécifiée grâce à la fonction Recherche instantanée, puis obtenir facilement le nombre total de résultats directement dans la Barre d'état.

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

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

3. Tous les e-mails marqués avec la catégorie de couleur spécifiée sont désormais regroupés et affichés dans la liste des e-mails. Vous pouvez consulter facilement le nombre total de résultats de recherche en bas de la barre d’état. Voir la capture d’écran :

Remarques :

(1) Pour compter les e-mails marqués à la fois avec la catégorie Jaune etla catégorie Orange, saisissez directement dans la zone de Recherche instantanéele critère suivant : category:=«Yellow Category» AND "Orange Category" :

(2) Pour compter les e-mails marqués avec la catégorie Jaune oula catégorie Orange, saisissez directement dans la zone de Recherche instantanéele critère suivant : category:=« Yellow Category » OR « Orange Category ».

Cette méthode présente une macro VBA permettant de compter les e-mails par catégorie sur une plage de dates personnalisée dans Outlook. Procédez comme suit :

1. Dans la vue Courrier, sélectionnez le dossier de messagerie dans lequel vous souhaitez compter les e-mails.

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

3. Cliquez sur Insertion > Module, puis collez le code VBA ci-dessous dans la nouvelle fenêtre de module qui s’ouvre :

VBA : Compter les e-mails 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 lancer cette macro VBA.

5. (1) Dans la première boîte de dialogue Microsoft Outlook qui s’affiche, saisissez la date de début de la plage de dates personnalisée dans laquelle vous souhaitez compter les e-mails, 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. Consultez les captures d’écran :

Une boîte de dialogue s’affiche alors, indiquant le nombre d’e-mails marqués avec une catégorie de couleur. Voir la capture d’écran :

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

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

Compter les Nombre d'emails par objet dans Outlook

Compter le nombre total d’e-mails reçus par jour dans Outlook

Compter le nombre total d’e-mails sélectionnés dans Outlook