精典的ASP 传奇的J2EE 新生的NET FTP服务器服务器安全 WINDOWS B/S 模式 WEB安全 WAP世界动态网站推广宣传
空间服务器数据库技术邮局服务器站長工具硬设与组建 Alexa专题 DHTML 项目管理 WEB标准电脑硬件
病毒知识电脑使用布线协议接入交换路由局域网无线网络网络规划
Visual Basic Visual C/C++ Mssql MySql oracle Sybase 存在安全风险进程系统进程列表应用程序进程列表其它进程列表
黑客编程漏洞分析本地提权免杀技术脚本漏洞数据库注入安全防护内网渗透加密解密工具使用
WAP技术 WAP入门

您的位置： >> 相关知识 >> 开发技术 >> 精典的ASP >>

发送带附件的HTML格式邮件例程可以带附件

合金网络科技

添加日期:2006-11-2 点击次数:73次

如何通过 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 & ''
HTML = HTML & 'This is a test mail in html '
HTML = HTML & 'Mail content here ...'
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
%>