用CDONTS发送邮件

原创 2004年09月22日 16:50:00
代码演示 --> http://www.ccopus.com/code/sample/SMTPmail.asp

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

<%
    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 %>
版权声明:本文为博主原创文章,未经博主允许不得转载。

利用CDONTS组件来发送邮件

  在ASP中发送Email时往往需要一个COM组件支持,如果你没有第三方的Email组件,你可以使用IIS本身提供CDONTS  EMail组件。这个组件使用时需要安装和启动SMTP服务。这个组件的...
  • wanghero
  • wanghero
  • 2008年02月20日 16:50
  • 2200

ASP版CDONTS和Jmail发邮件实例

 CDONTS:     username="dh20156"   userpass="123456"   realname="杜欢"  email="dh20156@126.com"     dim...
  • dh20156
  • dh20156
  • 2007年05月19日 15:51
  • 1656

QTP 使用 CDONTS 发送邮件

QTP 发送邮件
  • tlucia
  • tlucia
  • 2010年06月10日 15:53
  • 1046

使用CDONTS发送邮件

set myMail=CreateObject("CDONTS.NewMail")myMail.SetLocalIDS(65001)myMail.From=txtMailFrommyMail.To=t...
  • djcsch2001
  • djcsch2001
  • 2008年09月29日 11:53
  • 245

NewMail 对象(CDONTS 库)发送邮件

NewMail 对象(CDONTS 库)发送邮件日期:2004年8月31日 作者: 人气: 195 查看:[大字体 中字体 小字体] NewMail 对象(CDONTS 库) NewMail 对象提供...
  • zblue78
  • zblue78
  • 2004年09月22日 16:00
  • 993

ASP发送邮件函数(Jmail,cdonts,aspemail,WebEasymail)

=================================================   发送邮件组件:   Edit By YangZheng   Write By R.W.  200...
  • sYwb
  • sYwb
  • 2005年02月05日 11:55
  • 1613

如何在Windows Server 2003上使用CDONTS组件

CDONTS组件是微软FOR 2000允许发送电子邮件。在Windows Server 2003下微软更新了组件,建议采用.NET组件。但是我们之前做的比如ASP发送邮件的程序就要修改,不过还是有办法...
  • veryhappy
  • veryhappy
  • 2006年02月13日 11:00
  • 1400

asp.net中利用CDONTS发送邮件的列子

以用户控件形式写的。sendmail.ascx: 发邮件至: 您的邮箱: ...
  • fhgok
  • fhgok
  • 2005年04月09日 00:15
  • 540

利用CDONTS发送邮件的ASP函数

“Last Updated By Recon On 05/14/2001“On Error Resume Next “利用CDONTS组件在Win2k上发送邮件 “发送普通邮件SendMail "ad...
  • qunluo
  • qunluo
  • 2004年07月19日 17:25
  • 1535

如何使用Jmail组件实现邮件的收发

Jmail是一个使用非常广泛的收发邮件的组件,发送邮件速度快,功能丰富并且不需要诸如Eudora、Exchange、Outlook之类的邮件客户端,并且是免费的。 下载地址:http://www...
  • zpp19901988
  • zpp19901988
  • 2015年07月22日 09:59
  • 1359
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:用CDONTS发送邮件
举报原因:
原因补充:

(最多只允许输入30个字)