用CDONTS.NewMail实现发送Email

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

<%

dim cdo

set cdo=server.createobject("cdonts.newmail")

cdo.From=fromwho "发件人信箱

cdo.To = towho "收件人信箱

cdo.Subject =subject "主题

cdo.Body =body "邮件正文

cdo.MailFormat=0"说明是以MIME发送

cdo.BodyFormat=0"可以包含html代码

cdo.Importance=0"邮件的优先级别0-1-2

cdo.cc=xx@xx.net "抄送

cdo.Bcc=xx@sf.net "密送

cdo.AttachFile attachfile "附件

cdo.Send

Set cdo=Nothing

%>

下面我们看一个实例:

dim str

str=str&"您好!"

str=str&"由中国学生网所提供的劣质服务(ASP服务器瘫痪),导致本站连继两天不能访问。"

str=str&"站长向这段时间不能访问本站的朋友深表歉意!本工作室也正在考虑更换网络提供商!<br>"

str=str&"本站永久域名:www.chinabs.net主要面向B/S技术爱好者。<br>"

str=str&"建站的目的是为B/S爱好者提供一个学习交流的平台,同时也为商家建立企业上网平" str=str&"台,企业内部B/S应用提供解决方案。<br>"

str=str&"主要内容包括:ASP,ASP.NET,JSP,PHP,C#,Java,JavaScript,XML学习文章,B/S技术" str=str&"交流论坛及一些本工作室开发的一些B/S应用。<br>"

str=str&"本站的发展离不开大家的支持!<br>"

str=str&"谢谢!<br>"

str=str&" 站长:追风<br>"

str=str&" 深圳比艾思工作室<br>"

filename="test.gif" "附件文件名

path=Server.MapPath("\jefenet\images\" & filename) "附件的路径

Set theMail=Server.CreateObject("CDONTS.NewMail")

theMail.From="chinabs@263.net" "发件人信箱

theMail.To ="jeffzb@21cn.com""收件人信箱

theMail.Subject ="电子邮件功能测试!" "主题

theMail.BodyFormat=0"定义以Html的格式发送邮件

theMail.MailFormat=0 "定义以Mime的格式发邮件

theMail.Body=Str "邮件正文

On Error Resume Next "如果找不到附件,则跳过

theMail.AttachFile path,filename

theMail.Send

set theMail=nothing

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