How to send a GMail through IDEAScript

I found this post on the IDEA forums on how to use IDEAScript to send a gmail message. Thought it might be of use to someone.

Sub Main
	Set objMessage = CreateObject("CDO.Message") 
		objMessage.Subject = "Example CDO Message" 
		objMessage.From = "ideasupport@caseware.com" 
		objMessage.To = "oscar.salas@caseware.com" 
		objMessage.TextBody = "New"
		
		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") = "myemail@caseware.com"
		
		objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "password1"
		
		objMessage.Configuration.Fields.Update
		
		objMessage.Send
	Set objMessage = Nothing
End Sub