Discussion :

[elgordopresto]

Bonjour à toutes,

Dans le cadre d'un projet VBA sur Access, j'ai une procédure qui parcours le contenu de la boîte aux lettres Outlook de l'utilisateur de la base et qui recherche un mail spécifique en fonction de son objet.

J'ai trouvé le moyen de procéder mais le problème c'est qu'il cherche dans la BAL en commençant par les mails les plus anciens et selon les utilisateurs, la procédure peut prendre beaucoup de temps pour trouver l'email (j'ai des utilisateurs qui ont plusieurs dizaines de milliers d'emails dans leur BAL).

Y a-t-il un moyen de forcer Outlook à ne chercher que sur les messages du jour ou d'une date en particulier ?

Voici le bout de code que j'utilise :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Dim ns As NameSpace, inbox As MAPIFolder, str As String, olItems As Outlook.Items, m As Object
Set ns = GetNamespace("MAPI")
Set inbox = ns.GetDefaultFolder(olFolderInbox)
Set olItems = inbox.Items
For Each m In olItems
str = m.Subject
if str = "MaRecherche" then 
' Mon traitement
End If
Next m
Set olItems = Nothing
Set inbox = Nothing
Set ns = Nothing

Merci par avance.
Bien à vous.
El

[Oliv-]

il faut utiliser .restrict
https://docs.microsoft.com/fr-fr/off...items.restrict

[elgordopresto]

Merci beaucoup !
J'ai parcouru le lien et j'ai trouvé de quoi régler mon problème :

Voici le bout de code que j'ai ajouté :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
strD = CStr(Date())
Set olItems = inbox.Items.Restrict("[SentOn] >= '" & strD & "'")

Du coup, ça va beaucoup plus vite !
el