Macro avec corps de mail

Bonjour,

j'utilise la Macro suivante pour envoi de doc, sauf qu'elle ne me permet pas de saisir un corp de mail.
est-il possible de m'aider a l'optimiser, pour saisir un corps de mail.
J'utilise Excel 2007 avec le client de messagerie Outlook 2007.

Sub EnvoieFichierJoint()
Dim Dest As String
Dim Sujet As String
Dest = "Imed.GNAOUI@tn.teleperformance.com"
Sujet = "Suivi Transfo"
ActiveWorkbook.SendMail Dest, Sujet, True
End Sub


Merci d'avance.