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>"
200469112820.htm="test.gif" "附件文件名
path=server.mappath("\jefenet\images\" & 200469112820.htm) "附件的路径
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,200469112820.htm
themail.send
set themail=nothing
,
文章整理:站长天空 网址:http://www.z6688.com/
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息,谢谢!




