原本的CDONTS.NewMail寫法不能使用，所以改用下面的方法替換

<%

    Const cdoSendUsingMethod="http://schemas.microsoft.com/cdo/configuration/sendusing"

    Const cdoSendUsingPort=2

    Const cdoSMTPServer="http://schemas.microsoft.com/cdo/configuration/smtpserver"

    Const cdoSMTPServerPort="http://schemas.microsoft.com/cdo/configuration/smtpserverport"

    Const cdoSMTPConnectionTimeout="http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout"

    Const cdoSMTPAuthenticate="http://schemas.microsoft.com/cdo/configuration/smtpauthenticate"

    Const cdoBasic=1

    Const cdoSendUserName="http://schemas.microsoft.com/cdo/configuration/sendusername"

    Const cdoSendPassword="http://schemas.microsoft.com/cdo/configuration/sendpassword"

    Dim objConfig ' As CDO.Configuration

    Dim objMessage ' As CDO.Message

    Dim Fields ' As ADODB.Fields

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

    Set Fields = objConfig.Fields

    With Fields

    .Item(cdoSendUsingMethod) = cdoSendUsingPort

    .Item(cdoSMTPServer) = "127.0.0.1" 'Your SMTP Server

    .Item(cdoSMTPServerPort) = 25

    .Item(cdoSMTPConnectionTimeout) = 10

    .Item(cdoSMTPAuthenticate) = cdoBasic

    .Item(cdoSendUserName) = "使用者帳號@gmail.com" 'User name at SMTP Server

    .Update

    End With

    set Mail =server.createobject("cdo.message")

    Set Mail.Configuration = objConfig

    Mail.Subject = "郵件主旨"                              

     Mail.From = "寄件人@gmail.com"

    Mail.To      = "收件人@gmail.com"

    Mail.textBody = "郵件內容"

    Mail.Send

    Set Mail = Nothing

%>