<%
'Last Updated By Recon On 05/14/2001
'On Error Resume Next
'利用CDONTS組件在Win2k上發送郵件
Dim objMail
'普通郵件
'無主體
Set objMail = Server.CreateObject("CDONTS.NEWMAIL")
objMail.From = "iamchn@263.net"
objMail.To = "iamchn@21cn.com"
objMail.Subject = "TEST1"
objMail.Send
Set objMail = Nothing
'普通郵件
'有主體
Set objMail = Server.CreateObject("CDONTS.NEWMAIL")
objMail.From = "iamchn@263.net"
objMail.To = "iamchn@21cn.com"
objMail.Subject = "TEST2"
objMail.Body = "When i was young, i listened to the radio ..."
objMail.Send
Set objMail = Nothing
'普通郵件
'有多送.有主體
Set objMail = Server.CreateObject("CDONTS.NEWMAIL")
objMail.From = "iamchn@263.net"
objMail.To = "iamchn@21cn.com;iamchn@263.net"
objMail.Subject = "TEST3"
objMail.Body = "When i was young, i listened to the radio ..."
objMail.Send
Set objMail = Nothing
'普通郵件
'有抄送.有主體.有重要性
Set objMail = Server.CreateObject("CDONTS.NEWMAIL")
objMail.From = "iamchn@263.net"
objMail.To = "iamchn@21cn.com"
objMail.Cc = "iamchn@263.net;recon_chan@sohu.com"
objMail.Subject = "TEST4"
objMail.Body = "When i was young, i listened to the radio ..."
objMail.Importance = 2
objMail.Send
Set objMail = Nothing
'普通郵件
'有抄送.有暗送.有主體.有重要性
Set objMail = Server.CreateObject("CDONTS.NEWMAIL")
objMail.From = "iamchn@263.net"
objMail.To = "iamchn@21cn.com"
objMail.Cc = "recon_chan@sohu.com"
objMail.Bcc = "iamchn@263.net;recon_chan@sina.com"
objMail.Subject = "TEST5"
objMail.Body = "When i was young, i listened to the radio ..."
objMail.Importance = 2
objMail.Send
Set objMail = Nothing
'普通郵件
'有主體.有重要性.含附件
Set objMail = Server.CreateObject("CDONTS.NEWMAIL")
objMail.From = "iamchn@263.net"
objMail.To = "iamchn@21cn.com"
objMail.Subject = "TEST6"
objMail.Body = "When i was young, i listened to the radio ..."
objMail.Importance = 2
objMail.AttachFile "C:\Love.txt"
objMail.Send
Set objMail = Nothing
'HTML郵件
'有主體.有重要性
'注: AttachURL的使用可能有錯誤
Dim fso, tf
Dim strHTML
Set fso = Server.CreateObject("SCRIPTING.FILESYSTEMOBJECT")
Set tf = fso.OpenTextFile("C:\Mail.htm", 1)
strHTML = tf.ReadAll
Write strHTML
Set tf = Nothing
Set fso = Nothing
Set objMail = Server.CreateObject("CDONTS.NEWMAIL")
objMail.From = "iamchn@263.net"
objMail.To = "iamchn@21cn.com"
objMail.Subject = "TEST7"
objMail.Body = strHTML
objMail.BodyFormat = 0
objMail.MailFormat = 0
objMail.Importance = 2
objMail.AttachURL "c:\common.css", "common.css"
objMail.AttachURL "c:\logo.gif", "logo.gif"
objMail.Send
Set objMail = Nothing
%>
////////////////
一個過程。另外CDONTS在IIS5下才可以使用的，你還必須配置你的SMTP服務，在INTERNET管理器裏麵有。
<%
sub sendmail(fromwho,towho,subject,body)
dim cdo
set cdo=server.createobject("cdonts.newmail")
cdo.From=fromwho
cdo.To = towho
cdo.Subject =subject
cdo.Body =body
cdo.MailFormat=0
'說明是以MIME發送
cdo.BodyFormat=0
'可以包含html代碼
cdo.Importance=0
'郵件的優先級別0-1-2
'cdo.cc=xx@xx.net 抄送
'cdo.Bcc=xx@sf.net密送
'cdo.AttachFile "" 附件
cdo.Send
Set cdo=Nothing
end sub
sub sendattachmail(fromwho,towho,subject,body,attachfile)
dim cdo
set cdo=server.createobject("cdonts.newmail")
cdo.From=fromwho
cdo.To = towho
cdo.Subject =subject
cdo.Body =body
cdo.MailFormat=0
cdo.BodyFormat=0
cdo.Importance=0
cdo.AttachFile attachfile
cdo.Send
Set cdo=Nothing
end sub
%>
發送帶附件的HTML格式郵件例程
如何通過 ASP 來發送帶附件、格式為 HTML 的郵件？下麵提供了一個例程.
<%@ LANGUAGE=VBScript%>
<%
Response.Buffer = True
Response.Expires = 0
'創建對象實例
Set myMail = Server.CreateObject("CDONTS.NewMail")
'以下是將要發送的內容
HTML = "<html>"
HTML = HTML & "<head>"
HTML = HTML & "<title>Sending CDONTS Email Using HTML</title>"
HTML = HTML & "</head>"
HTML = HTML & "<body bgcolor=""FFFFFF"">"
HTML = HTML & "<p><font size=7>"
HTML = HTML & "This is a test mail in html<br>"
HTML = HTML & "Mail content here ...</font></p>"
HTML = HTML & "</body>"
HTML = HTML & "</html>"
'發件人
myMail.From = "somebody@somewhere.com"
'收件人
myMail.To = "nobody@somewhere.com"
'密件抄送
myMail.Bcc = "nobody@somewhere.com"
'抄送
myMail.Cc = "nobody@somewhere.com"
'郵件的重要性
' 0 重要性低
' 1 重要性一般（默認）
' 2 重要性高
myMail.Importance = 2
'郵件主題
myMail.Subject = "Test mail in HTML"
'附件（注意 e:\test.txt 指的是服務器上的位置，如果使用相對路徑，必須用 Server.MapPath 映射為真實路徑）
myMail.AttachFile "e:\test.txt"
'NewMail 對象的文字格式
'0 表示該 Body 可包含超文本置標語言 (HTML)
'1 表示該 Body 隻用於純文本（默認值）
myMail.BodyFormat = 0
'NewMail 對象設置編碼
'0 表示將采用 MIME 格式
'1 表示將采用連續的純文本（默認值）
myMail.MailFormat = 0
'給郵件對象的文本賦值
myMail.Body = HTML
'將郵件發出
myMail.Send
'銷毀對象實例，釋放內存
Set myMail = Nothing
%>
用Cdonts實現發送Email
--------------------------------------------------------------------
<%
dim cdo
set cdo=server.createobject("cdonts.newmail")
cdo.From=fromwho "發件人信箱
cdo.To = towho "收件人信箱
cdo.Subject =subject "主題
cdo.Body =body "郵件正文
cdo.MailFormat=0 "說明是以MIME發送
cdo.BodyFormat=0 "可以包含html代碼
cdo.Importance=0 "郵件的優先級別0-1-2
cdo.cc=xx@xx.net "抄送
cdo.Bcc=xx@sf.net "密送
cdo.AttachFile attachfile "附件
cdo.Send
Set cdo=Nothing
%>
下麵我們看一個實例：
dim str
str=str&"您好!"
str=str&" 由中國學生網所提供的劣質服務（ASP服務器癱瘓），導致本站連繼兩天不能訪問。"
str=str&"站長向這段時間不能訪問本站的朋友深表歉意！本工作室也正在考慮更換網絡提供商！<br>"
str=str&" 本站永久域名：www.chinabs.net 主要麵向B/S技術愛好者。<br>"
str=str&" 建站的目的是為B/S愛好者提供一個學習交流的平台，同時也為商家建立企業上網平" str=str&"台，企業內部B/S應用提供解決方案。<br>"
str=str&" 主要內容包括：ASP,ASP.NET,JSP,PHP,C#,Java,JavaScript,XML學習文章，B/S技術" str=str&"交流論壇及一些本工作室開發的一些B/S應用。<br>"
str=str&" 本站的發展離不開大家的支持！<br>"
str=str&" 謝謝！<br>"
str=str&" 站長：追風<br>"
str=str&" 深圳比艾思工作室<br>"
filename="test.gif" "附件文件名
path=Server.MapPath("\jefenet\images\" & filename) "附件的路徑
Set theMail=Server.CreateObject("CDONTS.NewMail")
theMail.From="chinabs@263.net" "發件人信箱
theMail.To ="jeffzb@21cn.com" "收件人信箱
theMail.Subject ="電子郵件功能測試！" "主題
theMail.BodyFormat=0 "定義以Html的格式發送郵件
theMail.MailFormat=0 "定義以Mime的格式發郵件
theMail.Body=Str "郵件正文
On Error Resume Next "如果找不到附件，則跳過
theMail.AttachFile path,filename
theMail.Send
set theMail=nothing
--------------------------------------------
注意:
theMail.AttachFile 第一個參數為服務器實際路徑，第二個參數為郵件中顯示的文件名
