Bonjour
je n'arrive pas à trouver le code pour sélectionner, marquer , griser.... un email donné dans le dossier xxx.
Merci de votre aide
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7 Set objItems = objFolder.Items ‘Dans le dossier boite de réception par ex For j = objItems.Count To 0 Step -1 Set ObjItem = objItems(j) If objItem.FlagIcon <> 0 Then ‘==> Sélectionner cet email End if Next j
Hro
Partager