Bonjour à tous,

depuis un formulaire personnalisé contact, j'ai besoin de sélectionner les mails recus pour ensuite les déplacer dans un folder PROJECT.

La partie du code ci dessous fonctionne mais ne me satisfait pas.
En effet le champ email1adress est renseigné manuellement par disons "toto"

Code : Sélectionner tout - Visualiser dans une fenêtre à part
Set myRestrictItems = myItems.Restrict ("[email1address] = 'toto''")
Par contre; si je souhaite automatiser la tache, cela se complique.
A savoir comment renseigner "restrict "avec email1adress du contact ouvert.

j'ai essayé sans résultats ("[email1address] = & '''") et même déclaré une variable MyClause= email1address dans
Set myRestrictItems = myItems.Restrict ("[sendername] = 'MyClause'") sans résultats.

Merci pour votre aide

Pour info j'utilise la suite du code
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
For i =  myRestrictItems.Count To 1 Step -1
myRestrictItems(i).Move myFolder.Folders("PROJECT")
A bientôt
Guillaume