代码演示 -->
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 %>