Private Sub cmdEmail_Click()
 
Dim ol, mail As Object
Set ol = CreateObject("Outlook.Application")
Set mail = ol.CreateItem(0)
mail.to = "irgendwer@irgendwo.de"
mail.Subject = "irgendeinbetreff"
mail.Body = "nein nein nein"       '--->Will ich nicht haben
mail.Send
 
 
End Sub