Générer un mail depuis Excel à travers une VBA
Bonjour à tous,
J'ai trouvé un code VBA pour pouvoir générer un mail automatique depuis Excel.
Le seul souci que j'ai, est que le 'Body' du mail est sur plusieurs lignes
J'aimerai que les lignes de D6 à D12 soit repris dans l'ordre dans le corp de mon mail.
J'utilise la fonction Body = Range ("D6"), ce que je veux, c'est que les cellles D6, D7, D8, D9, D10, D11 et D12 soit repris dans mon mail et dans l'ordre ligne par ligne.
Exemple ci-dessous :
Pouvez-vous m'aider s'il vous plaît ?
Salut hs213,
théoriquement, ceci devrait aller...
sMsg = ""
For x = 5 To 12
sMsg = sMsg & Range("D" & x).Value & "<br>"
Next
HTMLBody = sMsg
A+
Bonjour,
Merci pour ton retour @curulis57
Pour le momment j'ai toujours un corp de mail Vide, ce que je souhaite, c'est d'avoir le mail ci dessous en automatique
Donc reprendre de la D6 jusqu'a la D12 en automatique.
Je reste à disposition et encore désolé
Cordialement.
Bonjour à tous, à tester:
Private Sub CommandButtonl_Click()
Dim Lemail As Variant
Set Lemail = CreateObject("Outlook.Application") 'creating an Outlook object
sMsg = ""
For x = 6 To 12
sMsg = sMsg & Range("D" & x).Value & "<br>"
Next
With Lemail.CreateItem(olMailItem)
.Subject = Range("D5")
.To = Range("H2")
.HTMLBody = sMsg
.Display
End With
End Sub