ich habe hier einen Code von online-excel.de, welcher auch super funktioniert. Wie müsste ich den Code anpassen, damit der Desktop als Speicherort voreingestellt ist.
Option Explicit
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
Vielen Dank!