VBScript to send an email without using Outlook

SendEmail.vbs

Sub SendEmail( fromAddress, toAddress, subject, body )
On Error Resume Next
	Dim Email
	Set Email = CreateObject("CDO.Message")
	Email.From = fromAddress
	Email.To = toAddress
	Email.Subject = subject
	Email.TextBody = body
	Email.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
	Email.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.google.com"
	Email.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 
	Email.Configuration.Fields.Update
	Email.Send
End Sub