Discussion :

[Oliv-]

il faut ajouter un traitement (sans doute après le ".save")

Code :

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

1
2
3
4
5
6
 
Destinataire= "toto@toto.fr"
Dim LeMailTransfere As Outlook.MailItem
Set LeMailTransfere = MyMail.Forward
LeMailTransfere.Recipients.add Destinataire
LeMailTransfere.Send

[d_dalcan]

Comme promis, je ne t'embête plus !

Encore Merci pour tout et bonnes fêtes de fin d'année.

[d_dalcan]

Bonjour Oliv-,

Ça faisait longtemps !... :-)
Tout d'abord ton script est génial et fonctionne à merveille.
Voilà, on me demande d'exporter les mails venant d'un utilisateur spécifique, avec un objet contenant une chaîne spécifique (type: FAR_TMP) et uniquement pour des fichiers ".xml" vers un autre dossier "Export".
Et là je dois dire que je suis bien embêter pour intégrer ça à ton script.

Si tu peux m'aider
Merci d'avance.

[Oliv-]

Bonjour,
Le plus simple c'est de créer une nouvelle règle qui concerne l'expéditeur et le sujet qui va bien. et de dupliquer le script en changeant le dossier destination et la clause .

Code :

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

1
2
3
4
5
6
7
8
9
10
Select Case UCase(fso.GetExtensionName(pj.fileName))
Case "XML"
Export=true
Supp= true
 
Case Else
'ici pour tous les autres
Export=false
Supp= false
End Select