Bonjour,
Une demande précédente m'a permis de connaître le code qui permet de décompter le nombre de mails dans un répertoire de Outlook par date de réception à partir de Access.
Voici le code pour rappel : (Pas oublier d'ajouter la référence Microsoft Outlook 16.0 Object Library dans Access)
J'aimerai à présent dénombrer le nombre de conversations et non pas de mails présent dans un répertoire. Pouvez-vous m'aider ?
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
28
29
30
31
32
33
34
35
36
37
38 Option Compare Database Option Explicit 'Variables et Objets de l'application Outlook Dim objOutlook As Outlook.Application Dim objNameSpace As Outlook.NameSpace Dim objRecipient As Outlook.Recipient Dim objMailFolderInbox As Outlook.MAPIFolder Dim strFiltre As String Dim lngInboxNow As Long Sub OutlookMails() On Error Resume Next 'Ouvrir Outlook Set objOutlook = New Outlook.Application 'Créer le NameSpace Set objNameSpace = objOutlook.GetNamespace("MAPI") objNameSpace.SendAndReceive (True) 'Créer le récipient Set objRecipient = objNameSpace.CreateRecipient("Nom du compte Outlook") objRecipient.Resolve 'Recherche du Folder Inbox If objRecipient.Resolved Then Set objMailFolderInbox = objNameSpace.GetSharedDefaultFolder(objRecipient, olFolderInbox) End If 'Filtres de restriction sur la réception à la date du jour strFiltre = "[Receivedtime] <= '" & Format(Date, "dd/mm/yyyy") & "'" 'Nombre de Mails dans le Folder Inbox à la date du jour lngInboxNow = objMailFolderInbox.Items.Restrict(strFiltre).Count End Sub
Exemple : Si il y a 3 conversations de 5 mails dans Inbox, je voudrais que le code me renvoi la valeur 3 et pas 15.
Philippe
Partager