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.tw/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
%>
