Gửi email bằng CDOSYS trong ASP

CDOSYS là một thành phần tích hợp trong ASP. Thành phần này được sử dụng để gửi email qua ASP.

Gửi email bằng CDOSYS

CDO (Collaboration Data Objects) là công nghệ của Microsoft, được thiết kế để đơn giản hóa việc tạo lập các chương trình truyền thông.

CDOSYS là một thành phần tích hợp trong ASP. Chúng tôi sẽ hướng dẫn bạn cách sử dụng thành phần này để gửi email.

CDONTs thế nào?

Microsoft đã loại bỏ CDONTs trong Windows 2000, Windows XP và Windows 2003. Nếu bạn vẫn đang sử dụng CDONTs trong ứng dụng, bạn cần cập nhật mã và sử dụng công nghệ CDO mới.

Sử dụng ví dụ của CDOSYS

Gửi 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
%>

Gửi email văn bản có trường Bcc và CC:

<%
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
%>

Gửi email HTML:

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

Gửi một email HTML từ trang web:

<%
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.codew3c.com/asp/" 
myMail.Send
set myMail=nothing
%>

Gửi một email HTML từ tệp trên máy tính:

<%
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
%>

Gửi một email có đính kèm:

<%
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
%>

Gửi một email văn bản thông qua máy chủ từ xa:

<%
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
'Địa chỉ IP hoặc tên của máy chủ SMTP từ xa
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") _
="smtp.server.com"
'Cổng SMTP
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") _
=25 
myMail.Configuration.Fields.Update
myMail.Send
set myMail=nothing
%>