Sub Senden()
 ActiveWorkbook.Save    ' Zuerst die Mappe speichern
 ThisWorkbook.SendMail _
   "monika@jumper.ch", _
   "Neueste Nachrichten"
End Sub

' Outlook-Dialog öffnen

Application.Dialogs(xlDialogSendMail).Show