CDOSYS in ASP

CDOSYS is a built-in ASP component used to send emails from an ASP application.

It is based on CDO (Collaboration Data Objects), a Microsoft technology created to make it easier to build messaging and email-related applications.

Using CDOSYS, you can send text emails, HTML emails, emails with attachments, and even emails through remote SMTP servers.

What About CDONTs?

Earlier ASP applications used CDONTs for sending emails. However, Microsoft has discontinued CDONTs on Windows 2000, Windows XP, and Windows 2003.

If your application still uses CDONTs, it is recommended to update the code and switch to CDOSYS (CDO technology).

Examples Using CDOSYS

Sending a Plain Text Email

<% Set myMail = CreateObject("CDO.Message") myMail.Subject = "Sending email with CDO" myMail.From = "mymail@mydomain.com" myMail.To = "someone@somedomain.com" myMail.TextBody = "This is a message." myMail.Send Set myMail = Nothing %>

Sending a Text Email with CC and BCC

<% Set myMail = CreateObject("CDO.Message") myMail.Subject = "Sending email with CDO" myMail.From = "mymail@mydomain.com" myMail.To = "someone@somedomain.com" myMail.Cc = "someoneelse2@somedomain.com" myMail.Bcc = "someoneelse@somedomain.com" myMail.TextBody = "This is a message." myMail.Send Set myMail = Nothing %>

Sending an HTML Email

<% Set myMail = CreateObject("CDO.Message") myMail.Subject = "Sending email with CDO" myMail.From = "mymail@mydomain.com" myMail.To = "someone@somedomain.com" myMail.HTMLBody = "

This is a message.

" myMail.Send Set myMail = Nothing %>

Sending an HTML Email from a Website

<% Set myMail = CreateObject("CDO.Message") myMail.Subject = "Sending email with CDO" myMail.From = "mymail@mydomain.com" myMail.To = "someone@somedomain.com" myMail.CreateMHTMLBody "https://www.w3schools.com/asp/" myMail.Send Set myMail = Nothing %>

Sending an HTML Email from a Local File

<% Set myMail = CreateObject("CDO.Message") myMail.Subject = "Sending email with CDO" myMail.From = "mymail@mydomain.com" myMail.To = "someone@somedomain.com" myMail.CreateMHTMLBody "file://c:/mydocuments/test.htm" myMail.Send Set myMail = Nothing %>

Sending a Text Email with an Attachment

<% Set myMail = CreateObject("CDO.Message") myMail.Subject = "Sending email with CDO" myMail.From = "mymail@mydomain.com" myMail.To = "someone@somedomain.com" myMail.TextBody = "This is a message." myMail.AddAttachment "c:\mydocuments\test.txt" myMail.Send Set myMail = Nothing %>

Sending an Email Using a Remote SMTP Server

<% Set myMail = CreateObject("CDO.Message") myMail.Subject = "Sending email with CDO" myMail.From = "mymail@mydomain.com" myMail.To = "someone@somedomain.com" myMail.TextBody = "This is a message." myMail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 ' SMTP server name or IP address myMail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.server.com" ' SMTP port number myMail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 myMail.Configuration.Fields.Update myMail.Send Set myMail = Nothing %>

e-mail