CDONTS.NewMail组件介绍

王朝other·作者佚名  2006-11-24
窄屏简体版  字體: |||超大  

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= "web@webjx.com"

MyMail3.To= "web@webjx.com"

MyMail3.Cc="web@web.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://www.webjx.com !"

MyMail3.Body= MyBody2

MyMail3.Send

set MyMail3=nothing

%>

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有  導航