Dim SendMail

Set SendMail = CreateObject("CDO.Message")
SendMail.From =" EnterFromEmailAddress"
SendMail.To = "EnterToEmailAddress"
SendMail.Subject = "EnterSubjectHere"
SendMail.TextBody = "EnterEmailBodyTextHere"
SendMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
SendMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "EnterSMTPServerIPorDNSName"
SendMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = "25"
SendMail.Configuration.Fields.Update
SendMail.Send

WScript.Quit