Envoi automatique de mail avec HTML Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
a
adouw
Nouveau venu
Nouveau venu
Messages : 6
Inscrit le : 29 juillet 2019
Version d'Excel : 2019

Message par adouw » 29 juillet 2019, 11:15

Bonjour à tous,

Je suis entrain de rendre automatique un envoi de mail multiple et personnalisé.

Je possède le code HTML du mail, mais je ne trouve pas comment récupérer le HTML et modifier certains champs ( nom de la personne...)

Je mets mon code ci dessous,

Merci d'avance de votre aide,
Bonne journée
 For i = 4 To 6
    
        Dim olApp As Outlook.Application
        Set olApp = CreateObject("outlook.application")
        
        Dim olMail As Outlook.MailItem
        Set olMail = olApp.CreateItem(olMailItem)
        
        With olMail
            .To = tabll(i - 4, 0)             		'adresses mail récupérés à partir d'un tableau
            '.CC = "exemple@gmail.com"
            .Subject = "mailing automatique"
            '.Body = "texte brut"
            .HTMLBody =????
            .send
            End With
    Next
Avatar du membre
Ausecour
Passionné d'Excel
Passionné d'Excel
Messages : 3'120
Appréciations reçues : 346
Inscrit le : 31 mai 2018
Version d'Excel : 2010 FR, 2013 FR

Message par Ausecour » 29 juillet 2019, 11:42

Bonjour et :bv3: sur le forum,

De ce que j'ai vu, HTMLBody ressemble à:
Bonjour,
HTMLBody = "<HTML><BODY>Enter the message text here. </BODY></HTML>" 
Ce qui donne du texte, quand on veut mettre des variables avec du texte, on sépare le texte et les variables, le texte est entre guillemets, la variable sans guillemets, et entre les 2, on utilise & qui permet de concatener les valeurs. ce qui donnerait par exemple:
.HTMLBody = "<HTML><BODY>Bonjour " & titre & prenom & nom & ", vous nous devez " & montant & " €, merci de payer cette somme au plus vite.</BODY></HTML>" 
:btres:
Plus un sujet a un titre précis, des explications claires, et un fichier Excel bien préparé, plus il a de chances d'avoir une réponse qui répond au besoin, mettez toutes les chances de votre côté :bien:
"100% des gagnants auront tenté leur chance" :trfl:
a
adouw
Nouveau venu
Nouveau venu
Messages : 6
Inscrit le : 29 juillet 2019
Version d'Excel : 2019

Message par adouw » 29 juillet 2019, 12:07

Merci beaucoup de ta réponse,

J'avais déjà pensé à faire ça (en copiant-collant le HTML sous forme de texte) et effectivement ça avait marché.

Le problème c'est que le mail que je veux envoyer comporte des images (logo) et ces images ne passent pas avec cette technique :|
Avatar du membre
Ausecour
Passionné d'Excel
Passionné d'Excel
Messages : 3'120
Appréciations reçues : 346
Inscrit le : 31 mai 2018
Version d'Excel : 2010 FR, 2013 FR

Message par Ausecour » 29 juillet 2019, 13:24

Re,

pas de souci, pour insérer une image, je me suis un peu renseigné:
    Set ColAttach = ObjMail.attachments
tu crées tout d'abord une collection qui va contenir toutes les images utilisées dans le mail
ColAttach.Add("C:\MonImage.jpg")
tu ajoutes tes images à la collection en suivant cette syntaxe
    Set oAttach = ColAttach.Add("C:\MonImage.jpg") 'Changer le chemin et le nom de l'image
tu mets ensuite toutes tes images contenues dans la collection dans les pièces jointes
    With ObjMail
        .HTMLBody = "<BODY><FONT face=Arial color=#000080 size=2></FONT>" & _
            "Bonjour, <br><br><IMG src=cid:MonImage.jpg></BODY>"   'Nom de l'image sans chemin
tu utilises ensuite <IMG src=cid:MonImage.jpg> pour insérer une image dans ton corps de message en utilisant son nom et son extension.

J'ai testé de mon côté cette méthode, et ça marche tip top :)
:btres:
Plus un sujet a un titre précis, des explications claires, et un fichier Excel bien préparé, plus il a de chances d'avoir une réponse qui répond au besoin, mettez toutes les chances de votre côté :bien:
"100% des gagnants auront tenté leur chance" :trfl:
a
adouw
Nouveau venu
Nouveau venu
Messages : 6
Inscrit le : 29 juillet 2019
Version d'Excel : 2019

Message par adouw » 29 juillet 2019, 13:27

Merci beaucoup, j'essaye ça dans l'après-midi quand j'aurais Excel à porté de main !
a
adouw
Nouveau venu
Nouveau venu
Messages : 6
Inscrit le : 29 juillet 2019
Version d'Excel : 2019

Message par adouw » 31 juillet 2019, 11:20

Merci beaucoup, ta solution fonctionne parfaitement !
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message