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 = “testuser@admin.com
objEml.To = “sampleuser@admin.com
objEml.Subject = “Test Mail”
objEml.Textbody = “Oops…You got the Mail!!”
objEml.Configuration.Fields.Item (“http://schemas.microsoft.com/cdo/configuration/sendusing“) = 2
objEml.Configuration.Fields.Item (“http://schemas.microsoft.com/cdo/configuration/smtpserver“) = “smtpserver”
objEml.Configuration.Fields.Item (“http://schemas.microsoft.com/cdo/configuration/smtpserverport“) = 25
objEml.Configuration.Fields.Update
objEml.Send
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