Macro pour ajouter du texte dans le corps du mail [XL-2007]

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 :

S�lectionner tout - Visualiser dans une fen�tre � part

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("[email protected]"), 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,
avec le mot cl� "Sendmail" te montre qu'avec cette m�thode tu n'as que trois param�tres :

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.