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

Skip to main content