[OL-2003] Boucle sur MAPIFolder [Résolu]

[tininou]

Bonjour,
je viens de faire une ébauche de macro qui liste les date de réception de mail d'un dossier Outlook.

Code :

1
2
3
4
 
Dim myFolder = myNameSpace.GetDefaultFolder(olFolderInbox).Folders("Doss1")
For each oMail in myFolder.Items
debug.print oMail.receivedTime

Cela fonctionne correctement.

Toutefois je souhaite effectuer cette opération sur de multiples dossiers.
Ex : sur le dossier \monDossier1\sousDossier1\
puis sur le dossier \monDossier2\sousDossier1\sousDossier3\
....


Je pensais faire

dossier1 = myNameSpace.GetDefaultFolder(olFolderInbox).Folders("monDossier1")
dossier2 = myNameSpace.GetDefaultFolder(olFolderInbox).Folders("monDossier2")
Dim listeDossiers = array(dossier1, dossier2...)

Puis de boucler sur ce tableau....J'ai essayer de plusieurs façons mais je rencontre des erreurs d'exécutions systématiques

Merci par avance pour votre aide

[carden752]

Bonjour,

Le plus simple est d'utiliser la récursivité avec l'appel d'une fonction en passant en paramètre un dossier Outlook.