返回列表 回复 发帖
cnangel

管理员

Rank: 9Rank: 9Rank: 9

UID
1 
威望
1240 点 
金钱
24019 金币 
点卡
317 点 
1#
打印
tT
发表于 2004-10-22 04:02 | 只看该作者
所需阅读权限 1

[转帖]用CDONTS发送邮件

[UploadFile=2_735.zip.info]*注，Windows xp, Windows 2003 默认没有附带CDONTS.DLL，必须手动安装，你可以从Windows 2000的system32中得到该文件，
如果没有，也可以在这里下载(下载CDOv1.2 CDONTS.DLL 394KB)，安装方法：
Step1: 将该文件拷贝至 %SystemRoot%\System32 下;
Step2: 开始 -> 运行 -> Regsvr32 cdonts.dll;
Step3: 确认
代码如下：
  1. <%
  2.     Dim oMail, sBody, sCc, sBCc, sTo, sFrom, sSubject, sContentBase
  3.    
  4.     ';//构造正文
  5.     sBody = "<HTML>" & _
  6.         "<HEAD>" & _
  7.         "<TITLE>用CDONTS发送邮件</TITLE>" & _
  8.         "<BODY>" & _
  9.         "WELCOME TO OUR COCOON sTudio.<BR>" & _
  10.         "<IMG SRC=';http://www.ccopus.com/img/cocoon.gif';><p>" & _
  11.         "这幅图片来自AttachURL所指定的附件<IMG SRC=ha.jpg>" & _
  12.         "</BODY>" & _
  13.         "</HEAD>" & _
  14.         "</HTML>"
  15.     sSubject = "用CDONTS发送邮件"
  16.     sFrom = "sunrise@citiz.net"
  17.     sTo = "sunrise_chen@citiz.net"
  18.     sCc = "sunrise@jicang.com"
  19.     sBCc = "sunrise@citiz.net"
  20.     sContentBase = "http://www.ccopus.com/"
  21.     Set oMail = Server.CreateObject("CDONTS.NewMail")
  22.     ';//以URL形式添加附件，在附件列表中不可见，可以在正文中访问
  23.     oMail.AttachURL Server.MapPath("ha.jpg"), "ha.jpg"
  24.    
  25.     ';//以文件形式添加附件，在附件列表中可见，不可在正问中直接访问
  26.     oMail.AttachFile Server.MapPath("mail.asp"), "SMTPmail.txt"
  27.    
  28.     ';//指定mail正文的基地址，不能于AttachURL同时使用，否则，AttachURL附带的附件文件名将不正确。
  29.     ';oMail.ContentBase = sContentBase
  30.    
  31.     ';//指定邮件主题
  32.     oMail.Subject = sSubject
  33.    
  34.     ';//指定发件人
  35.     oMail.From = sFrom
  36.    
  37.     ';//指定收件人，可写多个收件人，用逗号隔开
  38.     oMail.To = sTo
  39.    
  40.     ';//抄送给其他人，可以指定多个，用逗号隔开
  41.     oMail.Cc = sCc
  42.    
  43.     ';//暗抄给其他人，可以指定多个，用逗号隔开
  44.     oMail.BCc = sBCc
  45.     ';//指定邮件正文   
  46.     oMail.Body = sBody
  47.    
  48.     ';//指定邮件为HTML格式    ';//0: The NewMail object is to be in MIME format.    ';//1: The NewMail object is to be in uninterrupted plain text (default value).
  49.     oMail.MailFormat = 0
  50.    
  51.     ';//指定邮件为MINE格式
  52.     ';//0: The Body property is to include Hypertext Markup Language (HTML).    ';//1: The Body property is to be exclusively in plain text (default value).
  53.     oMail.BodyFormat = 0
  54.    
  55.    
  56.     ';//指定邮件级别 0: 普通 1：机密 2:绝密
  57.     oMail.Importance=0
  58.      
  59.     ';//发送邮件
  60.     oMail.Send
  61.     Set oMail = Nothing
  62. %>
复制代码
收藏 分享 评分

                     我是一个呼吸着现在的空气而生活在过去的人
               这样的注定孤独，孤独的身处闹市却犹如置身于荒漠
                                     我已习惯了孤独，爱上孤独
                                 他让我看清了自我，还原了自我
                             让我再静静的沉思中得到快乐和满足
                                   再孤独的世界里我一遍又一遍
                                   不厌其烦的改写着自己的过去
                                             延伸到现在与未来
                                       然而那只是泡沫般的美梦
                                 产生的时刻又伴随着破灭的到来
                         在灰飞烟灭的瞬间我看到的是过程的美丽
                                      而不是结果的悲哀。。。
回复 引用

订阅 TOP

返回列表