使用 CDOSYS 發(fā)送電子郵件

CDO (Collaboration Data Objects) 是一項(xiàng)微軟的技術(shù)，設(shè)計(jì)目的是用來(lái)簡(jiǎn)化通信程序的創(chuàng)建。

CDOSYS 是 ASP 中的內(nèi)置組件。我們會(huì)向您展示如何使用該組件來(lái)發(fā)送電子郵件。

CDONTs 怎么樣？

微軟已經(jīng)在 Windows 2000、Windows XP 以及 Windows 2003 中淘汰了 CDONTs。如果您還在應(yīng)用程序中使用 CDONTs，就需要更新代碼，并使用新的 CDO 技術(shù)。

使用 CDOSYS 的實(shí)例

發(fā)送電子郵件：

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

發(fā)送帶有 Bcc 和 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
%>

發(fā)送 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
%>

發(fā)送一封發(fā)送來(lái)自網(wǎng)站的網(wǎng)頁(yè)的 HTML 郵件：

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

發(fā)送一封發(fā)送來(lái)自電腦中文件的網(wǎng)頁(yè)的 HTML 郵件：

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

發(fā)送一封帶有附件的電子郵件：

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

使用遠(yuǎn)程服務(wù)器發(fā)送一封文本郵件：

<%
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
'遠(yuǎn)程 SMTP 服務(wù)器的 IP 或名稱
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") _
="smtp.server.com"
'服務(wù)器端口
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") _
=25 
myMail.Configuration.Fields.Update
myMail.Send
set myMail=nothing
%>