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 = "使用 CDO 发送电子邮件"
myMail.From = "mymail@mydomain.com"
myMail.To = "someone@somedomain.com"
myMail.TextBody = "这是一条消息。"
myMail.Send
set myMail = nothing
%>
发送带有密送 (Bcc) 和抄送 (Cc) 字段的纯文本电子邮件
<%
Set myMail = CreateObject("CDO.Message")
myMail.Subject = "使用 CDO 发送电子邮件"
myMail.From = "mymail@mydomain.com"
myMail.To = "someone@somedomain.com"
myMail.Bcc = "someoneelse@somedomain.com"
myMail.Cc = "someoneelse2@somedomain.com"
myMail.TextBody = "这是一条消息。"
myMail.Send
set myMail = nothing
%>
发送 HTML 格式的电子邮件
<%
Set myMail = CreateObject("CDO.Message")
myMail.Subject = "使用 CDO 发送电子邮件"
myMail.From = "mymail@mydomain.com"
myMail.To = "someone@somedomain.com"
myMail.HTMLBody = "<h1>这是一条消息。</h1>"
myMail.Send
set myMail = nothing
%>
发送一封 HTML 格式电子邮件，该邮件发送网站上的网页
<%
Set myMail = CreateObject("CDO.Message")
myMail.Subject = "使用 CDO 发送电子邮件"
myMail.From = "mymail@mydomain.com"
myMail.To ="someone@somedomain.com"
myMail.CreateMHTMLBody "https://w3schools.org.cn/asp/"
myMail.Send
set myMail = nothing
%>
发送一封 HTML 格式电子邮件，该邮件发送计算机上的文件网页
<%
Set myMail = CreateObject("CDO.Message")
myMail.Subject = "使用 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 = "使用 CDO 发送电子邮件"
myMail.From = "mymail@mydomain.com"
myMail.To = "someone@somedomain.com"
myMail.TextBody = "这是一条消息。"
myMail.AddAttachment "c:\mydocuments\test.txt"
myMail.Send
set myMail = nothing
%>
使用远程服务器发送纯文本电子邮件
<%
Set myMail = CreateObject("CDO.Message")
myMail.Subject = "使用 CDO 发送电子邮件"
myMail.From = "mymail@mydomain.com"
myMail.To = "someone@somedomain.com"
myMail.TextBody = "这是一条消息。"
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
'远程 SMTP 服务器的名称或 IP
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.server.com"
'服务器端口
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
myMail.Configuration.Fields.Update
myMail.Send
set myMail = nothing
%>
