|
| 用Cdonts实现发送Email |
| 〖编辑：Cloudy | 浏览：人次〗 |
<%
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
, |
录入时间：2006-05-08 21:39:57 [打印本页]
[关闭窗口]
[返回顶部] |
| 特别声明： 本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作者。文章版权归文章原始作者所有。对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转载的文章有版权问题请联系编辑人员，我们尽快予以更正。 |
|
|
