Envio de email pelo Cdonts

[ROBERTO PEREIRA 0]

Olá pessoal, tenho um formulário de contato no qual utilizo o componente Cdonts instalado em meu servidor (IIS). Ao enviar os dados para o e-mail especificado (jrobertopr@hotmail.com), até aí funciona perfeito, no entanto, não recebo nenhuma das mensagens das quais enviei.

 

Agradeço desde já pela atenção de todos. Segue o código abaixo:

 

formulario.asp

 

<form id="form_contato" action="enviaemail.asp" name="geral">

 <div id="form_left">

  <label>Assunto:</label>
  <input class="formtxt1" tabindex="1" name="strAssunto" type="text">

  <label>Nome:</label>
  <input class="formtxt1" tabindex="2" name="strNome" type="text">

  <label>E-mail:</label>
  <input class="formtxt2" tabindex="3" name="strEmail" type="text">

  <label>Telefone:</label>
  <input class="formtxt3" tabindex="4" name="strTelefone" type="text">

</div>


<div id="form_right">

  <textarea name="strMensagem" tabindex="5" onmouseover='checkselection()' tabindex="1" onblur="if(this.value==''){this.value='Descreva aqui sua solicitação, reclamação ou sugestão.';}" onfocus="if(this.value=='Descreva aqui sua solicitação, reclamação ou sugestão.'){this.value='';}">Descreva aqui sua solicitação, reclamação ou sugestão.</textarea>

  <input tabindex="6" type="submit" class="button2" name="Submit" value="Enviar">
  <input tabindex="7" type="reset" class="button2" name="Submit2" value="Limpar">

</div>

</form>

 

enviaemail.asp

 

<%

' Atribuindo os dados do formulário submetido as váriveis strNome e strEmail
strNome = Trim(Request.Form("nome"))
strEmail = Trim(Request.Form("email"))
strAssunto = Trim(Request.Form("assunto"))
strMensagem = Trim(Request.Form("mensagem"))

' Agora vamos criar uma conexão com o CDONTS para enviar os dados
' submetidos para o webmaster do site. O Email será enviado pelo usuário recém cadastrado
Set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.To = "jrobertopr@hotmail.com"
objMail.From = strEmail 
objMail.Subject = "Fale Conosco"

' Vamos criar agora uma mensagem padrão a ser enviado para o webmaster
' vbcrlf = quebra de linha 
strMsgParaCadastro = "Nome: " & strNome & vbcrlf
strMsgParaCadastro = strMsgParaCadastro & "Empresa: " & strEempresa & vbcrlf 
strMsgParaCadastro = strMsgParaCadastro & "Telefone: " & strTelefone & vbcrlf 
strMsgParaCadastro = strMsgParaCadastro & "Email: " & strEmail & vbcrlf 
strMsgParaCadastro = strMsgParaCadastro & "Assunto: " & strAssunto & vbcrlf
strMsgParaCadastro = strMsgParaCadastro & "Mensagem: " & strMensagem & vbcrlf
strMsgParaCadastro = strMsgParaCadastro & "-----------------------------"
objMail.Body = strMsgParaCadastro
objMail.Send 
Response.Write("O seu formulário foi enviado com êxito. Agradecemos o Contato.")
' Email para o webmaster enviado, portanto fechamos a conexão com o CDONTS

Set objMail = nothing
' Agora imediatamente, criamos a mensagem padrão que será enviada de agradecimento
' ao usuário recém cadastrado.
strMsgObrigado = "Olá " & strNome & vbcrlf
strMsgObrigado = strMsgObrigado & "Sua mensagem foi enviada com sucesso!" & vbcrlf
strMsgObrigado = strMsgObrigado & "Em breve responderemos o seu contato." & vbcrlf & vbcrlf
strMsgObrigado = strMsgObrigado & "Abraços," & vbcrlf
strMsgObrigado = strMsgObrigado & "Webmaster"

' Criando novamente outra conexão com o CDONTS para enviar o email ao usuário. 
Set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.From = "jrobertopr@hotmail.com"
objMail.To = strEmail 'observe
objMail.Subject = "Fale Conosco"
objMail.Body = strMsgObrigado
objMail.Send

' Um email de agradecimento com uma mensagem personalizada com o nome de cada usuário foi enviado por email.
' Simples e muito eficiente. Redireciona após 5 segundos

response.write "<br>você será redirecionado para página principal em 10 segundos..<br><br>"
response.write (" <img src=""includes/imagens/spinner.gif"" border=""0""> ")
response.write "<meta http-equiv='refresh' content='8; url=index.asp'/>"

%>

[hargon 64]

Utilize CDOSYS ao invés de CDONTS. Por não utilizar SMTP para enviar as mensagens, provavelmente suas mensagens, se enviadas, estão sendo entendidas como SPAM.