Bonjour tou le monde.
Je suis un peu bloqué sur une petite procedure mais je pense que cela doit faire appel à la récursivité et je suis pas fort.......
Je dois parcourir le folder d'un OutLook. En fonction des utilisateurs c'est plus ou moins bien range.
Je dois trouver un folder qui a un nom précis que je connais. Mais pour l'instant avec mon code je ne lis que le deuxième niveau, apparement.
Voici mon code actuel :
J'ai mis des MSGBOX juste pour faire un truc dans mes tests, après j'aurais des vrais traitements à la place.
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 Sub RangementDesMails() Dim outlookApp As New Outlook.Application Dim olNs As Outlook.NameSpace Dim FldrError, FldrTraite As Outlook.MAPIFolder Dim Fldr As Outlook.MAPIFolder Dim olMail As MailItem Set olNs = outlookApp.GetNamespace("MAPI") For Each Fldr In olNs.Folders MsgBox Fldr.Name If Fldr.Name = "EVENTBSH" Then MsgBox Fldr.Items.Count End If Next
Pour l'instant ce qui m'intéresse c'est de pouvoir trouver ce folder et aussi m'assurer que c'est le seul qui s'appelle comme ça.
Merci pour votre aide.
Partager