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 :
Merci par avance.
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
Bien à vous.
El
Partager