Dim objOutlook As Object
        Dim objOutlookMsg As Outlook.MailItem
 
        Const olMailItem = 0
        Const olTo = 1
        Const olImportanceHigh = 1
        objOutlook = CreateObject("Outlook.Application")
        objOutlookMsg = objOutlook.CreateItem(olMailItem)
 
        With objOutlookMsg
            Dim objOutlookRecip As Object = .Recipients.Add("test@blablabla.at")
            Dim objOutlookAttachment As Object = .Attachments.Add( _
              "c:\blablabla.txt")
            objOutlookRecip.type = olTo
            .Subject = "Servus"
            .Body = "Hier steht der Text"
            .Importance = olImportanceHigh 
            .Display() '.send() für gleich senden!!!!!
        End With
        objOutlookMsg = Nothing
        objOutlook = Nothing
        objOutlook = Nothing