[Resolvido] CDOSYS

Bem galera, depois de uma busca cansativa no fórum decidi postar a mensagem; quero deixar claro que encontrei alguns erros parecidos nos Posts como o meu, mas nada que solucionasse o problema.

Fiz um formulário simples que envia um e-mail de informações ao final do cadastro, mas o e-mail não é enviado e eu não descobri no momento, até mesmo porque ele não gera erros mas abre a página final que contém o código normalmente, simplesmente não envia o E-mail. Se puderem analisar o script juntamente comigo eu ficaria agradecido.

Dim objCDOSYSMail
Dim objCDOSYSCon

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

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

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

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

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

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

objCDOSYSCon.Fields.update
Set objCDOSYSMail.Configuration = objCDOSYSCon

objCDOSYSMail.From = ""

objCDOSYSMail.To = ""

objCDOSYSMail.Subject = "Teste do CDOSYS"

objCDOSYSMail.TextBody = "Testando o componente CDOSYS"

objCDOSYSMail.Send

Set objCDOSYSMail = Nothing
Set objCDOSYSCon = Nothing
Observações:

• A linha ObjCDOSYSMail.To foi alterada para meu e-mail visando facilitar os testes, na verdade ela é composta da seguinte forma: ObjCDOSYSMail.To = session ("Email") onde o código pegará automaticamente o e-mail cadastrado pelo usuário no início do Formulário
• Os dados de "SMTP" e "Porta" preferi oculta-los, mas estão configurados de acordo com os dados do servidor.

Desde já agradeço galera! Abraços. http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif