création de regles

[zetictac]

Bonjour,

J'ai crée un règles pour déplacer les mails d'une personne en particulier, vers un dossier tous en laissant une copie dans la boite de réception, mai :

Je voudrait que la copie soit marquer comme lu et pas celui qui arrive dans la boite de réception, j'ai beau chercher je ne trouve pas l'option dans l'assistant de création de règles.

Existe t'il une solution pour compléter cette règles ?

Merci pour votre aide.

Sébastien

[Chagui]

Bonjour,

Oui c'est possible mais tu vas devoir coder un peu pour cela.

Le but faire fonctionner une macro (un script) en l'appelant via une régle (executer un script).

Cette macro aura pour but de marquer comme lu le message qui va dans le dossier voulu.

1 - va dans : Outils -> Macro -> Visual Basic Editor (ou alt + F11).

2 - Créer un nouveau module : dans la fenêtre VBE que tu viens d'ouvrir : Insertion -> Nouveau module.

3 - Renomme ce nouveau module : Affichage --> Fenêtre propriétés --> change Module 1 Par ce que tu veux (Mod_Msg_Lus par exemple).

copie ce code dans le module et change "Nomdetondossier" :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Option explicit 
 
Const NomDossier = "Nomdetondossier" 
 
Sub Mcr_MsgLus() 
 
' Déclarations Outlook 
Dim Mail as Mailitem
Dim Ns As NameSpace
 
Set Ns = Application.GetNamespace("MAPI")
 
' Boucle sur tous les mails du dossier et marque comme lu les mails non lus. 
For Each Mail In Ns.GetDefaultFolder(olFolderInbox).Folders(NomDossier).Items
 
    If Mail.UnRead Is True Then
       Mail.UnRead = False
    End If
 
Next
 
end sub

Pour tester ton code va dans Affichage - > fenetre execution : Un fenêtre va s'ouvrir. Colle dedans le nom de ta macro c'est à dire Mcr_MsgLus ; Appui sur entrer. Assure toi que le 1er message du dossier ou tu as copié le mail est toujours en non lu (si c'est plus le cas, clic droit dessus et marquer comme non lu)

il se peut qu'il ne fonctionne pas car je ne l'ai pas testé. Si c'est le cas, cela vient du fait que le chemin du dossier n'est pas bon.

L'erreur se trouvera alors sur :

Code :

1
2
 
Ns.GetDefaultFolder(olFolderInbox).Folders(NomDossier).Items

Danc cet exemple, le dossier dans lequel tu copies le message est un sous dossier de la boite de reception. Si le dossier voulu se trouve est ailleurs il faudra changer olFolderInbox

Pouvoir avoir la liste des différentes constantes des dossiers parents(comme olFolderInbox), dans la fenêtre VBE, sélectionne avec la souris GetDefaultFolder et appuis sur F1. tu verras la fenetre d'aide s'ouvrir

clique sur MAPIFolder et tu auras la liste des différentes constantes à utliser en fonction de l'aplcement du dossier qui reçois les copies.

4 - Lorsque tout est fait enregistre et Ferme le VBE

5 - Modifie ta règle : Dans la 1ère étape de l'assistant gestion des messages pour la question Que voulez-vous faire de ce message, cherche "executer un script"

Dans la 2ème étape, clique sur script puis sélectionne Projet1.Mcr_MsgLus

Clique sur Terminer. Normalment ca devrait être bon. Si tu as des soucis, envoi un message.

En espérant t'avoir aidé !