Boucle sur les mails dans la boite de réception
Bonjour à tous,
j'ai un problème avec ma boucle qui est faites sur tous les mails de ma boite de réception que je fais avec un complément vsto visual studio.
La boucle fonctionne mais les premiers mails qui apparaissent sont du mois d'avril alors que j'en ai beaucoup qui sont plus récent, cela fait plusieurs jour que je recherche sur le net sans trouver la solution à mon problème :(
Voici mon code :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
Dim olSpace As Outlook.NameSpace
Dim olInbox As Outlook.MAPIFolder
Dim olFolder As Outlook.MAPIFolder
Dim olFolder_ok As Outlook.MAPIFolder
Dim Mail As Outlook.MailItem
olSpace = Me.Application.GetNamespace("MAPI")
olInbox = olSpace.Folders("xxxxxxxxxx@yyyyyy.fr")
olFolder = olInbox.Folders("Boîte de Réception")
For Each Mail In olFolder.Items
MsgBox Mail.Subject & Chr(13) & Mail.SentOn
Next Mail |
Peu importe quel évènement déclenche cette procédure, le résultat est le même.
Petite précision qui a surement une importance, je cherche à faire cette boucle sur une boite mail professionnelle qui utilise un serveur exchange.
si quelqu'un à déjà été confronté à ce problème ou est en mesure de me dire comment le résoudre je suis preneur.
Merci
