Send Email from a Script using CDO

Here is a code snippet of a script that uses CDO to send email from a computer.

Set objEml = CreateObject("CDO.Message")
objEml.From = "testuser@admin.com"
objEml.To = "sampleuser@admin.com"
objEml.Subject = "Sample Message"
objEml.Textbody = "Test Message from Test User"
objEml.Send
Msgbox "Mail Sent!!"

Please note that the script will work only where SMTP Service has been installed.