CDOSYS (Collaboration Data Objects for Windows 2000) 是 ASP 內建的郵件發送元件,取代舊版 CDONTs,支援 HTML 郵件、附件、CC/BCC、遠端 SMTP 伺服器認證等功能。
<%
Set myMail = CreateObject("CDO.Message")
myMail.Subject = "CDOSYS 測試郵件"
myMail.From = "sender@mydomain.com"
myMail.To = "recipient@somedomain.com"
myMail.TextBody = "這是純文字郵件內容。"
myMail.Send
Set myMail = Nothing
%>
myMail.Cc = "cc@domain.com"
myMail.Bcc = "bcc@domain.com"
myMail.HTMLBody = "<h1>HTML 郵件標題</h1><p>支援<b>粗體</b>與圖片</p>"
myMail.CreateMHTMLBody "https://www.example.com/newsletter.html"
myMail.CreateMHTMLBody "file://c:/templates/welcome.htm"
myMail.AddAttachment "c:\documents\report.pdf"
myMail.Configuration.Fields.Item _
("https://schemas.microsoft.com/cdo/configuration/sendusing") = 2 ' 使用網路 SMTP
myMail.Configuration.Fields.Item _
("https://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
myMail.Configuration.Fields.Item _
("https://schemas.microsoft.com/cdo/configuration/smtpserverport") = 587
myMail.Configuration.Fields.Item _
("https://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 ' 基本認證
myMail.Configuration.Fields.Item _
("https://schemas.microsoft.com/cdo/configuration/sendusername") = "your@gmail.com"
myMail.Configuration.Fields.Item _
("https://schemas.microsoft.com/cdo/configuration/sendpassword") = "yourpassword"
myMail.Configuration.Fields.Update
Windows 2000/XP/2003 之後微軟停止支援 CDONTs,現有專案務必遷移至 CDOSYS 或改用 .NET System.Net.Mail、第三方郵件服務 (SendGrid, Mailgun, Amazon SES) 等更穩定方案。