CDONTS para CDOSYS

Fala galera, to precisando de um help sobre o envio de email. Trabalho mais com Coldfusion e peguei esta empreitada em ASP, o site estava hospedado em outra servidor e a funcao CDONTS/ASPMAIL/ funcionava perfeitamente, mais como a empresa decidiu mudar para a melhoria de suporte e navegabilidade do site, tenho que adaptar algumas coisas e uma delas é a função de CDONTS para CDOSYS, vou postar o codigo abaixo para ter idéia por onde começar.

Function enviar(de, para, assunto, mensagem)

 Select Case loja("componente_email")
 Case "ASPMAIL"
 On Error Resume Next
 Set objEmail = Server.CreateObject("SMTPsvg.Mailer")
 objEmail.FromName = de
 objEmail.FromAddress = de
 objEmail.RemoteHost = loja("host_email")
 objEmail.AddRecipient "", para
 objEmail.Subject = assunto
 objEmail.ContentType = "text/html"
 objEmail.BodyText = mensagem
 objEmail.SendMail
 Set objEmail = Nothing
 Case "ASPEMAIL"
 On Error Resume Next
 Set objEmail = Server.CreateObject("Persits.MailSender")
 objEmail.Host = loja("host_email")
 objEmail.From = de
 objEmail.FromName = de
 objEmail.AddAddress para
 objEmail.Subject = assunto
 objEmail.isHTML = True
 objEmail.Body = Mensagem
 objEmail.Send
 Set objEmail = Nothing
 Case "ASPQMAIL"
 On Error Resume Next
 Set objEmail = Server.CreateObject("SMTPsvg.Mailer")
 objEmail.QMessage = 1
 objEmail.FromName = de
 objEmail.FromAddress = de
 objEmail.RemoteHost = loja("host_email")
 objEmail.AddRecipient "", para
 objEmail.Subject = assunto
 objEmail.BodyText = mensagem
 objEmail.SendMail
 Set objEmail = Nothing
 Case "CDONTS"
 On Error Resume Next
 Set objEmail = Server.CreateObject("CDONTS.NewMail")
 objEmail.to = para
 objEmail.from = de
 objEmail.subject = assunto
 objEmail.Importance = 1
 objEmail.BodyFormat = 0
 objEmail.MailFormat = 0
 objEmail.body = mensagem
 objEmail.send
 Set objEmail = Nothing
 End Select

end function
Vlw galera....[ ]'s - :(