objet et texte dans message

bonjour je rouvre un sujet juste pour ce petit PB
j'ai résussi à envoyer un fichier via outlook
mais j'aimerais pourvoir rajouter un objet et un texte dans le corps du message a ce code ci-dessous.

Merci:ccool:

Code:

---

1 2 3 4 5 6 7 8 9

Sheets("trame").Select Cells.Select Selection.Copy Workbooks.Add ActiveSheet.Paste Cells.Select ActiveSheet.Paste ActiveWorkbook.SendMail Recipients:=email ActiveWorkbook.Close False

---

Bonjour,

Je suis également intéressée par l'ajout de texte dans le corps du mail. Quelqu'un aurait une idée ?