您的位置:首页精文荟萃邮件工具 → 用Cdonts实现发送Email

用Cdonts实现发送Email

时间:2004/10/15 0:42:00来源:本站整理作者:蓝点我要评论(0)

    <%
  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 

相关阅读 Windows错误代码大全 Windows错误代码查询激活windows有什么用Mac QQ和Windows QQ聊天记录怎么合并 Mac QQ和Windows QQ聊天记录Windows 10自动更新怎么关闭 如何关闭Windows 10自动更新windows 10 rs4快速预览版17017下载错误问题Win10秋季创意者更新16291更新了什么 win10 16291更新内容windows10秋季创意者更新时间 windows10秋季创意者更新内容kb3150513补丁更新了什么 Windows 10补丁kb3150513是什么

文章评论
发表评论

热门文章 FoxMail邮件删除后2种

最新文章 FoxMail邮件删除后2种gmail的foxmail设置_f 邮件端口不能正常启用怎么办网易邮箱助手Push mail技术曝光网易邮箱助手开放黑莓一般Pushmail快速给Foxmail邮件添加附件

人气排行 FoxMail邮件删除后2种恢复方法gmail的foxmail设置_foxmail收取gmail邮箱如自己电脑做smtp服务器不求人怎样登录英文版的QQ邮箱 巧用Outlook模板简化日常工作邮件正文收发Flash动画Thunderbird实用配置技巧 Outlook:如何群发邮件