'Mail.Body' > Inhalt?

folgendes Makro sendet eine Meldung, wenn in einer Datei etwas geändert wurde.

Sub Aenderung()
Dim outObj As Object
Dim Mail As Object
Set outObj = CreateObject("Outlook.Application")
Set Mail = outObj.CreateItem(0)
Mail.Subject = "Aenderung erfolgt"
Mail.Body = ""
Mail.To = "xy@z.com"
Mail.Display
Mail.Send
Set Mail = Nothing
Set outObj = Nothing
End Sub

Besteht die Möglichkeit bei 'Mail.Body' eine Range einzugeben, die dann aus dem Tabellenblatt kopiert und in den Mailkörper eingefügt wird?

Gruss,
Martin