Private Sub Workbook_Open()
Dim Nachricht As Object, OutlookApplication As Object
Set OutlookApplication = CreateObject("Outlook.Application")
Dim Anhang As String
Anhang = ThisWorkbook.FullName
Set Nachricht = OutlookApplication.CreateItem(0)
With Nachricht
.To = "vorname.namer@meineadresse.de"
.Subject = "Massnahmei.xlsm"
.Body = " wurde bearbeitet."
.attachments.Add Anhang
.Send
SendKeys "%s", True
SendKeys "^{ENTER}", True
End With
Set OutlookApplication = Nothing
Set Nachricht = Nothing
End Sub