Envoi d'un e-mail depuis xl et le signer

J'utilise le code suivant pour envoyer un courriel via outlook.
Sub SendMail()
' Copy the sheet(1)
ThisWorkbook.Sheets(1).Copy
' Send Email
With ActiveWorkbook
.SendMail Recipients:=Array("toto@ss.ch", "xxx@sss.ch"), Subject:="Test" & Format(Date, "dd/mmm/yy")
.Close SaveChanges:=False
End With

Je désirerais ajouter du texte dans ce mail et le signer. Comment puis-je faire ?

D'avance merci pour votre aide.