标题: ASP编程：发送带附件的HTML格局邮件例程可以带附... [打印本页] 作者: 再见西城 时间: 2015-2-3 23:28 标题: ASP编程：发送带附件的HTML格局邮件例程可以带附... 想法是和程序员的想法不一样的.至于为什么.大家去想一想.跟心理学有关的 若何经由过程 ASP 来发送带附件、格局为 HTML 的邮件？上面供应了一个例程.
<%@ LANGUAGE=VBScript%>
<%
Response.Buffer = True
Response.Expires = 0
'创立对象实例
Set myMail = Server.CreateObject("CDONTS.NewMail")
'以下是将要发送的内容
HTML = "<html>"
HTML = HTML & "<head>"
HTML = HTML & "<title>Sending CDONTS Email Using HTML</title>"
HTML = HTML & "</head>"
HTML = HTML & "<body bgcolor=""FFFFFF"">"
HTML = HTML & "<p><font size=7>"
HTML = HTML & "This is a test mail in html<br>"
HTML = HTML & "Mail content here ...</font></p>"
HTML = HTML & "</body>"
HTML = HTML & "</html>"
'发件人
myMail.From = "somebody@somewhere.com"
'收件人
myMail.To = "nobody@somewhere.com"
'密件抄送
myMail.Bcc = "nobody@somewhere.com"
'抄送
myMail.Cc = "nobody@somewhere.com"
'邮件的主要性
' 0 主要性低
' 1 主要性普通（默许）
' 2 主要性高
myMail.Importance = 2
'邮件主题
myMail.Subject = "Test mail in HTML"
'附件（注重 e:\test.txt 指的是办事器上的地位，假如利用绝对途径，必需用 Server.MapPath 映照为真实途径）
myMail.AttachFile "e:\test.txt"
'NewMail 对象的文字格局
'0 暗示该 Body 可包括超文本置口号言 (HTML)
'1 暗示该 Body 只用于纯文本（默许值）
myMail.BodyFormat = 0
'NewMail 对象设置编码
'0 暗示将采取 MIME 格局
'1 暗示将采取一连的纯文本（默许值）
myMail.MailFormat = 0
'给邮件对象的文本赋值
myMail.Body = HTML
'将邮件收回
myMail.Send
'烧毁对象实例，释放内存
Set myMail = Nothing
%>