Cdonts og exchange

Hvis du har lagt Service Pack 3 på din Exchange server, skal du lige ta' et kik på dette link:
http://support.microsoft.com/default.aspx?scid=KB;EN-US;Q324037&

Du skal bruge CDOSYS i stedet for - her er lidt kode:

<%@ Language=VBScript %>
<%
    Dim iMsg
    Dim iConf
    Dim Flds
    Const cdoSendUsingPort = 2
    Const strSmartHost = "dinserversnavn.dk"

    'Create the message object.
    Set iMsg = CreateObject("CDO.Message")

    'Create the configuration object.
    Set iConf = iMsg.Configuration

    'Set the fields of the configuration object to send by using SMTP through port 25.
    With iConf.Fields
      .item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort
      .item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = strSmartHost
      .Update
    End With

    'Set the To, From, Subject, and Body properties of the message.
    With iMsg
      .To = "mbaker@adatum.com"
      .From = "mbaker@adatum.com"
      .Subject = "Test message by using CDOEx and cdoSendUsingPort, sent on: "  & now()
      .TextBody = "This is a test by using CDOEx"
      .Send
    End With
    set iMsg = Nothing
%>

Kan i hjælpe mig med at omskrive denne kode til CDOSYS
    case "cdonts"

    '::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
    ' CDONTS Mail Object

    set mail = Server.CreateObject("CDONTS.NewMail")
    mail.From = sender_address
    mail.To = recipient_address
   
    mail.Subject = subject
    mail.Body = body
       
    '' optional settings
    'mail.CC = "one@domain.com;two@domain.com"
    'mail.BCC = "blind@domain.com"
    'mail.Importance = 1 '(0=Low, 1=Normal, 2=High)
    'mail.AttachFile "c:\path\filename.txt", "filename.txt"
    'mail.AttachURL = ' Usage unkown.
    mail.BodyFormat = 0 ' HTML or '1' for plain text (default)
    mail.MailFormat = 0 ' MIME or '1' for plain text (default)
   
    '' send the mail
    on error resume next
    mail.Send
    if err.number = 0 then
        sendmail = 1
    else
        sendmail = -1
    end if
    on error goto 0

    end select
       
end function

lukker