您的位置:首页网页设计ASP实例 → 利用CDONTS发送邮件的ASP函数

利用CDONTS发送邮件的ASP函数

时间:2004/11/7 2:54:00来源:本站整理作者:蓝点我要评论(0)

<%

'Last Updated By Recon On 05/14/2001

'On Error Resume Next



'利用CDONTS组件在Win2k上发送邮件



'发送普通邮件

SendMail "admin@ny.com", "iamchn@263.net", "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 "admin@ny.com", "iamchn@263.net", "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

%>






相关阅读 Windows错误代码大全 Windows错误代码查询激活windows有什么用Mac QQ和Windows QQ聊天记录怎么合并 Mac QQ和Windows QQ聊天记录Windows 10自动更新怎么关闭 如何关闭Windows 10自动更新windows 10 rs4快速预览版17017下载错误问题Win10秋季创意者更新16291更新了什么 win10 16291更新内容windows10秋季创意者更新时间 windows10秋季创意者更新内容kb3150513补丁更新了什么 Windows 10补丁kb3150513是什么

文章评论
发表评论

热门文章 没有查询到任何记录。

最新文章 迅雷新手完全入门手册 asp下面javascript上传图片限制格式大小方法告诉大家网页弹出窗口应用总结ASP常见错误类型大全asp常见错误分析和解决办法

人气排行 总是弹出visual studio 实时调试器 三种解决SQLSERVER存储过程及调用详解Asp获取真实IP地址ASP中连接Mssql的几种方法一个简单好用的UBB编辑器(含代码)如何用Split将字符串转换为数组并获取数组下ASP防止表单重复提交的办法告诉你免费的简单聊天室源代码