利用CDONTS發(fā)送郵件的ASP函數(shù)

2019-11-18 20:48:05

字體：大中小

供稿：網(wǎng)友

<%
'Last Updated By Recon On 05/14/2001
'On Error Resume Next

'利用CDONTS組件在Win2k上發(fā)送郵件

'發(fā)送普通郵件
SendMail "admin@ny.com", "iamchn@263.net", "Normal Mail!", "Please check the attatchment!", 2, 0, "C:/Love.txt"

'發(fā)送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

'參數(shù)說明
'strFrom : 發(fā)件人Email
'strTo : 收件人Email
'strSubject : 信件主題
'strBody : 信件正文
'lngImportance : 信件重要性
' : 0 - 低重要性
' : 0 - 中等重要性（默認(rèn)）
' : 0 - 高重要性
'lngAType : 信件格式
' : 為1時將郵件正文作為HTML（此時可以發(fā)送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、VB和XML建立互聯(lián)網(wǎng)應(yīng)用程序(1)

下一篇：與“黑客”的一段遭遇簡單談ASP的安全性