Set objMsg = CreateObject("CDO.Message")
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"