Discussion :

[omd7590]

Bonjour à tous, cela fait plusieurs jours que je parcours le site sans trouver mon bonheur.
Je recherche un script pour transferer un mail dès que je le recois vers une autre boite mail.
La condition pour le transfert se trouve dans le titre du mail.

Les règles fournient par Outlook le permettent sauf que je suis limité aux mails pro de mon entreprise, je suis donc obliger de passer un script pour ensuite le définir en règle.

MErci pour votre aide.

[Oliv-]

Bonjour,

Comme cela par exemple

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub ForwardThiEmail(ThisEmail AS MAILITEM)
'---------------------------------------------------------------------------------------
' Procedure : ForwardThiEmail
' Author    : Oliv
'---------------------------------------------------------------------------------------
'
    Dim FwEmail As Outlook.MailItem
 
if instr(1,ThisEmail.subject, "MONTAG", vbTextCompare) > 0 
 
    Set FwEmail = ThisEmail.Forward
    FwEmail.To = "toto@titi.fr"
 
 
    'pour voir le mail et ou afficher la signature
     FwEmail.Display
 
    'Pour l'envoyer
    '    FwEmail.Send
 
 end if
End Sub

[omd7590]

Parfait

juste une petite erreur oublie d'un then mais pour le reste cela fonctionne.
Par contre maintenant il faut que je trouve comment la transferer sur ma boite depuis le serveur, mais çz c'est un autre problème.

[Oliv-]

Par contre maintenant il faut que je trouve comment la transferer sur ma boite depuis le serveur, mais çz c'est un autre problème.

c'est à dire ? c'est une boite commune ?