Excel Daten in Email mit Makro einfügen

Sub test()
Worksheets(1).Range("d1:g11").Select
Selection.Copy
Dim Nachricht As Object, OutApp As Object
Set OutApp = CreateObject("Outlook.Application")
Set Nachricht = OutApp.CreateItem(0)
With Nachricht
.To = "zzz.de "
.Subject = "Forecast Weekly Nominations  " & Date & " "
.Body = """Sehr geehrte Damen und Herren," & vbLf & "anbei beigefügt finden Sie den wö  _
_
chentlichen Forecast der Nominierungen.  """ & vbLf & vbLf & " Freundliche Gruesse"
'Hier sollen die Zellen aus Excel eingefügt werden.
.Display
End With
Set OutApp = Nothing
Set Nachricht = Nothing
End Sub