[OL-2003] VBSCRIPT Déplacer les mails pour un contact donné en VBSCRIPT

[g.terro]

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 :

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 :

1
2
For i =  myRestrictItems.Count To 1 Step -1
myRestrictItems(i).Move myFolder.Folders("PROJECT")

A bientôt
Guillaume