Mail med CDNOTS

function  SendMail (sFrom, sTo, sSubject, sBody, sCc, sBcc, iPriority)

    dim myCDO
    set myCDO = Server.CreateObject(\"CDONTS.NewMail\")

    if IsObject(myCDO) then
        myCDO.From = sFrom
        myCDO.To = sTo
        myCDO.Subject = sSubject
        myCDO.Body = sBody
        myCDO.importance = iPriority
        myCDO.Cc = sCc
        myCDO.Bcc = sBcc
        myCDO.Send
        set myCDO = nothing
        SendMail = True
    else
        SendMail = False
       
    end if

end function