ASP 使用 CDOSYS 发送电子邮件

CDOSYS 是 ASP 中的内建组件。此组件用于通过 ASP 发送电子邮件。

使用 CDOSYS 发送电子邮件

CDO (Collaboration Data Objects) 是一项微软的技术，设计目的是用来简化通讯应用程序的创建。

CDOSYS 是 ASP 中的内建组件。我们将向您演示如何通过 ASP 使用该组件来发送电子邮件。

CDONTs 怎么样？

微软已经在 Windows 2000、Windows XP 和 Windows 2003 中淘汰了 CDONTs。如果您已经在您的 ASP 应用程序中使用 CDONTs，那么您需要更新代码，并使用新的 CDO 技术。

使用 CDOSYS 的实例

发送文本电子邮件：

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

发送带有 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
             
%>

发送 HTML 电子邮件：

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

发送一封内容为某个网站的某个网页的 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.shouce.ren/asp/"
             
myMail.Send
             
set myMail=nothing
             
%>

发送一封内容为您的计算机中某个文件的某个网页的 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
             
%>

发送一封带有附件的文本电子邮件：

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

使用远程服务器发送一封文本电子邮件：

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

Article précédent： Article suivant：