title: I want to send a mail using VBScript and CDO
body: <p>Hi This code is working fine from out side of my OFFICE.But not working in office network...Is port is blocked is the reason??????</p>
  
  <p>The Code is here. Error is also mentioned in the last.   </p>
  
  <pre><code>MsgBox("Hello world")
  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 = "Example CDO Message"
  objMessage.From = """xyz"" &lt;mymail@gmail.com&gt;"
  objMessage.To = "anothersmail@gmail.com"
  objMessage.TextBody = "hi it's me...." &amp; vbCRLF &amp; "this is wrking so we hav solved the issue."
  
  '==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 ) = "mymail@gmail.com"
  
  'Your password on the SMTP server
  objMessage.Configuration.Fields.Item _
  ("http://schemas.microsoft.com/cdo/configuration/sendpassword ) = "****************"
  
  'Server port (typically 25)
  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("Hello world") 
  </code></pre>
  
  <hr>
  
  <p>Error:line 52,Char 1,Error the transport failed to connect to the server. code:80040213..</p>