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