email.asp

ASP论坛2000

<%
    REM This file is used to test whether the server can send email

    dim sender
    dim mailto 
    dim subject 
    dim body
    
    sender="Flybird <[e-mail]>"
    mailto="[e-mail]"
    subject="test whether the server can send email"
    body="It's OK!"
    
    sendMail sender,mailto,subject,body

    function sendMail(sender,mailto,subject,body)
        on error resume next
  　 　 Dim MailObject
　   　 Set MailObject = Server.CreateObject("CDONTS.NewMail")
  
　   　 MailObject.From=sender
　 　   MailObject.To=mailto

  　 　 MailObject.Subject=subject
　   　 MailObject.Body=body

  　 　 MailObject.Send 
        if err>0 then
           err.clear
           sendMail=false
        else
           sendMail=true
        end if
    end function 
%>