首页 > > 网络编程 > Asp编程 >

用CDONTS.NewMail实现发送Email

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

<%
　　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&"站长向这段时间不能访问本站的朋友深表歉意！本工作室也正在考虑更换网络提供商！ "
str=str&"　　本站永久域名：www.chinabs.net　　主要面向B/S技术爱好者。 "
str=str&"　　建站的目的是为B/S爱好者提供一个学习交流的平台，同时也为商家建立企业上网平" str=str&"台，企业内部B/S应用提供解决方案。 "
str=str&"　　主要内容包括：ASP,ASP.NET,JSP,PHP,C#,Java,JavaScript,XML学习文章，B/S技术" str=str&"交流论坛及一些本工作室开发的一些B/S应用。 "
str=str&"　　本站的发展离不开大家的支持！ "
str=str&"　　谢谢！ "
str=str&" 站长：追风 "
str=str&" 深圳比艾思工作室 "
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

标签：

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