Bonjour,
Je cherche de l'aide. Je voudrais pouvoir dénombrer des Mails dans mon Outlook Inbox sur base d'un filtre afin de faire des statistique dans Excel.
Voici le code VBA (Excel) qui permet de dénombrer le nombre total de Mails. Comment dénombrer un nombre de Mails sur base d'un filtre ?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27 Sub Main() Dim objOutlook As Outlook.Application Dim objNameSpace As Outlook.Namespace Dim objMailFolderInbox As Outlook.MAPIFolder Dim intMailTotal As Integer On Error Resume Next 'Test si Outlook est ouvert. Set objOutlook = GetObject(, "Outlook.Application") If objOutlook Is Nothing Then Set objOutlook = CreateObject("Outlook.Application") Set objNameSpace = objOutlook.GetNamespace("MAPI") objNameSpace.SendAndReceive (True) 'Recherche du Folder Inbox. Set objMailFolderInbox = objNameSpace.GetDefaultFolder(olFolderInbox) 'Nombre total de Mails intMailTotal = objMailFolderInbox.Items.Count '****************************************************************** '* Comment filtrer (ex. sur base de date) et donner le nombre de Mails concernés * '****************************************************************** End Sub
Partager