Sending Email using VBScript via Google Apps Mail / GMail

Following on from my previous post Sending Email using ASP.NET via Google Apps Mail / GMail, I have needed to send an email via GMail / Google Apps using VBScript. So here it is...

Dim objMessage

Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = "MY_SUBJECT"
objMessage.From = "FROM_ADDRESS_SAME_AS_USER_NAME"
objMessage.To = "TO_ADDRESS"
objMessage.TextBody = "MY_MESSAGE"

objMessage.Configuration.Fields.Item( _
"http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objMessage.Configuration.Fields.Item( _
"http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
objMessage.Configuration.Fields.Item( _
"http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
objMessage.Configuration.Fields.Item( _
"http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
objMessage.Configuration.Fields.Item( _
"http://schemas.microsoft.com/cdo/configuration/smtpusessl") = true
objMessage.Configuration.Fields.Item( _
"http://schemas.microsoft.com/cdo/configuration/sendusername") = "MY_USER_NAME"
objMessage.Configuration.Fields.Item( _
"http://schemas.microsoft.com/cdo/configuration/sendpassword") = "MY_PASSWORD"
objMessage.Configuration.Fields.Update

out = objMessage.Send
Set objMessage = Nothing