windows虚拟主机CDONTS组件发信方案

Tags: 主机  空间  CDONTS组件  虚拟主机  Author:凯旋网络   Date:2012/6/16

CDONTS支持如下的方法:<%Set Mymail = CreateObject("CDONTS.NewMail")Mymail.From = *** ''信件发送者信箱Mymail.To = *** ‘信件接收者信箱Mymail.CC = *** ''抄送Mymail.BCC = *** ’密件发送Mymail.Subject = *** ‘信件主题Mymail.Body = *** ’信件正文''设置优先级,0-不重要,1-一般,2-重要。Mymail.Importance = 2Mymail.SendSet Mymail = Nothing%>注释:***字符串可能是写进去的,也可能是取自表单,使用Request方法。如何使用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= "test@35yi.com"MyMail2.To=test@net.cnMyMail2.Subject="Test mail in HTML"MyMail2.BodyFormat=0MyMail2.MailFormat=0MyMail2.Body = HTMLMyMail2.Sendset MyMail2=nothing%>总之,用标准的HTML写就是了。如何使用CDONTS组件发含附件的信件?<%Set MyMail3 = CreateObject("CDONTS.NewMail")MyMail3.From= "test@35yi.com"MyMail3.To= "test@net.cn"MyMail3.Cc="test@com.cn"MyMail3.Subject="This is a Test"MyCDONTSMail3.AttachFile Server.MapPath("C:\inetpub\wwwroot\somedirectory\anyfile.txt")MyBody2 = "Thank you!" & vbCrLfMyBody2 = MyBody2 & "Your information will be send to me!" & vbCrLfMyBody2 = MyBody2 & "Welcome in http://service.35yi.com !"MyMail3.Body= MyBody2MyMail3.Sendset MyMail3=nothing%>