Email: Excel Mappe auf Desktop speichern

Sub Excel_Workbook_via_Outlook_Senden()
    Dim MyMessage As Object, MyOutApp As Object
    Dim Qe As Integer
    Dim AWS As String
    If ThisWorkbook.Saved = False Then
        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
            MsgBox "Sendevorgang abgebrochen"
            Exit Sub
        Else
            If Right(ThisWorkbook.Name, 3)  "xls" Then
                Application.Dialogs(xlDialogSaveAs).Show
            Else
                ThisWorkbook.Save
            End If
        End If
    End If
    AWS = ThisWorkbook.FullName
    Set MyOutApp = CreateObject("Outlook.Application")
    Set MyMessage = MyOutApp.CreateItem(0)
    With MyMessage
        .To = "irgendwer@provider"
        .Subject = "Testmeldung von Excel2000 " & Date & Time
        .Attachments.Add AWS
        .Body = "Mail für normalen Textempfang"
        .Display
        .Send
    End With
    MyOutApp.Quit
    Set MyOutApp = Nothing
    Set MyMessage= Nothing
End Sub