Discussion :

[popcorn17]

Bonjour,

Je voudrais savoir s'il est possible de créer une règle pour déplacer uniquement les mails lu.
Tant que le mail n'est pas lu, il reste dans la boite de réception, et dès qu'il est lu il est déplacé vers un dossier spécifique.

Merci

[carden752]

Bonjour,

Peut-être en utilisant la propriété unread d'un mailitem. Voici un exemple à adapter

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
sub deplacemail()
Dim a as mailitem
Dim ns As NameSpace
 
Set ns = Application.GetNamespace("MAPI")
For Each a In ns.GetDefaultFolder(olFolderInbox).Items
    If a.UnRead Is False Then
       a.Move ("dossier lu")
    End If
Next
end sub