Sélectionner un email particulier

Bonjour
je n'arrive pas à trouver le code pour sélectionner, marquer , griser.... un email donné dans le dossier xxx.

Code:

---

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

---

Merci de votre aide
Hro

Bonjour il faut utiliser addtoselection
https://msdn.microsoft.com/fr-fr/lib.../ff868732.aspx