Send Email using CDO without installing the SMTP Service

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

Set objEml = CreateObject(“CDO.Message”)
objEml.From = “
objEml.To = “
objEml.Subject = “Test Mail”
objEml.Textbody = “Oops…You got the Mail!!”
objEml.Configuration.Fields.Item (““) = 2
objEml.Configuration.Fields.Item (““) = “smtpserver”
objEml.Configuration.Fields.Item (““) = 25
Msgbox “Mail Sent!”

Please note that,
1) Replace the name SSN with SMTP server name
2) The script will work where the SMTP Service has not been installed