Dim app As New Microsoft.Office.Interop.Outlook.Application
        Dim olMail As Object
 
        Const OL_MAILITEM As Integer = 0
 
        app = CreateObject("Outlook.Application")
 
        olMail = app.CreateItem(OL_MAILITEM)
 
        With olMail
            '.to("r.proppe@googlemail.com")
            .Subject = "Betreff"
            .Body = "Dein Text"
            .Display()
        End With