ASP通过SMTP发邮件

 

< %
     Const  SMTPServerIP  =   " mail.idg-rbi.com.cn "

     Dim  strFrom, strTo,strSuject, strBody
    strFrom  =   " webmaster@idg-rbi.com.cn "
    strTo  =   " kong123@citiz.net "
    strSubject  =   " test "
    strBody  =   " test "
    
     Dim  sch, cdo, cdoConfig
    sch  =   " http://schemas.microsoft.com/cdo/configuration/ "
     Set  cdoConfig  =  Server.CreateObject( " CDO.Configuration " ) 

    cdoConfig.Fields.Item(sch  &   " sendusing " )  =   2
    cdoConfig.Fields.Item(sch  &   " smtpserver " )  =  SMTPServerIP
    cdoConfig.Fields.Item(sch  &   " smtpauthenticate " )  =   1
    cdoConfig.Fields.Item(sch  &   " sendusername " )  =  strFrom
    cdoConfig.Fields.Item(sch  &   " sendpassword " )  =   " 8888 "
    cdoConfig.Fields.Update

     Set  cdo  =   Server.CreateObject( " CDO.Message " )
     Set  cdo.Configuration  =  cdoConfig
    cdo.From  =  strFrom
    cdo.To  =  strTo
    
    cdo.subject  =  strSubject
    cdo.TextBody  =  strBody
    
     ' session.Timeout=600

    cdo.Send

     Set  cdoConfig  =   Nothing
     Set  cdo  =   Nothing
% >