CDONTS.NewMail组件介绍

2008-02-23 09:27:31来源:互联网 阅读 ()

新老客户大回馈,云服务器低至5折

  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
%>

标签:

版权申明:本站文章部分自网络,如有侵权,请联系:west999com@outlook.com
特别注意:本站所有转载文章言论不代表本站观点,本站所提供的摄影照片,插画,设计作品,如需使用,请与原作者联系,版权归原作者所有

上一篇:用CDONTS.NewMail实现发送Email

下一篇:利用SMTP和ASP发送CDONTS电子邮件