Email. Nada Acontece

[Guest - jackson -]

O que pode estar acontecendo aqui:

S.O windowsNT c/Cdonts instalado

Os parametros são recebidos aqui, a rotina carrega e finaliza sem erros porém o destinatário que é outro endereço de email meu mesmo não recebe nada.

<%

'Option Explicit

Dim var_nome, var_mail, var_comentario, var_to, EnviarMail, MsgBody

var_nome = Request.QueryString("txtnome")

var_mail = Request.QueryString("txtemail")

var_comentario = Request.QueryString("txtcomentario")

var_to = "jackson.ls@ig.com.br"

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

EnviarMail.To = var_to

EnviarMail.From = var_mail

EnviarMail.Subject = "Meu Site - Contatos"

MsgBody = "Ola"

EnviarMail.Body = MsgBody

EnviarMail.Importance = 1

EnviarMail.BodyFormat = 0

EnviarMail.MailFormat = 0

EnviarMail.Send

Set EnviarMail = Nothing

Response.write "Obrigado"

%>

[bareta]

verifique se os endereços de remetente e de envio são validos... principalmente o remetente....

[PASP]

Obs: O servidor SMTP do IIS está ativo? Pra que os e-mails sejam enviados, ele precisa estar ativo..

Verifique e tente novamente!!

Abraços!!