用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
% >