Ausgefüllte Tabelle wird nicht verschickt

Sub Excel_Workbook_via_Outlook_Senden()
Dim Nachricht As Object, OutApp As Object
Set OutApp = CreateObject("Outlook.Application")
Dim AWS As String
'Aktive Arbeitsmappe wird als Mail gesendet
AWS = ThisWorkbook.FullName
Set Nachricht = OutApp.CreateItem(0)
With Nachricht
.To = "m.muster@musterhausen.de"
.Subject = "Stammdatenaktualisierung "
.Attachments.Add AWS
.Body = "In der Anlage erhalten Sie das ausgefüllte Formular zurück" & vbCrLf & vbCrLf & _
"Mit freundlichen Grüssen" & vbCrLf & ""
'Hier wird die Mail nochmals angezeigt
.Display
'Hier wird die Mail gleich in den Postausgang gelegt
'Mail.Send
End With
'Outlook schliessen
'OutApp.Quit
'Set OutApp = Nothing
'Set Nachricht = Nothing
End Sub

Was ist hier verkehrt?
Kann mir jemand helfen?
MfG
BuStü