De Cdonts Para Cdosys

[lekinhoweb]

Olá amigos, estou com uma grande dúvida, eu tenho um script que usa CDONTs sendo que o win2003 não usa CDONT, só usa o CDO e no servidor já está configurado, eu preciso saber como eu posso configurar para migrar de CDONT para CDOSYS obrigado..

Dim EnvioEmail

Set EnvioEmail = Server.CreateObject("CDONTS.NewMail")

EnvioEmail.From = VarEmail

EnvioEmail.To = EmailPadrao

EnvioEmail.BodyFormat = 0

EnvioEmail.MailFormat = 0

EnvioEmail.Subject = "Contato - "& Titulo

EnvioEmail.Body = VarCorpoEmail

EnvioEmail.Send

Set EnvioEmail = Nothing

Por favor, alguém me dá um help.

Obrigado!

[fantasma]

<%

'cria o objeto para o envio de e-mail

Set objCDOSYSMail = Server.CreateObject("CDO.Message")

'cria o objeto para configuração do SMTP

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

'SMTP

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp2.locaweb.com.br"

'porta do SMTP

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport")

= 25

'porta do CDO

objCDOSYSCon.Fields

("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

'timeout

objCDOSYSCon.Fields

("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30

objCDOSYSCon.Fields.update

'atualiza a configuração do CDOSYS para o envio do e-mail

Set objCDOSYSMail.Configuration = objCDOSYSCon

'e-mail do remetente

objCDOSYSMail.From = "eu@MeuDominio.com.br"

'e-mail do destinatário

objCDOSYSMail.To = "destinatario@dominio.com.br"

'assunto da mensagem

objCDOSYSMail.Subject = "Teste do CDOSYS"

'conteúdo da mensagem

objCDOSYSMail.TextBody = "Teste do componente CDOSYS"

'para envio da mensagem no formato html altere o TextBody para HtmlBody

'objCDOSYSMail.HtmlBody = "Teste do componente CDOSYS"

'objCDOSYSMail.fields.update

'envia o e-mail

objCDOSYSMail.Send

'destrói os objetos

Set objCDOSYSMail = Nothing

Set objCDOSYSCon = Nothing

response.write "E-mail enviado para destinatario@dominio.com.br ..."

%>