Discussion :

[cornu33]

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.

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

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.

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

[Oliv-]

salut
une régle avec un script.

Bonjour,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub Transfert(oOlItm As Outlook.MailItem)
 
Dim oOlFwd As MailItem
 
Set oOlFwd = oOlItm.Forward
oOlFwd.Recipients.Add "exemple@gmail.com"
oOlFwd.Send
 
Set oOlFwd = Nothing
 
End Sub