Dim objMsg, objConfiguration, objConfigFields
Set objConfiguration = CreateObject("CDO.Configuration")
Set objConfigFields = objConfiguration.Fields

objConfigFields.Item("http://schemas.microsoft.com/cdo/" & _
	 "configuration/sendusing") = 2
objConfigFields.Item("http://schemas.microsoft.com/cdo/" & _
	 "configuration/smtpserverport") = 25
objConfigFields.Item("http://schemas.microsoft.com/cdo/" & _
	 "configuration/smtpserver") = "mail.westernsydney.edu.au"
	 'or try a remote server "mail.scem.westernsydney.edu.au" 
objConfigFields.Update

Set objMsg = CreateObject("CDO.Message")
objMsg.Configuration = objConfiguration
objMsg.Subject = "subject of the message here"
objMsg.From = "your email address here"
objMsg.To = "addressee's email address here"
objMsg.TextBody = "the message text here"
objMsg.Send
WScript.echo "Message sent"