CDONTS組件是做什么用的？
發(fā)布時(shí)間:2013-7-27
CDONTS組件
在ASP中發(fā)送Email時(shí)往往需要一個(gè)COM組件支持，如果你沒(méi)有第三方的Email組件，你可以使用IIS本身提供CDONTS EMail組件。這個(gè)組件使用時(shí)需要安裝和啟動(dòng)SMTP服務(wù)。這個(gè)組件的名稱為CDONTS.DLL,使用前需要使用RegSvr32注冊(cè)這個(gè)組件。
CDONTS組件提供了一系列對(duì)象，包括AddressEntry、Attachment、Attachments、Folder、Message、Messages、NewMail、Recipient、Recipients、Session，我們經(jīng)常使用的是NewMail對(duì)象。下面是NewMail對(duì)象提供的方法和屬性：
名稱
功能 格式
Attach 添加附件 Sub AttachFile(Source, [FileName], [EncodingMethod])
AttachURL 以格式添加附加和數(shù)據(jù) Sub AttachURL(Source,ContentLocation, [ContentBase], [EncodingMethod])
BCC 以“，”分隔的接收者列表（暗送） 字符串類型屬性
Body TextHTML 字符串類型屬性
bodyformat 郵件正文格式 0:HTMl1:Text
CC 以“，”分隔的接收者列表（抄送） 字符串類型屬性
ContentBase 帶有附件的郵件中正文采用的基地址 字符串類型屬性
ContentLocation 帶有附件的郵件中正文采用的 字符串類型屬性
From 郵件發(fā)送方地址 字符串類型屬性
Importance 郵件級(jí)別 0: 1 2:
Send 發(fā)送郵件 Sub Send([From], [To], [Subject], [Body], [Importance]) 各個(gè)參數(shù)可以參考上下文屬性
SetLocaleIDs 設(shè)置新消息的代碼頁(yè)標(biāo)識(shí) Sub SetLocaleIDs(CodePageID As Long)
Subject 郵件主題 字符串類型屬性
To 以“，”分隔的接收者地址列表 字符串類型屬性
Value 任意的郵件頭的值 字符串類型屬性
Version 當(dāng)前集合數(shù)據(jù)對(duì)象庫(kù)（）的版本號(hào) 只讀字符串類型屬性
在使用有關(guān)對(duì)象的方法時(shí)，方括號(hào)參數(shù)可以省略。
下面是采用ASP使用的例子：
Dim MailObject
Set MailObject = Server.CreateObject("CDONTS.NewMail")
MailObject.Send "發(fā)送方郵件地址","接收方郵件地址","主題","郵件正文"
發(fā)送附件時(shí)可以這樣：
Dim MailObject
Set MailObject = Server.CreateObject("CDONTS.NewMail")
att_fileName="附件文件名完整路徑"
f_name="文件名"
MailObject.From="在這填寫發(fā)件人地址"
MailObject.To="在這填寫接收人地址"
MailObject.Subject="填寫主題"
MailObject.Body="填寫正文"
MailObject.AttachFile att_file,f_name
MailObject.Send
注意：發(fā)送郵件時(shí)需要IUSR_<機(jī)器名>用戶對(duì) x:\Inetpub\mailroot 目錄有讀寫權(quán)限。
|
CDONTS組件：你不必專門下載，微軟已經(jīng)提供了這個(gè)組件，只要安裝了NT的SMTP就會(huì)有的。
下面我們利用這個(gè)組件來(lái)做一個(gè)客戶調(diào)查反饋表單(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"> 您的意見(jiàn)和建議：<br> <textarea rows="4" name="text" cols="40"></textarea> <input type="submit" value="確認(rèn)遞交" name="submit"> <input type="reset" value="清除重寫" name="clear"> </form>
post.asp
<html> <head> <title>發(fā)送表單</title> <body>
<html> <head> <title>發(fā)送表單</title> <body>
<%
'以下是信件體，大家在我的留言版的所有信件就是這樣發(fā)給我的。
strBody = "===========留言版留言===========" & vbCrLf
strBody = strBody & "發(fā)信時(shí)間:" & Now() & vbCrLf
strBody = strBody & "留言人:" & Name & vbCrLf
strBody = strBody & "電子郵件:" & Email & vbCrLf
strBody = strBody & "留言內(nèi)容:" & 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
'當(dāng) Send 方法成功完成任務(wù)時(shí)，NewMail 對(duì)象將失效但并不從內(nèi)存中清除。你應(yīng)該將失效對(duì)象設(shè)置為 Nothing 以便將其從內(nèi)存中清除或給它重新分配另一個(gè)NewMail 對(duì)象。
%>
<center>
郵件已順利發(fā)出，感謝您的意見(jiàn)和建議！
</center> </body> </html>
此外，CDONTS還支持如下的方法：
<%
Set Mymail = CreateObject("CDONTS.NewMail")
Mymail.From = *** '信件發(fā)送者信箱
Mymail.To = *** ‘信件接收者信箱
Mymail.CC = *** '抄送
Mymail.BCC = *** ’密件發(fā)送
Mymail.Subject = *** ‘信件主題
Mymail.Body = *** ’信件正文
'設(shè)置優(yōu)先級(jí)，0-不重要，1-一般，2-重要。
Mymail.Importance = 2
Mymail.Send
Set Mymail = Nothing
%>
注釋：***字符串可能是你寫進(jìn)去的，也可能是取自表單，使用Request方法啊�？傊鶕�(jù)您的用意去用它。
檢查你是否安裝了SMTP服務(wù)。OPTION PACK缺省安裝時(shí)是包括SMTP服務(wù)的。SMTP 服務(wù)安裝后，在你的system32目錄下會(huì)有一個(gè)文件叫CDONTS.DLL�！�
如果你不知道自己所在的站點(diǎn)是否支持，只要下載本站的Webmail程序，上傳到你所在的站點(diǎn)測(cè)試一下，如果沒(méi)有報(bào)錯(cuò)，看定是支持的。如果出現(xiàn)“Can't Create Objection”的錯(cuò)誤，那么我想，凡是開(kāi)放ASP權(quán)限的站點(diǎn)肯定是支持的，如果不支持，說(shuō)明管理員簡(jiǎn)直太懶惰了。
如何使用CDONTS組件發(fā)基于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
%>
總之，用標(biāo)準(zhǔn)的HTML寫就是了。
如何使用CDONTS組件發(fā)含附件的信件？
<%
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
%>
昆山模具生產(chǎn)管理軟件中沒(méi)有此組件。摩杰斯模具生產(chǎn)管理軟件是專業(yè)的模具生產(chǎn)管理軟件。
|
|
【返回】
