Hello,
Je débute en VBA et mon souhait est de programmer en VBA pour Outlook une règle qui s'active automatiquement à chaque mail reçu.
L'objectif est : quand je reçois un mail dans la boite de réception, je veux qu'il soit déplacé dans le dossier brouillon, que l'adresse de destination soit remplacée par celle que je rentre dans le code (ici j'ai mis monadresseemail@outlook.com pour info et cette adresse de destination doit toujours être la même) et ensuite que le mail soit envoyé.
Le déplacement du mail vers brouillon est obligatoirement en macro (je sais qu'il existe une règle outlook mais je veux le faire en macro).
Je souhaite que la macro s’exécute en permanence. Pas d'activation nécessaire, pas de chose à valider, etc. Je souhaite lancer la macro et basta, ça fait le job
J'ai tenté l'écriture de ce code, qu'en pensez-vous ?
Des chances que ça marche ?
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
23
24
25
26
27 Private Sub Application_NewMail() Dim myOlApp As New Outlook.Application Dim myNamespace As Outlook.NameSpace Dim myInbox As Outlook.Folder Dim myDestFolder As Outlook.Folder Dim myItems As Outlook.Items Dim myItem As Object Set myNamespace = myOlApp.GetNamespace("MAPI") Set myInbox = myNamespace.GetDefaultFolder(olFolderInbox) Set myItems = myInbox.Items Set myDestFolder = myInbox.Folders("Brouillons") Dim strName As String For Each myItem In myInbox.Items strName = myItem.EntryID myItem.Move myDestFolder Set myItem = myItems.GetNext Next myItem For Each myItem In myDestFolder myItem.To ="monadressesemail@outlook.com" Next myItem Set myDestFolder = Nothing End Sub
Merci !
Partager