繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > 利用CDONTS发送邮件的ASP函数
- ASP
- 用EasyMailObject组件处理Exchange邮件源代码(6)
- 用EasyMailObject组件处理Exchange邮件源代码(7)
- 利用ASP和Access数据库制作局域网网上答题系统
- 用ASP开发试题库与在线考试系统(1)
- 用ASP开发试题库与在线考试系统(2)
- 用ASP开发试题库与在线考试系统(3)
- 用ASP开发试题库与在线考试系统(4)
- 用ASP开发试题库与在线考试系统(5)
- 用ASP开发试题库与在线考试系统(6)
- 用ASP开发试题库与在线考试系统(7)
- 用ASP开发试题库与在线考试系统(8)
- 综合的判断用户输入的合法性的函数
- 三层动态下拉菜单的例子
- 将你的网站设置为客户的信任站点--VB方案
- 论坛中有新贴子功能的实现
- ASP 编程中 15 个非常有用的例子
- 一个的无组件上传的ASP代码
- 利用ASP实现三个强大功能之一
- 利用ASP实现三个强大功能之二
- 利用ASP实现三个强大功能之三
利用CDONTS发送邮件的ASP函数
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 51 ::
收藏到网摘: 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
