Bonjour,
j'ai vu que vous maitrisez bien VBA et étant novice pourriez vous m'aidez SVP
Je souhaiterais créer une macro pour que lorsque je reçois un nouveau mail (tout contact) celui-ci se transfere automatiquement vers une autre adresse mail.
J'ai trouvé un code (ci dessous) mais celui-ci n'envoi que les mails que j'ai séléctionné et de + par ce code je suis obligé d'executer la macro manuellement.
Pourriez vous m'aider SVP sachant que j'ai déja éssayer les regles automatiques et ça ne marche pas je souhaiterais vraiment passer par VBA soit par Private Sub Application_NewMailEx ou éventuellement une régle avec un script.
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 Transfert() Dim oOlExp As Explorer Dim oOlSel As Selection Dim oOlItm As MailItem Dim oOlFwd As MailItem Set oOlExp = ActiveExplorer Set oOlSel = oOlExp.Selection For Each oOlItm In oOlSel Set oOlFwd = oOlItm.Forward oOlFwd.Recipients.Add "exemple@gmail.com" oOlFwd.Send Next oOlItm Set oOlFwd = Nothing Set oOlItm = Nothing Set oOlSel = Nothing Set oOlExp = Nothing End Sub
Je ne pense pas que ce soit compliqué mais je suis novice et malgrés 2 jours que je passe à chercher sur GOOGLE je n'arrive vraiment pas à trouver ce que je cherche.
NEED UR HELP PLEASE
Partager