'Dim objMessage as object <- auch ausprobiert
 Set objMessage = CreateObject("CDO.Message")
            objMessage.Subject = "Example CDO Message"
            objMessage.From = "xxx.xxx@xxx.com"
            objMessage.To ="xxxx.xxx@gmail.com"
            objMessage.TextBody = "This is some sample message text."
 
             objMessage.Configuration.Fields.Item _
            ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
 
            'Type of authentication, NONE, Basic (Base64 encoded), NTLM
            objMessage.Configuration.Fields.Item _
            ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") _
            = 2
 
            'Your UserID on the SMTP server
            objMessage.Configuration.Fields.Item _
            ("http://schemas.microsoft.com/cdo/configuration/sendusername") _
            ="DOMAIN\USER"
 
            'Your password on the SMTP server
            objMessage.Configuration.Fields.Item _
            ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = _
            "XXXX"
 
            objMessage.Configuration.Fields.Item _
            ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = _
            "XXX.global.pvt" ' 
            'Server port (typically 25)
            objMessage.Configuration.Fields.Item _
            ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = _
            25
 
            'Use SSL for the connection (False or True)
            objMessage.Configuration.Fields.Item _
            ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = _
            False
 
            'Connection Timeout in seconds (the maximum time CDO will try to 
            ' establish a connection to the SMTP server)
            objMessage.Configuration.Fields.Item _
            ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontim" & _
            "out") = 30
 
            objMessage.Configuration.Fields.Update
            objMessage.Send
            Set objMessage = Nothing

        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