Envoi email automatisé avec récupération de variables Excel

Question

Bonjour, je suis novice et je voudrais savoir si il existe un moyen d'envoyer des emails de facon automatique a une liste de contacts contenue dans un fichier excel, ex: ---- Pascal DUPONT, 34500, [mailto:test4@test.fr test4@test.fr] Je voudrais obtenir un email comme suit: Email destinataire (valeur A3) Bonjour (valeur cellule A1) votre CA sur Fevrier 2009 est de (valeur cellule A2) Merci de votre aide.

userrrqi115 · Answer

hello,

Le code suivant permet d'envoyer un mail via outlook. L'idéal serait de l'inclure dans une boucle. (Do while not activecell.value=""...loop) et de le précéder des définition de varialble (email=activecell.offset(0,2).value ; nom = activecell.value ; CA=activecell.offset(0,1).value )

 Set RRol = New Outlook.Application
   Set RRolmail = RRol.CreateItem(RRolMailItem)
   With RRolmail
      .To = "[mailto:destinataire@psg.fr destinataire@psg.fr]"
      .Subject = "" & sujet
      .Body = "Hello " & nom & Chr(10) _
         & "Votre CA du mois est de " & CA
 
      .Send
   End With

NB : l'envoie de mail n'est pas tout à fait automatique (à moins qu'on vienne intervenir sur le serveur) il faut manuellement accepter l'envoie suite à un message d'alerte.

BR

USERRRQI115
Simple user
Great brain

Envoi email automatisé avec récupération de variables Excel

1 réponse

Votre réponse

Discussions similaires