What do I have to add to this code to add a message to the automatically sent email?

Sub sendmail()
ActiveWorkbook.sendmail Recipients:=Range("z5")

End Sub