Sub Send_WB()
 ActiveWorkbook.Save
 ThisWorkbook.SendMail _
   "someone@jumper.ch", _
   "News"
End Sub

' To open the Outlook-Dialog:

Application.Dialogs(xlDialogSendMail).Show