Envoi d'un email depuis Excel
Bonjour,
J'ai une macro Excel qui permet d'envoyer une feuille de calcul Excel par email par l'intermédiaire d'Outlook.
J'ai besoin d'ajouter du texte au début et à la fin de la capture de la feuille de calcul. Seulement, ça ne fonctionne pas. J'arrive uniquement à ajouter du texte au début du message email.
Ci-dessous le code de la macro :
Code:
1
2
3
4
5
6
7
8
9
|
.HTMLBody = "<HTML><body lang=FR link=blue vlink=blue><p>"
.HTMLBody = .HTMLBody & Text2Html(Worksheets("Email").Range("CorpsMail12").Value)
CopierRapportChorus (ActiveSheet.Name) // capture de la feuille de calcul Excel
.HTMLBody = .HTMLBody & "<a href='" & Text2Html(Worksheets("Email").Range("lien1").Value) & "'>" & Text2Html(Worksheets("Email").Range("lien2").Value) & "</a><br/><br/>"
.HTMLBody = .HTMLBody & Text2Html(Worksheets("Email").Range("emailSignature").Value) |
