Forum |  HardWare.fr | News | Articles | PC | Prix | S'identifier | S'inscrire | Aide | Shop Recherche
2150 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  vba outlook envoi de mail

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

vba outlook envoi de mail

n°2296741
xantos295
Posté le 23-02-2017 à 10:23:58  profilanswer
 

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  :o  
 
J'ai tenté l'écriture de ce code, qu'en pensez-vous ?  
Des chances que ça marche ? :o  
 
 

Code :
  1. Private Sub Application_NewMail()
  2.     Dim myOlApp As New Outlook.Application
  3.     Dim myNamespace As Outlook.NameSpace
  4.     Dim myInbox As Outlook.Folder
  5.     Dim myDestFolder As Outlook.Folder
  6.     Dim myItems As Outlook.Items
  7.     Dim myItem As Object
  8.     Set myNamespace = myOlApp.GetNamespace("MAPI" )
  9.     Set myInbox = myNamespace.GetDefaultFolder(olFolderInbox)
  10.     Set myItems = myInbox.Items
  11.     Set myDestFolder = myInbox.Folders("Brouillons" )
  12.     Dim strName As String
  13.     For Each myItem In myInbox.Items
  14.    
  15.         strName = myItem.EntryID
  16.         myItem.Move myDestFolder
  17.         Set myItem = myItems.GetNext
  18.        
  19.     Next myItem
  20. For Each myItem In myDestFolder
  21.         myItem.To ="monadressesemail@outlook.com"
  22.     Next myItem
  23.     Set myDestFolder = Nothing
  24. 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
mood
Publicité
Posté le 23-02-2017 à 10:23:58  profilanswer
 


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  vba outlook envoi de mail

 

Sujets relatifs
Pb ajout contact outlookFormulaire PHP réponse mail accent
Intégrer à OUTLOOK une signature réalisée sous EXCELVBA: Macro avec Outlook pour gestion d'events
Trouver la vrai adresse mail d'une redirection d'emailSignature Windows mail : ajouter adresse internet + lien
copier des cellules excel et les ajouter au corps de mail en imageEnvoi mail via AutoIT
pble mail() SMTP avec easyphp sous windows.[RESOLU]Envoie via outlook d'un mail "préformatté" depuis un formulair
Plus de sujets relatifs à : vba outlook envoi de mail



Copyright © 1997-2016 Hardware.fr SARL (Signaler un contenu illicite) / Groupe LDLC / Shop HFR