Makro Email versand p Outlook incl. Datei u Range

Sub Gesamt_Excel_Workbook_via_Outlook_Senden()
Dim MyMessage As Object, MyOutApp As Object
Dim Qe As Integer
Dim AWS As String
ActiveSheet.Range("A1:N40").Select
'Testen ob die aktuelle Mappe schon gespeichert wurde
If ThisWorkbook.Saved = False Then
'Die letzten aenderungen wurden noch nicht gespeichert
Qe = MsgBox("Diese Mappe wurde noch nicht gespeichert, und kann nicht versandt werden!"  _
_
_
_
& Chr$(13) & "Soll die Datei gespeichert werden?", vbInformation + vbYesNo, " _
Sendefehler")
If Qe = vbNo Then
'Abbruch durch Benutzer
MsgBox "Sendevorgang abgebrochen"
Exit Sub
Else
'Pruefen ob die Datei schon mal gespeichert wurde
If Right(ThisWorkbook.Name, 3)  "xls" Then
'Nein > Speicherdialog aufrufen
Application.Dialogs(xlDialogSaveAs).Show
Else
'Speichern
ThisWorkbook.Save
End If
End If
End If
'Aktive Arbeitsmappe wird als mail gesendet
'uebergabe des Mappennames an die Variable
AWS = ThisWorkbook.FullName
'Outlook Object erstellen
Set MyOutApp = CreateObject("Outlook.Application")
'Outlook Nachricht erstellen
Set MyMessage = MyOutApp.CreateItem(0)
With MyMessage
'Empfaenger
.To = ""
.cc = ""
'Betreff
.Subject = "Gesamt Inbound Backlog Report "
.Attachments.Add AWS
'Hier wird ein normaler Text erstellt
ActiveSheet.Range("A1:N40").Select    ' Die Auswahl A1:N40 wird mit in die Email    _
_
_
eingefuegt
ActiveWorkbook.EnvelopeVisible = True  'pruefung der Auswahl
Code:
.Body = "Hallo zusammen," & vbCrLf & "Text" & vbCrLf & "Viele Gruesse" & vbCrLf & "Text" &  _
vbCrLf & "To open the excel sheet please save the datas bevore."
.Send
'Hier wird die Mail gleich in den Postausgang gelegt und gesendet
'.Send
End With
Set MyOutApp = Nothing
Set MyMessage = Nothing
End Sub