CDONTS組件是做什麽用的？
發佈時間:2013-7-27
CDONTS組件
在ASP中發送Email時往往需要一個COM組件支持，如果你沒有第三方的Email組件，你可以使用IIS本身提供CDONTS EMail組件。這個組件使用時需要安裝和啓動SMTP服務。這個組件的名稱爲CDONTS.DLL,使用前需要使用RegSvr32注冊這個組件。
CDONTS組件提供了一系列對象，包括AddressEntry、Attachment、Attachments、Folder、Message、Messages、NewMail、Recipient、Recipients、Session，我們經常使用的是NewMail對象。下面是NewMail對象提供的方法和屬性：
名稱
功能 格式
Attach 添加附件 Sub AttachFile(Source, [FileName], [EncodingMethod])
AttachURL 以格式添加附加和數據 Sub AttachURL(Source,ContentLocation, [ContentBase], [EncodingMethod])
BCC 以“，”分隔的接收者列表（暗送） 字符串類型屬性
Body TextHTML 字符串類型屬性
bodyformat 郵件正文格式 0:HTMl1:Text
CC 以“，”分隔的接收者列表（抄送） 字符串類型屬性
ContentBase 帶有附件的郵件中正文采用的基地址 字符串類型屬性
ContentLocation 帶有附件的郵件中正文采用的 字符串類型屬性
From 郵件發送方地址 字符串類型屬性
Importance 郵件級别 0: 1 2:
Send 發送郵件 Sub Send([From], [To], [Subject], [Body], [Importance]) 各個參數可以參考上下文屬性
SetLocaleIDs 設置新消息的代碼頁标識 Sub SetLocaleIDs(CodePageID As Long)
Subject 郵件主題 字符串類型屬性
To 以“，”分隔的接收者地址列表 字符串類型屬性
Value 任意的郵件頭的值 字符串類型屬性
Version 當前集合數據對象庫（）的版本号 隻讀字符串類型屬性
在使用有關對象的方法時，方括号參數可以省略。
下面是采用ASP使用的例子：
Dim MailObject
Set MailObject = Server.CreateObject("CDONTS.NewMail")
MailObject.Send "發送方郵件地址","接收方郵件地址","主題","郵件正文"
發送附件時可以這樣：
Dim MailObject
Set MailObject = Server.CreateObject("CDONTS.NewMail")
att_fileName="附件文件名完整路徑"
f_name="文件名"
MailObject.From="在這填寫發件人地址"
MailObject.To="在這填寫接收人地址"
MailObject.Subject="填寫主題"
MailObject.Body="填寫正文"
MailObject.AttachFile att_file,f_name
MailObject.Send
注意：發送郵件時需要IUSR_<機器名>用戶對 x:\Inetpub\mailroot 目錄有讀寫權限。
|
CDONTS組件：你不必專門下載，微軟已經提供了這個組件，隻要安裝了NT的SMTP就會有的。
下面我們利用這個組件來做一個客戶調查反饋表單(Webmail)。表單主要代碼如下：
<form action="post.asp" method="post" name="mywebmail"> 您的姓名:
<input type="text" name="name" size="20" maxlength="50"> 電子郵件:
<input type="text" name="email" size="20" maxlength="60"> 郵件主題:
<input type="text" name="mailsubject" size="30" maxlength="100"> 您的意見和建議：<br> <textarea rows="4" name="text" cols="40"></textarea> <input type="submit" value="确認遞交" name="submit"> <input type="reset" value="清除重寫" name="clear"> </form>
post.asp
<html> <head> <title>發送表單</title> <body>
<html> <head> <title>發送表單</title> <body>
<%
'以下是信件體，大家在我的留言版的所有信件就是這樣發給我的。
strBody = "===========留言版留言===========" & vbCrLf
strBody = strBody & "發信時間:" & Now() & vbCrLf
strBody = strBody & "留言人:" & Name & vbCrLf
strBody = strBody & "電子郵件:" & Email & vbCrLf
strBody = strBody & "留言内容:" & Text & vbCrLf
strBody = strBody & "============ END ============="
Set myMail = Server.CreateObject("CDONTS.NewMail")
myMail.From = Email
myMail.To = "yourmailbox@mailhost.com"
myMail.Subject = Mailsubject
myMail.Body = StrBody
myMail.Send
Set myMail=Nothing
'當 Send 方法成功完成任務時，NewMail 對象将失效但并不從内存中清除。你應該将失效對象設置爲 Nothing 以便将其從内存中清除或給它重新分配另一個NewMail 對象。
%>
<center>
郵件已順利發出，感謝您的意見和建議！
</center> </body> </html>
此外，CDONTS還支持如下的方法：
<%
Set Mymail = CreateObject("CDONTS.NewMail")
Mymail.From = *** '信件發送者信箱
Mymail.To = *** ‘信件接收者信箱
Mymail.CC = *** '抄送
Mymail.BCC = *** ’密件發送
Mymail.Subject = *** ‘信件主題
Mymail.Body = *** ’信件正文
'設置優先級，0-不重要，1-一般，2-重要。
Mymail.Importance = 2
Mymail.Send
Set Mymail = Nothing
%>
注釋：***字符串可能是你寫進去的，也可能是取自表單，使用Request方法啊。總之根據您的用意去用它。
檢查你是否安裝了SMTP服務。OPTION PACK缺省安裝時是包括SMTP服務的。SMTP 服務安裝後，在你的system32目錄下會有一個文件叫CDONTS.DLL。
如果你不知道自己所在的站點是否支持，隻要下載本站的Webmail程序，上傳到你所在的站點測試一下，如果沒有報錯，看定是支持的。如果出現“Can't Create Objection”的錯誤，那麽我想，凡是開放ASP權限的站點肯定是支持的，如果不支持，說明管理員簡直太懶惰了。
如何使用CDONTS組件發基于HTML的信件？
<%
Set MyMail2 = 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=3>"
HTML = HTML & "This is a test mail in html<br>"
HTML = HTML & "Mail content here ...</font></p>"
HTML = HTML & "</body>"
HTML = HTML & "</html>"
MyMail2.From= "somebody@somewhere.com"
MyMail2.To="nobody@somewhere.com"
MyMail2.Subject="Test mail in HTML"
MyMail2.BodyFormat=0
MyMail2.MailFormat=0
MyMail2.Body = HTML
MyMail2.Send
set MyMail2=nothing
%>
總之，用标準的HTML寫就是了。
如何使用CDONTS組件發含附件的信件？
<%
Set MyMail3 = CreateObject("CDONTS.NewMail")
MyMail3.From= "somebody@nowhere.com"
MyMail3.To= "nobody@nowhere.com"
MyMail3.Cc="nobody2@nowhere.com"
MyMail3.Subject="This is a Test"
MyCDONTSMail3.AttachFile Server.MapPath("C:\inetpub\wwwroot\somedirectory\anyfile.txt")
MyBody2 = "Thank you!" & vbCrLf
MyBody2 = MyBody2 & "Your information will be send to me!" & vbCrLf
MyBody2 = MyBody2 & "Welcome in http://java2000.126.com !"
MyMail3.Body= MyBody2
MyMail3.Send
set MyMail3=nothing
%>
昆山模具生産管理軟件中沒有此組件。摩傑斯模具生産管理軟件是專業的模具生産管理軟件。
|
|
【返回】
