Macro pour ajouter du texte dans le corps du mail

Bonjour,

Je reviens avec ma macro car j'ai pu résoudre le problème d'ajout de l'heure dans le nom du classeur mais j'aimerais maintenant ajouter un petit texte d'accompagnement dans mon mail. (j'utilise thunderbird)

Ma macro est la suivante :

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub Macro1()   ActiveWorkbook.SaveAs Filename:="U:\transport" & Format(DateAdd("D", 0, Date), "DDMMYYYY") & Format(Now, "hhmm") & ".xls" ActiveWorkbook.SendMail Recipients:=Array("raths@foyer-handicap.ch"), Subject:="demande de livraison" ActiveWorkbook.Close ' ' Macro1 Macro '   ' End Sub

---

J'ai essayé d'ajouter "Body" juste après le sujet mais cela ne fonctionne pas...

Merci !

Bonjour,
:f1: avec le mot clé "Sendmail" te montre qu'avec cette méthode tu n'as que trois paramètres :

Citation:

---

expression.SendMail(Destinataires, Objet, AccuséRéception)

---

donc avec cette méthode body n'est pas possible, il me semble.

re,
après une petite recherche, regarde ce sujet : envoi mail thunderbirds et ceci de la FAQ

EDIT: Dans le premier lien il ne pouvait pas mettre de fichier joint.
Regarde ici tu auras la solution avec pièces jointes.