title: VBScript to send emails not working, error code 0x80040217?
body: <p>I have the following VB script that works fine when sending an email from a gmail account. However, I'd like to send emails from a corporate account that uses a google apps account. I'm not sure if I should chance the SMTP server in this code, if so; what should it be? </p>
  
  <pre><code>Const cdoSendUsingPickup = 1 'Send message using the local SMTP service pickup directory. 
  Const cdoSendUsingPort = 2 'Send the message using the network (SMTP over the network). 
  
  Const cdoAnonymous = 0 'Do not authenticate
  Const cdoBasic = 1 'basic (clear-text) authentication
  Const cdoNTLM = 2 'NTLM
  
  Set objMessage = CreateObject("CDO.Message") 
  objMessage.Subject = "This is a test!" 
  objMessage.From = "dummy1@somecorp.com" 
  objMessage.To = "dummy2@somecorp.com" 
  'objMessage.TextBody = "This is some sample message text.." &amp; vbCRLF &amp; "It was sent using SMTP authentication and SSL."
  objMessage.HTMLBody = "&lt;h1&gt;This is some sample message in html.&lt;/h1&gt;&lt;br/&gt;&lt;h2&gt;Just to test HTML elements if they're working or not.&lt;/h2&gt;" 
  '==This section provides the configuration information for the remote SMTP server.
  
  objMessage.Configuration.Fields.Item _
  ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 
  
  'Name or IP of Remote SMTP Server
  objMessage.Configuration.Fields.Item _
  ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
  
  'Type of authentication, NONE, Basic (Base64 encoded), NTLM
  objMessage.Configuration.Fields.Item _
  ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic
  
  'Your UserID on the SMTP server
  objMessage.Configuration.Fields.Item _
  ("http://schemas.microsoft.com/cdo/configuration/sendusername") = "dummy1@somecorp.com"
  
  'Your password on the SMTP server
  objMessage.Configuration.Fields.Item _
  ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "password"
  
  'Server port 
  objMessage.Configuration.Fields.Item _
  ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465 
  
  'Use SSL for the connection (False or True)
  objMessage.Configuration.Fields.Item _
  ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
  
  '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/smtpconnectiontimeout") = 60
  
  objMessage.Configuration.Fields.Update
  
  '==End remote SMTP server configuration section==
  
  objMessage.Send
  msgbox "Done:)"
  </code></pre>