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