Règles de transfert

[calagan99]

Bonjour à tous,

Je dois mettre en place une règle de transfert de mails sur une boîte mail donnée.
Je me demandais (car je n'y suis pas parvenu) s'il est possible de procéder comme suit :
- transfert des mails entrant avec mot spécifique dans l'objet vers un répertoire donné
- transfert vers deux destinataires
- marquer le mail comme lu chez le destinataire d'origine, et pas chez les deux destinataires finaux

Pas de soucis pour les deux premières étapes, mais la troisième me semble impossible. Avez-vous une idée sur la manière de procéder ?

D'avance merci et bonne journée

[carden752]

Bonjour,

Une idée en passant, au lieu de lui dire de marquer le message comme lu,
d'abord lui dire d'exécuter un script (transfertdest).
Dans le script d'abord transférer le message (comme non lu) puis lui dire de marquer le message comme lu.
Quelque chose de ce style à adapter

Code :

1
2
3
4
5
6
7
Sub transfertdest(MyMail As MailItem)
Dim destinataires As String
destinataires = "dest1@xxx.fr;dest2@yyy.fr"
MyMail.Body
MyMail.Forward.To destinataires
MyMail.UnRead = False
End Sub

[calagan99]

Carden752, merci pour ta réponse.
J'ai essayé d'adapter le code et je pense y être parvenu
Seul soucis, j'ai l'impression qu'on ne peut pas utiliser de méthode prenant un MailItem en paramètre dans un module.
Je dis ça simplement parce que, même si le code compile, la macro n'est pas disponible quand j'essaye de la tester.

[carden752]

Bonjour,

C'est exact, on ne peut exécuter que les macros sans paramètres directement.
Il suffit alors d'appeler une macro sans paramètre faisant appel à cette procédure avec le bon paramètre.

Code :

1
2
3
4
5
6
7
8
9
10
sub listmailtransfert()
Dim ol As Application
Dim olns As NameSpace
dim mon mail as MailItem
Set ol = New Outlook.Application
Set olns = ol.GetNamespace("MAPI")
for each MonMail in olns.GetDefaultFolder(olFolderInbox).items
call transfertdest MonMail 
Next monmail
end sub

Logiquement c'était fait pour être exécuté avec la règle, c'est pour cela que je n'avais pas mis de procédure test.
Tu peux utiliser celle ci-dessus pour tester (Tous les mails dans la boite de réception).
Si tu ne veux que le mail courant, remplace

Code :

1
2
3
for each MonMail in olns.GetDefaultFolder(olFolderInbox).items
call transfertdest MonMail 
Next monmail

par

Code :

call transfertdest ol.GetInspector.CurrentItem