Makrofehler Mail versenden Ramses? auch andere

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
'InitializeOutlook = True
Set Nachricht = OutApp.CreateItem(0)
With Nachricht
.To = "test@test.de"
.Subject = "Strombezugsänderung von " & Range("B16") & " " & Date & " " & Time
.attachments.Add AWS
'Hier wird die HTML Mail erstellt
.HTMLBody = "Einen wunderschönen Tag wünschen wir Ihnen" '& vbCrLf & "Bitte ignorieren."
'Hier wird die Mail nochmals angezeigt
.Display
'Hier wird die Mail gleich in den Postausgang gelegt
Mail.Send
End With
OutApp.Quit
Set OutApp = Nothing
Set Nachricht = Nothing
End Sub