Envoi d'un email depuis Excel

**Longrais** · 19/10/2010, 16h12

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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)

**supersnail** · 19/10/2010, 16h38

Bonjour,

Ton .HTMLBody, il sort d'où?

et CopierRapportChorus est censé faire quoi?

Envoi d'un email depuis Excel

Macros et VBA Excel

Discussions similaires

Partager

Partager