Board logo

标题: [转帖]用CDONTS发送邮件 [打印本页]
作者: cnangel    时间: 2004-10-22 04:02     标题: [转帖]用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. %>
复制代码




欢迎光临 星星博客 (http://commerce.huhoo.net/) Powered by Discuz! 7.0.0