Dim cdo
Set cdo = CreateObject("CDONTS.NewMail")
cdo.Send "Sender's Name <sender@yoursite.com>", "to@company.com", _
"Put Subject Here", "Here goes the body"
Set cdo = Nothing
You can change sender's email, receiver's email, subject and message body according to your own liking.
Create a new "SendMail.vbs" text file and copy/paste above code in it. Then after making sure SMTP Service is running which you can start by using following command:
net start smtpsvc
Open command prompt ( or double-click SendMail.vbs ) and type "SendMail.vbs" after reaching the folder it is located at. After some time check your email and you should have an email in your inbox.