常用Email组件发送函数

saintom

常用Email组件发送函数

--------------------------------------------------------------------------------

   转自csdn
   <%
    sub Jmail(email)
    Dim JMail,SendMail
    Set JMail=Server.CreateObject("JMail.SMTPMail")
    JMail.Logging=True
    JMail.Charset="gb2312"
    JMail.ContentType = "text/html"
    JMail.ServerAddress=SMTPServer
    JMail.Sender=SystemEmail
    JMail.Subject=topic
    JMail.Body=mailbody
    JMail.AddRecipient email
    JMail.Priority=3
    JMail.Execute  
    Set JMail=nothing  
    if err then  
    SendMail=err.description
    err.clear
    else
    SendMail="OK"
    end if
    end sub
   
    sub Cdonts(email)
    dim  objCDOMail
    Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
    objCDOMail.From =SystemEmail
    objCDOMail.To =email
    objCDOMail.Subject =topic
    objCDOMail.Body =mailbody
    objCDOMail.Send
    Set objCDOMail = Nothing
    if err then  
    SendMail=err.description
    err.clear
    else
    SendMail="OK"
    end if
    end sub
   
    sub aspemail(email)
    Set mailer=Server.CreateObject("ASPMAIL.ASPMailCtrl.1")   
    recipient=email
    sender=SystemEmail
    subject=topic
    message=mailbody
    mailserver=SMTPServer
    result=mailer.SendMail(mailserver, recipient, sender, subject, message)
    if err then  
    SendMail=err.description
    err.clear
    else
    SendMail="OK"
    end if
    end sub
   %>