45fan.com - 路饭网

搜索: 您的位置主页 > 电脑频道 > 电脑教程 > 阅读资讯:如何使用CDONTS发送邮件?

如何使用CDONTS发送邮件?

2016-08-31 07:11:43 来源:www.45fan.com 【

如何使用CDONTS发送邮件?

*注,Windows xp, Windows 2003 默认没有附带CDONTS.DLL,必须手动安装,你可以从Windows 2000的system32中得到该文件,
如果没有,也可以在这里下载(下载CDOv1.2 CDONTS.DLL 394KB),安装方法:
Step1: 将该文件拷贝至 %SystemRoot%/System32 下;
Step2: 开始 -> 运行 -> Regsvr32 cdonts.dll;
Step3: 确认

代码分析
Source Code
<%
Dim oMail, sBody, sCc, sBCc, sTo, sFrom, sSubject, sContentBase

'//构造正文
sBody = "<HTML>" & _
"<HEAD>" & _
"<TITLE>用CDONTS发送邮件</TITLE>" & _
"<BODY>" & _
"WELCOME TO OUR COCOON sTudio.<BR>" & _
"<IMG SRC='http://www.ccopus.com/img/cocoon.gif'><p>" & _
"这幅图片来自AttachURL所指定的附件<IMG SRC=ha.jpg>" & _
"</BODY>" & _
"</HEAD>" & _
"</HTML>"
sSubject = "用CDONTS发送邮件"
sFrom = "sunrise@citiz.net"
sTo = "sunrise_chen@citiz.net"
sCc = "sunrise@jicang.com"
sBCc = "sunrise@citiz.net"
sContentBase = "http://www.ccopus.com/"
Set oMail = Server.CreateObject("CDONTS.NewMail")

'//以URL形式添加附件,在附件列表中不可见,可以在正文中访问
oMail.AttachURL Server.MapPath("ha.jpg"), "ha.jpg"

'//以文件形式添加附件,在附件列表中可见,不可在正问中直接访问
oMail.AttachFile Server.MapPath("mail.asp"), "SMTPmail.txt"

'//指定mail正文的基地址,不能于AttachURL同时使用,否则,AttachURL附带的附件文件名将不正确。
'oMail.ContentBase = sContentBase

'//指定邮件主题
oMail.Subject = sSubject

'//指定发件人
oMail.From = sFrom

'//指定收件人,可写多个收件人,用逗号隔开
oMail.To = sTo

'//抄送给其他人,可以指定多个,用逗号隔开
oMail.Cc = sCc

'//暗抄给其他人,可以指定多个,用逗号隔开
oMail.BCc = sBCc

'//指定邮件正文
oMail.Body = sBody

'//指定邮件为HTML格式 '//0: The NewMail object is to be in MIME format. '//1: The NewMail object is to be in uninterrupted plain text (default value).
oMail.MailFormat = 0

'//指定邮件为MINE格式
'//0: The Body property is to include Hypertext Markup Language (HTML). '//1: The Body property is to be exclusively in plain text (default value).
oMail.BodyFormat = 0


'//指定邮件级别 0: 普通 1:机密 2:绝密
oMail.Importance=0

'//发送邮件
oMail.Send

Set oMail = Nothing
%>

 

本文地址:http://www.45fan.com/dnjc/70054.html
Tags: 邮件 发送 CDONTS
编辑:路饭网
关于我们 | 联系我们 | 友情链接 | 网站地图 | Sitemap | App | 返回顶部