Ir para conteúdo

Arquivado

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

lezão

Erro no envio de Email

Por , em ASP Clássico

Recommended Posts

lezão    0

lezão
Postado

Ola galera estou utilizando este codigo e acrescentei mas algumas coisas e esta dando o seguinte erro 

O Erro é At least one Recipient, CC or BCC must be entered

O Erro à © pelo menos um destinatário, CC ou BCC deve ser digitado

Codigo enviar.asp

<%
'Declarando variveis
Dim sNameTo, sNameFrom, sEmailFrom, sTelFrom, sCelFrom, sWhatsFrom, sText, sEmailTo, sAssunto

'Pegando os dados digitados nos campos e colocando em variaveis
sNameFrom = Request.Form("nome")
sEmailFrom = Request.Form("email")
sTelFrom = Request.Form("tel")
sCelFrom = Request.Form("cel")
sWhatsFrom = Request.Form("whats")
sEmailTo = " leandro.sowzza@gmail.com"
sNameTo = "demestofados.com.br"
sText = Request.Form("mensagem")
sAssunto = Request.Form("assunto")

'Cria o objeto
  set mailer = server.createobject("SMTPsvg.Mailer")
  Mailer.FromName = sNameFrom
  Mailer.FromAddress = sEmailFrom
'Host para envio de emails
  Mailer.RemoteHost = "smtp2.locaweb.com.br"
  Mailer.AddRecipient sEmailTo, sNameTo
  Mailer.Subject = sAssunto  & " - E-mail"

'Monta a texto para o envio
  strMsgHeader = sNameFrom & "(" & sEmailFrom & ") " & " quem enviou! " & vbCrLf & vbCrLf
  strMsgFooter = sText
  Mailer.BodyText = strMsgHeader & strMsgFooter
' Se for enviado redirecionar para obrigado.asp
  if Mailer.SendMail then
     Response.Redirect "obrigado.asp"
  else
' Se não for enviado mostra o erro que ocoreu
     Response.Write ("Ocorreu um erro.<BR>")
     Response.Write ("O Erro é " & Mailer.Response)
  end if
%>

form.asp

<form method="POST" action="enviar.asp">
 <table width="100%" border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td> </td>
            <td> </td>
            <td> </td>
          </tr>
          <tr>
            <td colspan="3"><div align="center">
              <font size="3" color="#FFFFFF" face="Arial, Helvetica, sans-serif">Escolha um Assunto</font></div></td>
          </tr>
          <tr>
            <td> </td>
            <td> </td>
            <td> </td>
          </tr>
          <tr>
            <td>
            
                        <div align="center">
            <font size="2" color="#FFFFFF" face="Tahoma, Geneva, sans-serif">Orçamento</font>

<input type="radio" name="Assunto" id="radio" value="Orçamento" />

            </div>
            
            </td>
            <td>
            
            <div align="center">
            <font size="2" color="#FFFFFF" face="Tahoma, Geneva, sans-serif">Dúvidas</font>

<input type="radio" name="Assunto" id="radio" value="Orçamento" />
            </div>
            </td>
            <td>
            
             <div align="center">
            <font size="2" color="#FFFFFF" face="Tahoma, Geneva, sans-serif">Reclamações</font>

<input type="radio" name="Assunto" id="radio" value="Orçamento" /></div>
            
            </td>
          </tr> 
          </table>      
        
  <br />   <br />      
        
        
        <table width="100%" border="0" cellspacing="2" cellpadding="2">
          <tr>
            <td width="20%"> </td>
            <td width="22%"> </td>
            <td width="58%"> </td>
          </tr>
          <tr>
            <td>
            
            <div align="center">
            <font size="2" color="#FFFFFF" face="Tahoma, Geneva, sans-serif">Nome:</font></div> 
            
            </td>
            <td colspan="2">
              <input name="nome" type="text" size="50" />
</td>
            </tr>
          <tr>
            <td>
            
            <div align="center">
            <font size="2" color="#FFFFFF" face="Tahoma, Geneva, sans-serif">E-mail:</font></div> 
            
            </td>
            <td colspan="2"><input name="email" type="text" size="50" /></td>
            </tr>
          <tr>
            <td>
            
            <div align="center">
            <font size="2" color="#FFFFFF" face="Tahoma, Geneva, sans-serif">Telefone:</font></div> 
            
            </td>
            <td colspan="2"><input name="tel" type="text" id="telefone" size="18" placeholder="(xx)xxxx-xxxx"/></td>
            </tr>
          <tr>
            <td>
            
            
            <div align="center">
            <font size="2" color="#FFFFFF" face="Tahoma, Geneva, sans-serif">Celular:</font></div> 
            
            </td>
            <td><input name="cel" type="text" id="celular" size="18" placeholder="(xx)xxxx-xxxx"/></td>
            <td> 
              <table width="250" border="0" cellspacing="0" cellpadding="0">
                <tr>
                  <td width="52%">
                  
<div align="left"><img src="Imagens/whats.png" width="129" height="30" /></div>                
                  
                  
                  </td>
                  <td width="23%">
<div align="center">
  <font size="2" color="#FFFFFF" face="Tahoma, Geneva, sans-serif">Sim</font>
  <input type="radio" name="Whats" id="radio3" value="http://www.demestofados.com.br/Imagens/whatsapp.png" />
</div>                   
                  
                  
                  </td>
                  <td width="25%"><div align="center"><font size="2" color="#FFFFFF" face="Tahoma, Geneva, sans-serif">Não
                    <input type="radio" name="Whats" id="radio2" value="" />
                  </font></div></td>
                </tr>
              </table>
             </td>
          </tr>
          <tr>
            <td> </td>
            <td> </td>
            <td> </td>
          </tr>
          <tr>
            <td>
            
            <div align="center">
            <font size="2" color="#FFFFFF" face="Tahoma, Geneva, sans-serif">Mensagem:</font></div> 
            
            </td>
            <td> </td>
            <td> </td>
          </tr>
          <tr>
            <td colspan="3"><div align="center">
              
              
              <textarea name="mensagem" cols="50" rows="12"></textarea>
              
              </div></td>
          </tr>
          <tr>
            <td colspan="3">

              <div align="center">
                <input name="imageField" type="image" id="imageField" src="Imagens/bt_enviar.png" />
              </font>
              </div>
              </td>
            </tr>
        </table>
        
        </form>

aonde estou errando?

Compartilhar este post

Link para o post
Compartilhar em outros sites

Fábio BN    17

Fábio BN
Postado

Oi, mude essa linha e veja se funciona:

Mailer.addrecipient "" & sEmailTo & "","" & sNameTo & ""

Pelo menos no meu funciona assim.

 

Abraços!

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

verifique se esta passando o nome do campo correto. E veja se não esta colocando ao contrário, tipo:

 

Mailer.AddRecipient sEmailTo, sNameTo

correto:
Mailer.AddRecipient sNameTo, sEmailTo

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

vc esta testando no server ou localhost ?

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

vc esta testando ele na sua máquina ou no endereço da página (se vc já "upou" (jogou) a página na hospedagem).

Compartilhar este post

Link para o post
Compartilhar em outros sites

Fábio BN    17

Fábio BN
Postado

Eu não sei se depende de servidor pra servidor, mas aqui eu uso as aspas dessa forma, e funciona:

Mailer.fromname = "" & sNameFrom & ""
Mailer.fromAddress = "" & sEmailFrom & ""
Mailer.remotehost = "smtp2.locaweb.com.br"
Mailer.addrecipient "" & sNameTo & "","" & sEmailTo & ""
Mailer.subject = "" & sAssunto & ""
Mailer.bodytext = "" & texto & ""
Mailer.ContentType = "text/html"

Tente fazer um exemplo mais simples do seu sistema, usando um assunto simples e um corpo simples, se funcionar, é por que te algum erro na estrutura atual.

 

Abraços!


Eu mandava e-mail pelo locaweb assim:

dim mMail
set mMail = server.createobject("SMTPsvg.Mailer")

mMail.fromname = "Nome Remetente"
mMail.fromAddress = "email Remetente"
mMail.remotehost = "smtp.site_hospedado.br"
mMail.addrecipient "" & var("nome") & "","" & var("email") & ""
mMail.subject = "" & session("assunto") & ""
mMail.bodytext = "" & session("texto") & ""
mMail.ContentType = "text/html"
'uso para tentar autenticar com senha, mas não é necessário
mMail.Username = "nome@site_hospedado.com.br"
mMail.Password = "senha da hospedagem"
mMail.sendmail
set  mMail = nothing

Funcionava.

Abraços!

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

está no host (server). verifique se a sintaxe esta como te falei e se as variáveis que esta passando estão corretas, com email válido. Esse erro de Operation timed out, pode ser alguma instabilidade do server também, Servidor SMTP é baixo, sobrecarregado ou simplesmente não responde, ou o Firewall bloqueando a porta 25 entre ASPMail e servidor SMTP, a filtragem de pacotes bloqueando a porta 25 entre ASPMail e servidor SMTP, Rota IP é baixo, o servidor de DNS configurado Winsock é baixo.

Para verificar usando outro método de execução

telnet [smtp hostname] 25

a partir do servidor IIS onde ASPMail está instalado. Se telnet pode ver o
Servidor SMTP, então ASPMail pode ver o servidor.

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

o que tem na variável var ?

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

Poste o code para eu ver

Compartilhar este post

Link para o post
Compartilhar em outros sites

rafaeldupalio    5

rafaeldupalio
Postado

eu mudei ele ja é outro codigo

mas e ae funcionou?

 

Oi, mude essa linha e veja se funciona:

Mailer.addrecipient "" & sEmailTo & "","" & sNameTo & ""

Pelo menos no meu funciona assim.

 

Abraços!

ele pediu para vc concatenar colocar as aspas e o & comercial

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

mais quais foram suas alterações

Compartilhar este post

Link para o post
Compartilhar em outros sites

lezão    0

lezão
Postado

apenas pegeui esse codigo e joguei la e deu esse erro 

Microsoft VBScript runtime  error '800a000d'
Type mismatch: 'var'
/public_html/demestofados/enviarqqq.asp, line 8

mas ja voltei para o codigo do inicio...

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

e esta com o mesmo erro ?

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