ASP教程：學習掌握使用CDOSYS寄送電子郵件

教程

CDOSYS是ASP中的內建群組件。此組建用於通過ASP來寄送電子郵件。

使用CDOSYS寄送電子郵件

CDO (Collaboration Data Objects)是一項微軟的技術，被設計用來簡化通訊程式的建立。

CDOCDOSYS是ASP中的內建群組件。我們將會您展示如何使用該組件來寄送電子郵件。

How about CDONTs?

微軟已經在Windows 2000、Windows XP以及Windows 2003中淘汰了CDONTs。如果您還在應用程式中使用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.Sendset 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.Sendset 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 = "<h1>This is a message.</h1>" myMail.Sendset 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.webjx.com/" myMail.Sendset 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.Sendset 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:\mydocuments\test.txt"myMail.Sendset 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 servermyMail.Configuration.Fields.Item _("http://schemas.microsoft.com/cdo/configuration/smtpserver") _="smtp.server.com"'Server portmyMail.Configuration.Fields.Item _("http://schemas.microsoft.com/cdo/configuration/smtpserverport") _=25 myMail.Configuration.Fields.UpdatemyMail.Sendset myMail=nothing%>