用CDO组件发送邮件

<%  


  Function fCdoForm(mFrom, mTo, mSubject, mBody, mSmtp, mPort, mTimeout, mUser, mPwd, mAuth, mSend) 


      Dim msg,iConf


      Set msg = Server.CreateObject("CDO.Message")


      '----------------------------------------------------------


        Set iConf = Server.CreateObject("CDO.Configuration")


        iConf.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = mSend


        iConf.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = mSmtp


        iConf.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = mPort


        iConf.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = mTimeout


        iConf.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = mAuth


        iConf.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = mUser


        iConf.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = mPwd


        iConf.Fields.Update


      '----------------------------------------------------------


      Set msg.Configuration = iConf


      msg.From = mFrom


      msg.To = mTo


      msg.Subject = mSubject


      msg.HTMLBody = mBody


      On Error Resume Next


      msg.Send


      


      if Err.Number <> 0 then 


          Response.Write("<script>alert('邮件发送失败,请填写有效的电子邮件!');history.back();</script>")


          'Response.Write(Err.Description)


          Response.End()


      else


          Response.Write("<script>alert('发送成功!');location.href='SendEmail.asp';</script>")


      end if 


      Set iConf = Nothing


      Set msg = Nothing 


  End Function


  If Request.QueryString("action")="send" Then


    Dim iFrom,iTo,iSubject,iBody,iSmtp,iPort,iTimeout,iUser,iPwd,iAuth,iSend


    iFrom = Trim(Request.Form("mFrom"))


    iTo = Trim(Request.Form("mTo"))


    iSubject = Trim(Request.Form("mSubject"))


    iBody = Trim(Request.Form("mBody"))


    iSmtp = Trim(Request.Form("mSmtp"))


    iPort = Trim(Request.Form("mPort"))


    iTimeout = Trim(Request.Form("mTimeout"))


    iUser = Trim(Request.Form("mUser"))


    iPwd = Trim(Request.Form("mPwd"))


    iAuth = Trim(Request.Form("mAuth"))


    iSend = Trim(Request.Form("mSend"))


    


    Call fCdoForm(iFrom,iTo,iSubject,iBody,iSmtp,iPort,iTimeout,iUser,iPwd,iAuth,iSend)


  End If


%>