深圳升蓝软件
数据库开发 .Net技术  |  ASP技术 PHP技术 JSP技术 应用技术类   
Hiblue Software

利用CDONTS发送邮件的ASP函数


March 25,2004
<%
'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
%>
       
Copyright © 2001-2008 Shenzhen Hiblue Software Team All rights reserved