哪有能在asp中发送html格式邮件的组件?
问题点数：20、回复次数：11Top
1 楼11830（其其）回复于 2001-06-19 12:43:00 得分 5
set mymail=server.createobject("cdonts.newmail")
mymail.from="11830@email.com.cn"
mymail.to="your@mail.com.cn"
mymail.bodyformat=cdobodyformathtml
mymail.body="abcdefg"
mymail.sendTop
2 楼andyrew（长江后浪）回复于 2001-06-19 12:51:00 得分 0
这个不支持html格式吧?Top
3 楼11830（其其）回复于 2001-06-19 12:55:00 得分 12
计错了，是这样
set mymail=server.createobject("cdonts.newmail")
mymail.from="11830@email.com.cn"
mymail.to="your@mail.com.cn"
mymail.BodyFormat = 0
mymail.MailFormat = 0
mymail.body="abcdefg"
mymail.send
Top
4 楼andyrew（长江后浪）回复于 2001-06-19 13:01:00 得分 0
不知道行不行,如果行的话,明天给分给你,ok!Top
5 楼11830（其其）回复于 2001-06-19 13:02:00 得分 1
i 服了 yourTop
6 楼andyrew（长江后浪）回复于 2001-06-19 13:12:00 得分 0
我要做好审核工作吗!^_^Top
7 楼andyrew（长江后浪）回复于 2001-06-19 13:22:00 得分 0
行了,为了近快结束这项工作,做出以上决定,可以吗?如有不满,请打4372378.Top
8 楼11830（其其）回复于 2001-06-19 13:24:00 得分 2
不敢，不敢Top
9 楼tonnycncn（托尼)(weiw.com）回复于 2001-06-19 14:28:00 得分 0
通过ASP用WINDOWS 2000 SERVER附带的邮件发送组件发送邮件:
CDONTS组件是nt下自带的发送邮件组件,免费
<%
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
%>
Top
10 楼andyrew（长江后浪）回复于 2001-06-19 15:59:00 得分 0
如果想在附件中加入对不同用户的称呼(也就是我在数据库中读出email,在发送根据不同的email显示不同的称呼,现在我可没分了!)Top
11 楼pianopan（.)(.）回复于 2001-07-28 00:05:56 得分 0
aTop
