Sub Mail()
 
 
    Set email = CreateObject("Outlook.Application")
    Set WshShell = CreateObject("Wscript.shell")    
 
    With email.CreateItem(0)
        .Recipients.Add "bla@bla.at"
        .Subject = "bla bla bla bla bla"
        .Body = "Sehr geehrte Damen und Herren!"
        .display
    End With
    Set email = Nothing
    wscript.quit
 
End Sub