Excel 2010 : Comment envoyer un e-mail Outlook 2010 personnalisé en VBA en moins de 5 min.
EXCEL_2010_VBA_ENVOYER_E_MAIL_PERSONNALISE_OUTLOOK
Problématique :
Comment envoyer un e-mail personnalisée avec EXCEL VBA en moins de 5 min.
Solution :
Suite à la demande d’un de mes lecteurs, voici un exemple de comment procéder pour l’envoi d’un e-mail que l’on peut personnaliser sur Excel pour envoyer un e-mail en VBA sur Outlook.
Dans cette page, nous allons voir comment faire, en VBA, pour accéder à Outlook. L’intérêt de cette démarche est de pouvoir, par exemple, envoyer des E-Mails en masse de manière automatique avec Excel . Nous utiliserons ici Excel.
Aperçu :
La liste de données se trouve sur la plage C8 à F11 dans le cadre de l’exemple 1 :
La liste de données se trouve sur la plage A8 à F11 dans le cadre de l’exemple 1 :
Ajout du prénom en plus ainsi que du matricule, bien sur vous pouvez personnalisé à votre guise.
Résultat pour l’exemple 1 :
Résultat pour l’exemple 2 :
Code source VBA :
Exemple 1:
On crée une instance d’Outlook : Set OutApp= CreateObject(“Outlook.Application”)
On crée un élément Outlook, qui sera un message E-Mail : Set OutMail = Outapp.CreateItem(0)
Pour le détail du mail :
To : A qui est destiné ce message
Cc : A qui veut-on envoyer une copie ?
Cci : A qui veut-on envoyer une copie invisible ?
Subject : Quel est le sujet du message (Le titre)
Body : Quel est le contenu (corps proprement dit) du message ?
Attacher un ou plusieurs fichiers Attachments.Add
Et la propriété Send pour envoyer le message ; .Display pour juste l’afficher
Exemple 2:
Version Youtube:
Tuto :
PACK SPECIAL OUTLOOK :
Bonjour,
chez moi (Office 2010) le mail se créé mais la commande .Send n’est pas reconnu dans VBA. La commande .Display et .Save marche sans problème.
Une idée du problème ?