去向导航
常用分类
中财税帮助系统
2008-10-7
欢迎您登陆并使用中国财税咨询中心为您免费提供的资料,交流,学习为一体的平台!
如果您在使用中遇到什么问题,请您不要吝啬,一定要写信给我们!!
Email:Shellapi@126.com 期待您的来信,或指导批语!
帮助内难免有收集的资料,如果侵犯了您的仅力,请您来信告知,我们马上删除或更新处理!
利用CDONTS发送邮件的ASP函数
更多2008-10-7 日更新内容!
-
<!--#include file="include/common.asp"--><br>
<!--#include file="include/func.asp"--><br>
<%<br>
'Last Updated By Recon On 05/14/2001<br>
'On Error Resume Next<br>
<br>
'利用CDONTS组件在Win2k上发送邮件<br>
<br>
'发送普通邮件<br>
SendMail "admin@ny.com", "iamchn@263.net", "Normal Mail!", "Please check the attatchment!", 2, 0, "C:\Love.txt"<br>
<br>
'发送HTML邮件<br>
Dim m_fso, m_tf<br>
Dim m_strHTML<br>
<br>
Set m_fso = Server.CreateObject("SCRIPTING.FILESYSTEMOBJECT")<br>
Set m_tf = m_fso.OpenTextFile("C:\Mail.htm", 1)<br>
m_strHTML = m_tf.ReadAll<br>
<br>
'Write m_strHTML<br>
Set m_tf = Nothing<br>
Set m_fso = Nothing<br>
<br>
SendMail "admin@ny.com", "iamchn@263.net", "HTML Mail!", m_strHTML, 2, 1, Null<br>
<br>
'参数说明<br>
'strFrom : 发件人Email<br>
'strTo : 收件人Email<br>
'strSubject : 信件主题<br>
'strBody : 信件正文<br>
'lngImportance : 信件重要性<br>
' : 0 - 低重要性<br>
' : 0 - 中等重要性(默认)<br>
' : 0 - 高重要性<br>
'lngAType : 信件格式<br>
' : 为1时将邮件正文作为HTML(此时可以发送HTML邮件)<br>
'strAttach : 附件的路径<br>
Sub SendMail(strFrom, strTo, strSubject, strBody, lngImportance, lngAType, strAttach)<br>
Dim objMail<br>
<br>
Set objMail = Server.CreateObject("CDONTS.NEWMAIL")<br>
With objMail<br>
<br>
.From = strFrom<br>
.To = strTo<br>
.Subject = strSubject<br>
.Body = strBody<br>
.Importance = lngImportance<br>
<br>
If lngAType = 1 Then<br>
.BodyFormat = 0<br>
.MailFormat = 0<br>
End If<br>
<br>
If IsEmpty(strAttach) = False And IsNull(strAttach) = False Then<br>
.AttachFile strAttach<br>
End If<br>
<br>
.Send<br>
End With<br>
Set objMail = Nothing<br>
End Sub<br>
%>
