'//指定邮件为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
<%
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 = "[email protected]"
sTo = "[email protected]"
sCc = "[email protected]"
sBCc = "[email protected]"
sContentBase = "http://www.buaa.edu.cn/"
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://community.csdn.net/Expert/topic/3375/3375376.xml