Erro 500 com componente cdosys

[Argos 0]

Salve galera!

Eu tenho um sistema de cadastro com ativação por email, e pelo q li no site do servidor, o componente para o envio deste email deve ser o cdosys.

Já utilizei esse sistema anos atras, utilizando cdonts, e funcionava td certinho.. agora mudei e não funciona mais.. o mais estranho é que o erro q dá é o 500. (Só estou testando online, por não ter o componente no meu pc)..

 

Código Cdonts:

Set Mailer = CreateObject("CDONTS.NewMail") 
Mailer.From = seumail ' e-mail de quem esta enviando a mensagem 
Mailer.To = email ' e-mail de quem vai receber a mensagem 
Mailer.BodyFormat = 1 ' parametro de formatação 
Mailer.MailFormat = cdoMailFormatText ' parametro de formatação 
Mailer.Subject = site&" - Ativação do Cadastro" 
Mailer.Body = corpo 
Mailer.Send 
Set Mailer = Nothing

Código Cdosys:

Set CDOSYS = Server.CreateObject("CDO.Message")
CDOSYS.From = seumail
CDOSYS.To = email
CDOSYS.Subject = site&" - Ativação do Cadastro"
CDOSYS.TextBody = corpo
CDOSYS.Send
Set CDOSYS = Nothing

Tem algo faltando??

Após isso, na programação, eu tenho a inclusão dos dados no bd... se eu tiro essa parte descrita acima, td funciona...inclui no cadastro e redireciona pra página de confirmação.. qdo volto ela, erro 500..

 

Desde já obrigado pessoal!

[xanburzum 169]

desabilita a opção exibir mensagens de erro amigáveis no browser,

e da uma procurada no frum que postei alguns exemplo do uso de CDOSYS e CDONTS:

 

abaixo um código que uso do CDOTNS:

 

'=======================================================================
' crio o objeto para envio de email
'=======================================================================
			set objmail=server.createobject("CDONTS.NewMail")
			objmail.from="xanburzum@terra.com.br"
			objmail.to=varcademail
			objmail.subject="Email cadastrado com sucesso"
			objmail.bodyformat=0
			objmail.mailformat=0
			objmail.body="Caro <b>" & varcademail & ",</b><br> Seu email foi recebido com sucesso, em breve receberá notícias"
			objmail.send 
			set objmail=nothing
			response.redirect("default.asp?msg=1")