Bonjour,
je viens de faire une ébauche de macro qui liste les date de réception de mail d'un dossier Outlook.
Cela fonctionne correctement.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4 Dim myFolder = myNameSpace.GetDefaultFolder(olFolderInbox).Folders("Doss1") For each oMail in myFolder.Items debug.print oMail.receivedTime
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
Puis de boucler sur ce tableau....J'ai essayer de plusieurs façons mais je rencontre des erreurs d'exécutions systématiquesdossier1 = myNameSpace.GetDefaultFolder(olFolderInbox).Folders("monDossier1")
dossier2 = myNameSpace.GetDefaultFolder(olFolderInbox).Folders("monDossier2")
Dim listeDossiers = array(dossier1, dossier2...)
Merci par avance pour votre aide
Partager