VBA-outlook : envoi de mail après transfert dans brouillons
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 :mouarf:
J'ai tenté l'écriture de ce code, qu'en pensez-vous ?
Code:
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 |
Des chances que ça marche ? :mouarf:
Merci !
