Go4Expert - Sending e-mail in ASP with CDOSYS

Introduction

CDOSYS is a built-in component in ASP. This component is used to send e-mails with ASP.

Sending e-mail with CDOSYS

CDO (Collaboration Data Objects) is a Microsoft technology that is designed to simplify the creation of messaging applications.
CDOSYS is a built-in component in ASP. We will show you how to use this component to send e-mail with ASP.

How about CDONTs?

Microsoft has discontinued the use of CDONTs on Windows 2000, Windows XP and Windows 2003. If you have used CDONTs in your ASP applications, you should update the code and use the new CDO technology.

Examples using CDOSYS
Sending a text e-mail:

Code: ASP

<%
  
  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 e-mail with Bcc and CC fields:

Code: ASP

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

Sending an HTML e-mail:

Code: ASP

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

Sending an HTML e-mail that sends a webpage from a website:

Code: ASP

<%
  
  Set myMail=CreateObject("CDO.Message")
  
  myMail.Subject="Sending email with CDO"
  
  myMail.From="mymail@mydomain.com"
  
  myMail.To="someone@somedomain.com"
  
  myMail.CreateMHTMLBody "http://www.go4expert.com"
  
  myMail.Send
  
  set myMail=nothing
  
  %>

Sending an HTML e-mail that sends a webpage from a file on your computer:

Code: ASP

<%
  
  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/go4expert.htm"
  
  myMail.Send
  
  set myMail=nothing
  
  %>

Sending a text e-mail with an Attachment:

Code: ASP

<%
  
  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\go4expert.txt"
  
  myMail.Send
  
  set myMail=nothing
  
  %>

Sending a text e-mail using a remote server:

Code: ASP

<%
  
  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
  
  'Name or IP of remote SMTP server
  
  myMail.Configuration.Fields.Item _
  
  ("http://schemas.microsoft.com/cdo/configuration/smtpserver") _
  
  ="smtp.server.com"
  
  'Server port
  
  myMail.Configuration.Fields.Item _
  
  ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") _
  
  =25
  
  myMail.Configuration.Fields.Update
  
  myMail.Send
  
  set myMail=nothing
  
  %>