利用CDONTS发送邮件的ASP函数

王朝asp·作者佚名  2008-05-30
窄屏简体版  字體: |||超大  

'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

%

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航