最爱白菜

不登高山,不知天之高也;不临深溪,不知地之厚也。(《荀子》) ◆◆最爱白菜◆◆...

利用CDONTS发送邮件的ASP函数

<%
“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
%>

阅读更多
个人分类: 函数
想对作者说点什么? 我来说一句

asp发送邮件代码

2014年06月04日 4KB 下载

没有更多推荐了,返回首页

加入CSDN,享受更精准的内容推荐,与500万程序员共同成长!
关闭
关闭