Discussion :

[NLB108]

Bonjour,

Je cherche à écrire une macro qui executerait une règle précise dans le dossier "Courrier Indésirable" de tous mes comptes connectés sur outlook.

Pour le moment j'ai ça, mais parfois il semble que ca ne fonctionne que sur 1 des 2 comptes connectés :

For Each oAccount In Outlook.Application.Session.Accounts

' get default store (where rules live)
Set st = Application.Session.DefaultStore
' get rules
Set myRules = st.GetRules
' get Junk e-mail folder
Set fldJunk = st.GetDefaultFolder(olFolderJunk)

' iterate all the rules
For Each rl In myRules
If rl.Name = "Junk Cleaner" Then
rl.Execute ShowProgress:=True, Folder:=fldJunk
ruleList = ruleList & vbCrLf & rl.Name
End If
Next

Next


J'ai l'impression que même si je fais une boucle "pour chaque compte", je ne suis pas sûr que le corps de la boucle prenne le changement de compte en considération..

Merci d'avance !

[NLB108]

Up !