mappe per mail geht aber ohne inhalt??

Sub Makro1()
Dim Nachricht As Object, OutApp As Object
Set OutApp = CreateObject("Outlook.Application")
Dim AWS As String
AWS = ThisWorkbook.FullName
Set Nachricht = OutApp.CreateItem(0)
With Nachricht
.To = "mayk.nitze@abraham.de"
.Cc = "marco.kolodzinski@abraham.de;eva.brunkhorst@abraham.de;ina.taute@abraham.de"
.Subject = "Tarameldung " & Date & Time
.Attachments.Add AWS
.Body = "Bitte DSD- Gewichte pflegen" & vbCrLf & "QSM"
.Display
End With
Set OutApp = Nothing
Set Nachricht = Nothing
End Sub