ASP常用發送郵件的四個FUNCTION

<%
'=====================================================================================================
'使用Jmail發送郵件，發送成功返回True，發送失敗返回false,jmail使用的端口是２５，且不支持ssl方式
'參數說明：
'EmailFrom__：        發送郵件的郵箱
'EmailID__：        發送郵件的郵箱帳號
'EmailPWD__：        發送郵件的郵箱密碼
'EmailSMTP__：        發送郵件的SMTP SERVER
'EmailCharset__：    字符集
'EmailFormName__：    發送郵件郵箱的名稱
'ToEmail__：        發送的郵件地址
'Subject__：        郵件主題
'MailBody__：        郵件內容
'AttachFile__：        郵件附件
'=====================================================================================================
Function JMail(EmailFrom__,EmailID__,EmailPWD__,EmailSMTP__,EmailCharset__,EmailFormName__,ToEmail__,Subject__,MailBody__,AttachFile__)
    On Error Resume Next
    dim obj,MyArray,i
    JMail=false
    Set obj=Server.CreateObject("JMail.Message")
    obj.silent=true'屏蔽列外錯誤
    obj.logging=true''不記錄日志   
    obj.ContentTransferEncoding="base64"
    obj.Charset=EmailCharset__
    obj.ContentType = "text/html"
    obj.MailServerUserName = EmailID__ '您的郵件服務器登錄名
    obj.MailServerPassword = EmailPWD__ '登錄密碼
    obj.MailDomain=EmailSMTP__
    obj.Priority = 3
    obj.From=EmailFrom__
    obj.FromName=EmailFormName__
    MyArray=Split(ToEmail__,";")
    For i=0 to Ubound(MyArray)
        obj.AddRecipient MyArray(i)
    Next
    obj.Subject__=Subject__
    obj.Body=MailBody__
    if AttachFile__<>"" then JMail.AddAttachment(AttachFile__)
    if obj.Send(EmailSMTP__) then JMail=true
    obj.Close()
    Set obj=nothing
End Function
'=====================================================================================================
'使用CDONTS發送郵件，發送成功返回true，發送失敗返回false
'參數說明：
'EmailFrom__：        發送郵件的郵箱
'ToEmail__：        發送的郵件地址
'Subject__：        郵件主題
'MailBody__：        郵件內容
'AttachFile__：        郵件附件
'=====================================================================================================
Function Cdonts(EmailFrom__,ToEmail__,Subject__,MailBody__,AttachFile)
    On Error Resume Next
    Cdonts=true
    dim obj
    Set obj = Server.CreateObject("CDONTS.NewMail")
    obj.From =EmailFrom__
    obj.To =ToEmail__
    obj.Subject =Subject__
    obj.BodyFormat = 0 
    obj.MailFormat = 0 
    obj.Body =MailBody__
    if AttachFile__<>"" then obj.AttachFile AttachFile__
    obj.Send
    Set obj = Nothing
    If err then Cdonts=false
End Function
'=====================================================================================================
'使用Persits.MailSender發送郵件，發送成功返回true，發送失敗返回false
'參數說明：
'EmailFrom__：        發送郵件的郵箱
'EmailID__：        發送郵件的郵箱帳號
'EmailPWD__：        發送郵件的郵箱密碼
'EmailSMTP__：        發送郵件的SMTP SERVER
'EmailCharset__：    字符集
'EmailFormName__：    發送郵件郵箱的名稱
'ToEmail__：        發送的郵件地址
'Subject__：        郵件主題
'MailBody__：        郵件內容
'AttachFile__：        郵件附件
'=====================================================================================================
Function AspEmail(EmailFrom__,EmailID__,EmailPWD__,EmailSMTP__,EmailCharset__,EmailFormName__,ToEmail__,Subject__,MailBody__,AttachFile__)
    On Error Resume Next
    AspEmail=true
    dim obj
    Set obj=Server.CreateObject("Persits.MailSender") 
    obj.Charset = EmailCharset__
    obj.IsHTML = True
    obj.username = EmailID__    '服務器上有效的用戶名
    obj.password = EmailPWD__     '服務器上有效的密碼
    obj.Priority = 1
    obj.Host = EmailSMTP__
    obj.Port = 25 ' 該項可選.端口25是默認值
    obj.From = EmailFrom__
    obj.FromName = EmailFormName__ ' 該項可選
    obj.AddAddress ToEmail__'需要以,分開
    obj.Subject = Subject__
    obj.Body = MailBody__
    if AttachFile__<>"" then obj.AddAttachment AttachFile__
    obj.Send
    If err then AspEmail=false
End Function
'=====================================================================================================
'使用Persits.MailSender發送郵件，發送成功返回true，發送失敗返回false
'help link http://msdn.microsoft.com/en-us/library/ms872547(v=EXCHG.65).aspx
'參數說明：
'EmailFrom__：        發送郵件的郵箱
'EmailID__：        發送郵件的郵箱帳號
'EmailPWD__：        發送郵件的郵箱密碼
'EmailSMTP__：        發送郵件的SMTP SERVER
'EmailSMTPPROT__：    發送郵件使用的端口／／default is 25, gmail smtp is 465 or 587 , gmail pop3 995
'EmailSSL__：        是否使用套接字傳送
'EmailCharset__：    字符集
'ToEmail__：        發送的郵件地址
'Subject__：        郵件主題
'MailBody__：        郵件內容
'AttachFile__：        郵件附件
'=====================================================================================================
Function CDO(EmailFrom__,EmailID__,EmailPWD__,EmailSMTP__,EmailSMTPPROT__,EmailSSL__,EmailCharset__,ToEmail__,Subject__,MailBody__,AttachFile__)
    'On Error Resume Next
    CDO=True
    Const cdoSendUsingMethod="http://schemas.microsoft.com/cdo/configuration/sendusing"
    Const cdoSMTPServer="http://schemas.microsoft.com/cdo/configuration/smtpserver"
    Const cdoSMTPServerPort="http://schemas.microsoft.com/cdo/configuration/smtpserverport"
    Const cdoSMTPConnectionTimeout="http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout"
    Const cdoSMTPAuthenticate="http://schemas.microsoft.com/cdo/configuration/smtpauthenticate"
    Const cdoSendUserName="http://schemas.microsoft.com/cdo/configuration/sendusername"
    Const cdoSendPassword="http://schemas.microsoft.com/cdo/configuration/sendpassword"
    Const cdoSendSmtpUsessl="http://schemas.microsoft.com/cdo/configuration/smtpusessl"
    Const cdoSendLanguageCode="http://schemas.microsoft.com/cdo/configuration/languagecode"
    
    Const cdoSendUsingPort=2
    Const cdoBasic=1
    '//value=0 代表Anonymous驗證方式（不需要驗證） 
    '//value=1 代表Basic驗證方式（使用basic (clear-text) authentication.  
    '//The configuration sendusername/sendpassword or postusername/postpassword fields are used to specify credentials.） 
    '//Value=2 代表NTLM驗證方式（Secure Password Authentication in Microsoft Outlook Express）
    
    Dim objConfig  ' As CDO.Configuration
    Dim objMessage ' As CDO.Message
    Dim Fields     ' As ADODB.Fields
    
    Set objConfig = Server.CreateObject("CDO.Configuration")
    Set Fields = objConfig.Fields
    
    With Fields
        .Item(cdoSendUsingMethod)       = cdoSendUsingPort
        .Item(cdoSMTPServer)            = EmailSMTP__
        .Item(cdoSMTPServerPort)        = EmailSMTPPROT__
        .Item(cdoSMTPConnectionTimeout) = 10
        .Item(cdoSMTPAuthenticate)      = cdoBasic
        .Item(cdoSendUserName)          = EmailID__
        .Item(cdoSendPassword)          = EmailPWD__
        .Item(cdoSendSmtpUsessl)        = EmailSSL__
        .Update
    End With
    
    Set objMessage = Server.CreateObject("CDO.Message")
    Set objMessage.Configuration = objConfig
    With objMessage
        .BodyPart.Charset = EmailCharset__
        .To       = ToEmail__
        .From     = EmailFrom__
        .Subject  = Subject__
        .HtmlBody = MailBody__
    End With
    If AttachFile__<>"" then objMessage.AddAttachment AttachFile__ 
    objMessage.Send
    If err then CDO=false
    
    Set Fields = Nothing
    Set objMessage = Nothing
    Set objConfig = Nothing
End Function

%>