vba outlook envoi de mail

Marsh Posté le 23-02-2017 à 10:23:58

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:

Message édité par xantos295 le 23-02-2017 à 10:26:07

Marsh Posté le 23-02-2017 à 10:23:58

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed

Name *

Email *

URL

Message *