'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