Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

gerajuca

Formulario de Envio de Solicitaçao de Orçamento pelo site

Por , em ASP Clássico

Recommended Posts

gerajuca    0

gerajuca
Postado

Amigos boa tarde! Sou leigo em programaçao ASP e estou com problemas no código CDOSYS , meu site está hospedado na locaweb .

 

o problema é o seguinte . No meu site tem um link para meus clientes preencherem um formulário de pedido de orçamento e quando clicam em enviar recebo no meu email este pedido.

 

O problema é que meus clientes preenchem e eu não estou recebendo este email, no suporte da locaweb me informaram para usar um modelo de formulário em CDOSYS que colocarei no final. Mas mesmo utilizando este ex. e dando mensagem de sucesso do envio a mensagem não chega e nem entra como spam.

 

ao fazer testes...descobri que emails do terra, gmail, globo, hotmail e outros com final .br não chegam.

mas estes: chegam normalmente!


teste@teste.com
gejun@jhjhjhjh.com
ge@filho.com
g@jhjhjhjhjh.com
terererere@tetetete.com
balabaklkbakba@terra.es
blablablabla@outlook.com
junior@meudominio.com.br

 

O que está acontecendo? Agradeço a ajuda de vocês desde já!

 

Codigo:

 

<%
   Dim emaildestino, assunto, texto
   mTexto = "<font face='verdana' size=2>"
   mTexto = mTexto & "<b>Nome:</b> "& request("txtnome") & "<BR>"
   mTexto = mTexto & "<b>E-mail:</b> "& request("txtdest") & "<BR>"
   mTexto = mTexto & "<b>Telefone:</b> "& request("txttel") & "<BR>"
   mTexto = mTexto & "<b>Produtos à orçar:</b><BR><BR>"   
   mTexto = mTexto & "<b>1 - </b> "& request("txtprod1") & "<BR>"
   mTexto = mTexto & "<b>2 - </b> "& request("txtprod2") & "<BR>"
   mTexto = mTexto & "<b>3 - </b> "& request("txtprod3") & "<BR><BR>"
   mTexto = mTexto & "<b>Dúvidas ou Comentários:</b> "& request("txtmsg")   
   
   emaildestino = Request.Form("txtdest")
   assunto = "Orçamento Minha Empresa- Teste Locaweb"
   mensagem = mTexto
   If  emaildestino <> "" Then
       Set objCDOSYSMail = Server.CreateObject("CDO.Message")
       Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")
       objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
       objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
       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 = emaildestino
       objCDOSYSMail.To = "minhaempresa@minhaempresa.com.br"
       objCDOSYSMail.Subject = assunto
       objCDOSYSMail.HtmlBody = mTexto
       objCDOSYSMail.Send
       Set objCDOSYSMail = nothing
       Set objCDOSYSCon = nothing
       %>
                 <script language="JavaScript" type="text/javascript">
  alert("Seus dados foram enviados! Obrigado!");
  location.href = "locaweb.asp";
                      </script>
<% Else %>
   <html>
   <head>
       <title>CDOSYS</title>
       <style type="text/css">
           #Text1
           {
               width: 287px;
           }
           #Text2
           {
               width: 287px;
           }
           #Text3
           {
               width: 287px;
           }
           #Text4
           {
               width: 287px;
           }
           #btEnviar
           {
               width: 100px;
           }
           #btLimpar
           {
               width: 100px;
           }
           #TextArea1
           {
               width: 287px;
           }
       </style>
   </head>
   <body>
   <form id="form" name="form" method="POST" action="locaweb.asp">
       <h2 align="center" style="text-decoration: underline"> Formulário de Contato (CDOSYS)</h2>
       <table width="450px" align="center" border="1" cellpadding="5" cellspacing="5">
           <tr>
             <td align="right">Nome</td>
             <td><input id="txtnome" name="txtnome" type="text" /></td>
           </tr>
           <tr>
               <td align="right">
                   Email</td>
               <td>
                   <input id="txtdest" name="txtdest" type="text" /></td>
           </tr>
           <tr>
             <td align="right">Telefone</td>
             <td><input id="txttel" name="txttel" type="text" /></td>
           </tr>
           <tr>
             <td align="right">Produtos à orçar</td>
             <td> </td>
           </tr>
           <tr>
             <td align="right">1</td>
             <td><input id="txtprod1" name="txtprod1" type="text" /></td>
           </tr>
           <tr>
             <td align="right">2</td>
             <td><input id="txtprod2" name="txtprod2" type="text" /></td>
           </tr>
           <tr>
             <td align="right">3</td>
             <td><input id="txtprod3" name="txtprod3" type="text" /></td>
           </tr>
           <tr>
               <td align="right">
                   Dúvidas e Comentários:</td>
               <td>
                   <textarea id="txtmsg" name="txtmsg" rows="2"></textarea></td>
           </tr>
           <tr>
               <td align="center" colspan="2">
                   <table style="width:100%;" cellspacing="10">
                       <tr>
                           <td align="right">
                               <input id="btEnviar" type="submit" value="Enviar" /></td>
                           <td>
                               <input id="btLimpar" type="reset" value="Limpar" align="left" /></td>
                       </tr>
                   </table>
               </td>
           </tr>
       </table>
       </form>
   </body>
</html>
<% End If %>

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

você tem que mudar o smtpserver de "localhost" para seu SMTP válido, por exemplo, smtp.dominio.com.br

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

a locaweb tem uma frescura com alguns emails que precisam ser autenticados na porta 587 e alguns só recebem emails do mesmo domínio.

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito