Share via

Send Email using CDO without installing the SMTP Service

  • Article

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 ("https://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objEml.Configuration.Fields.Item ("https://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtpserver"
objEml.Configuration.Fields.Item ("https://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