免費(fèi)AI編程助手
ASP 發(fā)送電子郵件
2018-02-23 10:10 更新
ASP 使用 CDOSYS 發(fā)送電子郵件
CDOSYS 是 ASP 中的內(nèi)建組件
CDOSYS組件是用于通過(guò) ASP 發(fā)送電子郵件的。
使用 CDOSYS 發(fā)送電子郵件
CDO (Collaboration Data Objects) 是一項(xiàng)微軟的技術(shù)，設(shè)計(jì)目的是用來(lái)簡(jiǎn)化通訊應(yīng)用程序的創(chuàng)建。
CDOSYS 是 ASP 中的內(nèi)建組件，接下里我們將向您演示如何通過(guò) ASP 使用該組件來(lái)發(fā)送電子郵件。
CDONTs 怎么樣？
微軟已經(jīng)在 Windows 2000、Windows XP 和 Windows 2003 中淘汰了 CDONTs。如果您已經(jīng)在您的 ASP 應(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
%>
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
%>
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
%>
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ā)送一封內(nèi)容為某個(gè)網(wǎng)站的某個(gè)網(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.o2fo.com/asp/"
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.CreateMHTMLBody "http://www.o2fo.com/asp/"
myMail.Send
set myMail=nothing
%>
您可以發(fā)送一封內(nèi)容為您的計(jì)算機(jī)中某個(gè)文件的某個(gè)網(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
%>
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: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.AddAttachment "c:mydocumentstest.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
'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
%>
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
%>
以上便是通過(guò) ASP 使用該組件來(lái)發(fā)送電子郵件的全部?jī)?nèi)容，本章全部結(jié)束，接下來(lái)您需要學(xué)習(xí)的是ASP對(duì)象。
以上內(nèi)容是否對(duì)您有幫助：
更多建議：