'LastUpdatedByReconOn05/14/2001

'OnErrorResumeNext

'利用CDONTS组件在Win2k上发送邮件

'发送普通邮件

SendMail"admin@ny.com","iamchn@263.net","NormalMail!","Pleasechecktheattatchment!",2,0,"C:\Love.txt"

'发送HTML邮件

Dimm_fso,m_tf

Dimm_strHTML

Setm_fso=Server.CreateObject("SCRIPTING.FILESYSTEMOBJECT")

Setm_tf=m_fso.OpenTextFile("C:\Mail.htm",1)

m_strHTML=m_tf.ReadAll

'Writem_strHTML

Setm_tf=Nothing

Setm_fso=Nothing

SendMail"admin@ny.com","iamchn@263.net","HTMLMail!",m_strHTML,2,1,Null

'参数说明

'strFrom:发件人Email

'strTo:收件人Email

'strSubject:信件主题

'strBody:信件正文

'lngImportance:信件重要性

':0-低重要性

':0-中等重要性（默认）

':0-高重要性

'lngAType:信件格式

':为1时将邮件正文作为HTML（此时可以发送HTML邮件）

'strAttach:附件的路径

SubSendMail(strFrom,strTo,strSubject,strBody,lngImportance,lngAType,strAttach)

DimobjMail

SetobjMail=Server.CreateObject("CDONTS.NEWMAIL")

WithobjMail

.From=strFrom

.To=strTo

.Subject=strSubject

.Body=strBody

.Importance=lngImportance

IflngAType=1Then

.BodyFormat=0

.MailFormat=0

EndIf

IfIsEmpty(strAttach)=FalseAndIsNull(strAttach)=FalseThen

.AttachFilestrAttach

EndIf

.Send

EndWith

SetobjMail=Nothing

EndSub

%>

下一篇：列举使用HTML表单提交的所有值