繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > 利用CDONTS发送邮件的ASP函数
- ASP
- ASP编程中15个非常有用的例子 （二）
- ASP与JSP的比较(一)
- ASP与JSP的比较(二)
- ASP中五种连接数据库的方法
- 从ASP调用SQL中的图像
- 用排序串字段实现树状结构（例程：连接字串）
- 用排序串字段实现树状结构（例程：删除贴子）
- 用排序串字段实现树状结构（例程：回复表单）
- 用排序串字段实现树状结构（例程：显示贴子内容）
- 用排序串字段实现树状结构（例程：显示树）
- 用排序串字段实现树状结构（存储过程）
- 用排序串字段实现树状结构（库结构）
- 用排序串字段实现树状结构（原理）
- remote script文档(转载自微软)(一)
- remote script文档(转载自微软)(二)
- remote script文档(转载自微软)(三)
- remote script文档(转载自微软)(四)
- remote script文档(转载自微软)(五)
- remote script文档(转载自微软)(六)
- remote script文档(转载自微软)(七)
利用CDONTS发送邮件的ASP函数
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 72 ::
收藏到网摘: n/a
'Last Updated By Recon On 05/14/2001
'On Error Resume Next
'利用CDONTS组件在Win2k上发送邮件
'发送普通邮件
SendMail "[email protected]", "[email protected]", "Normal Mail!", "Please check the attatchment!", 2, 0, "C:\Love.txt"
'发送HTML邮件
Dim m_fso, m_tf
Dim m_strHTML
Set m_fso = Server.CreateObject("SCRIPTING.FILESYSTEMOBJECT")
Set m_tf = m_fso.OpenTextFile("C:\Mail.htm", 1)
m_strHTML = m_tf.ReadAll
'Write m_strHTML
Set m_tf = Nothing
Set m_fso = Nothing
SendMail "[email protected]", "[email protected]", "HTML Mail!", m_strHTML, 2, 1, Null
'参数说明
'strFrom : 发件人Email
'strTo : 收件人Email
'strSubject : 信件主题
'strBody : 信件正文
'lngImportance : 信件重要性
' : 0 - 低重要性
' : 0 - 中等重要性（默认）
' : 0 - 高重要性
'lngAType : 信件格式
' : 为1时将邮件正文作为HTML（此时可以发送HTML邮件）
'strAttach : 附件的路径
Sub SendMail(strFrom, strTo, strSubject, strBody, lngImportance, lngAType, strAttach)
Dim objMail
Set objMail = Server.CreateObject("CDONTS.NEWMAIL")
With objMail
.From = strFrom
.To = strTo
.Subject = strSubject
.Body = strBody
.Importance = lngImportance
If lngAType = 1 Then
.BodyFormat = 0
.MailFormat = 0
End If
If IsEmpty(strAttach) = False And IsNull(strAttach) = False Then
.AttachFile strAttach
End If
.Send
End With
Set objMail = Nothing
End Sub
%>
评论 (0) All
