Hello,
Mon souhait est de programmer en VBA pour Outlook une regle 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 :
- 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 !
edit: ah, et au fait, je suis un peu novice en VBA ![:hello: :hello:](https://forum-images.hardware.fr/icones/smilies/hello.gif)
Message édité par xantos295 le 23-02-2017 à 10:26:07