envoi macro outlook

bonjour a tous,
j'aimerai envoyer un corps de texte avec cette macro et changer le nom de la feuille activeqq1 sais ce que je dois rajouter?


Sub mail()


ThisWorkbook.Sheets("mail").Copy
ActiveWorkbook.SendMail ("xx"), Subject:="Alerte Incident"


End Sub


Merci