Ir para conteúdo
Fórum Script Brasil
  • 0

Error'800a01b6' Erro Ao Mandar Form

Guest #marcelo#

Perguntado por Guest #marcelo#,

 Share

Pergunta

Guest #marcelo#

Guest #marcelo#

Postado
Postado (editado)

Olá, antes de abrir este tópico, li e reli, o tópico aberto por marcelolima. Bom o problema dele, eu não sei se é parecido com o meu, pois não entendo muito de ASP. Li o tópico dele, para ver se consegui solucionar o meu problema mas, não consegui. Bom eu peguei na pagina: http://wmonline.com.br/?palavra=formularios o formulário de CARTOM FOR MAIL 1.0, Só que quando eu coloco ele no serviçor, preecho o form e mando. Guando eu mando ele da o seguinte erro:

Microsoft VBScript runtime error '800a01b6'

Object doesn't support this property or method: 'Send.AddRecipient'

/contato/default.asp, line 123

E na minha linha 123 tem: Send.AddRecipient nome, email

Eu não sei por que ele esta dando este erro, mas o nome e o email que ele pede esta em outro arquivo asp.

Vou deixar os codigos aqui, pra ver se vocês podem me ajudar:

/default.asp tem este codigo:

<center><html>
<head>
<title>formulario</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body bgcolor="#FFFFFF" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">

  <table width="599" border="0" cellpadding="0" cellspacing="0">
    <!--DWLayoutTable-->
    <tr> 
      <td width="599" height="57" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">
          <!--DWLayoutTable-->
          <tr> 
            <td width="253" height="57" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#F1F8F8">
                <!--DWLayoutTable-->
                <tr> 
                  <td width="253" height="57" valign="top"><!--DWLayoutEmptyCell-->&nbsp;</td>
                </tr>
              </table></td>
            <td width="346"><div align="center"><font size="1" face="Verdana">CarlTom 
                Form Mail 1.0<br>
                Desenvolvido por Wellington Costa de Almeida<br>
                wellington@mediashock.com.br </font></div></td>
          </tr>
        </table></td>
    </tr>
    <tr> 
      <td height="378" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#F1F8F8">
          <!--DWLayoutTable-->
          <tr> 
            <td width="599" height="378"><div align="center"><%
  	enviar = Request.Form("enviar")
  	if enviar = "" Then
  	%><form action="default.asp" method="post">
  <table width="454" border="0" cellpadding="0" cellspacing="0">
    <!--DWLayoutTable-->
    <tr> 
      <td width="129" height="22" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">
          <!--DWLayoutTable-->
          <tr> 
            <td width="111" height="22"><font size="2" face="Verdana">Nome:</font></td>
          </tr>
        </table></td>
      <td width="325"><input name="nome" type="text" id="nome" size="30"></td>
    </tr>
    <tr> 
      <td height="22" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">
          <!--DWLayoutTable-->
          <tr> 
            <td width="111" height="22"><font size="2" face="Verdana">E-Mail:</font></td>
          </tr>
        </table></td>
      <td><input name="email" type="text" id="email" size="30"></td>
    </tr>
    <tr> 
      <td height="22" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">
          <!--DWLayoutTable-->
          <tr> 
            <td width="111" height="22"><font size="2" face="Verdana">Telefone:</font></td>
          </tr>
        </table></td>
      <td><input name="telefone" type="text" id="telefone" size="30"></td>
    </tr>
    <tr> 
      <td height="24" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">
          <!--DWLayoutTable-->
          <tr> 
            <td width="111" height="22"><font size="2" face="Verdana">Tipo de 
              Contato:</font></td>
          </tr>
        </table></td>
      <td><select name="tipo" id="tipo">
          <option value="elogio" selected>Elogios</option>
          <option value="Critica">Critica</option>
          <option value="Sugest&atilde;o">Sugest&atilde;o</option>
          <option value="Publicidade">Publicidade</option>
          <option value="Parcerias">Parcerias</option>
        </select></td>
    </tr>
    <tr> 
      <td height="24" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">
          <!--DWLayoutTable-->
          <tr> 
            <td width="129" height="22"><font size="2" face="Verdana">Contato 
              por Tel:</font></td>
          </tr>
        </table></td>
      <td><select name="ctel" id="ctel">
          <option value="Sim" selected>Sim</option>
          <option value="N&atilde;o">N&atilde;o</option>
        </select></td>
    </tr>
    <tr> 
      <td height="138"><font size="2" face="Verdana">Mensagem:</font></td>
      <td><textarea name="msg" cols="30" rows="8" id="msg"></textarea></td>
    </tr>
    <tr>
      <td height="19" colspan="2" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">
          <!--DWLayoutTable-->
          <tr> 
            <td width="454" height="1"><div align="center">
                <input name="enviar" type="submit" id="enviar" value="Enviar">
              </div></td>
          </tr>
        </table></td>
      </tr>
  </table>
</form>
<% else %>
<!--#include file="config.asp"-->
<%
snome = Request.Form("nome")
smail = Request.Form("email")
telefone = Request.Form("telefone")
tipo = Request.Form("tipo")
ctel = Request.Form("ctel")
msg = Request.Form("msg")
Set Send = Server.CreateObject("SMTPsvg.Mailer") 
	Send.FromName = snome
	Send.FromAddress= smail
	Send.RemoteHost = smtp
    Send.AddRecipient nome, email
	Send.Subject = "Contato de " & snome & " :: formulario." 
	Send.BodyText = "Olá " & ynome & ":" & VBCrLf & VBCrLf & "Você acabou de receber uma mensagem de " & snome & VBCrLf & VBCrLf & "Genero: " & tipo & VBCrLf & VBCrLf& "Memsagem:" & VBCrLf & msg & VBCrLf & VBCrLf & "Contatos por telefone: " & ctel & VBCrLf & "Telefone: " & telefone & VBCrLf & "nome: " & snome & VBCrLf & "email: " & smail & VBCrLf & VBCrLf &"E-mail de contato."
    Send.SendMail
Set Reply = Server.CreateObject("SMTPsvg.Mailer") 
	Reply.FromName = nome
	Reply.FromAddress= email
	Reply.RemoteHost = smtp
	Reply.AddRecipient snome, smail
	Reply.Subject = "Obrigado por contactar" & snome
	Reply.BOdyText = "Olá " & snome & " seu email foi enviado com sucesso para o site " & nome & ". Em bréve estaremos entrando em contato" & VBCrLf & VBCrLf & VBCrLf & "formulario"
	Reply.SendMail
%>
                <strong><font size="3" face="Verdana">Obrigado <font color="#FF0000">
                <% =snome%>
                </font><br>
                Seu email foi enviado com sucesso.</font></strong> 
                <% end if %></div></td>
          </tr>
        </table></td>
    </tr>
  </table>
  <font color="#006699" size="1" face="Verdana">Carlton Form Mail 1.0<br>
  Powere By Wellington Costa de Almeida - <a href="http://www.mediashock.com.br/">http://www.mediashock.com.br 
  </a></font> 
  </body>
</html></center>
E o config.asp tem este codigo: 
<%
'Cartom Form Mail 1.0 Beta
'Desenvolvido por Wellington Costa de Almeida
'http://www.mediashock.com.br

'nome do seu site
nome = "Formulario"

'Seu nome
ynome = "marcelo"

'Seu email
email = "marcelo449@hotmail.com"

'Servidor de SMPT
smtp = "endereço do SMPT"
%>

Obrigado pela atenção.

Editado por dark0
Link para o comentário
Compartilhar em outros sites

10 respostass a esta questão

Posts Recomendados

  • 0
dark0

dark0

Postado
Postado

Pois bem

Antes de mais nada, eu editei seu tópico.

Sempre que você for postar algum comentario, utilize a tag QUOTE.

Sempre que você for postar algum codigo, use a tag CODE.

Pois assim, a mensagem fica mais legivel.

Agora, quanto à sua duvida: Qual é a linha 123?

Saliente ela no codigo. O forum aqui, tem boas ferramentas para dinsinguir palavras, trechos de codigos.

então, coloque a linha do erro em outra cor. Assim a gente pode visualizar mais facilmente.

Até mais

Link para o comentário
Compartilhar em outros sites
  • 0
dark0

dark0

Postado
Postado

Sem problemas marcelo.

Eu falo isso sempre, para o bem da comunidade!

Pois, veja você mesmo.. como fica um codigo escrito sem a tag CODE, ou QUOTE, e um codigo com a tag.

Com a tag, fica bem mais facil de visualizar todas as linhas e caracteres. E Mais facil de identificar que aquele trecho é um codigo!

Agora, tente deixar seu codigo assim:

Send.AddRecipient snome, semail

eu adicionei o caracter em azul.. se você olhar no seu codigo, você atribui valor às variaveis Snome e Semail.. e não nome e email. E assim, o codigo não funciona!

Teste aí!

Abraços

Link para o comentário
Compartilhar em outros sites
  • 0
Guest #marcelo#

Guest #marcelo#

Postado
Postado

Olá, Dark0.

o Erro continua existindo, dá o mesmo erro.

Você não tem nenhum codigo de envio de e-mail, como este. Que quando o cara manda um e-mail ele recebe um e-mail dizendo que o e-mail dele foi enviado com sucesso e em brve entraremos em contato. Ou só o codigo que eu posso adicionar em outro codigo que já envia e-mail corretamente, mas não tem o comando de retornar o e-mail.

Obrigado pela atenção...

Link para o comentário
Compartilhar em outros sites
  • 0
Guest #marcelo#

Guest #marcelo#

Postado
Postado

Olá dark0.

Com meu pouco conhecimento, dei uma alterada o codigo, esta funcionando mais ou menos. Ele envia o e-mail corretamente para o destinatário, mas aquele que escreveu não recebe. E o usuario que escreveu deveria receber, acredito que seja um pequeno ajuste para funcioanr, por favor veja no que você pode em ajudar?

Garto desde já. valeu mesmo a sua ajuda.

<center><html>
<head>
<title>Carltom FormMail Beta 1.0 ::...</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body bgcolor="#FFFFFF" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">

  <table width="599" border="0" cellpadding="0" cellspacing="0">
    <!--DWLayoutTable-->
    <tr> 
      <td width="599" height="57" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">
          <!--DWLayoutTable-->
          <tr> 
            <td width="253" height="57" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#F1F8F8">
                <!--DWLayoutTable-->
                <tr> 
                  <td width="253" height="57" valign="top"><img src="formail.gif" width="253" height="57"></td>
                </tr>
              </table></td>
            <td width="346"><div align="center"><font size="1" face="Verdana">CarlTom 
                Form Mail 1.0<br>
                Desenvolvido por Wellington Costa de Almeida<br>
                wellington@mediashock.com.br </font></div></td>
          </tr>
        </table></td>
    </tr>
    <tr> 
      <td height="378" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#F1F8F8">
          <!--DWLayoutTable-->
          <tr> 
            <td width="599" height="378"><div align="center"><%
  	enviar = Request.Form("enviar")
  	if enviar = "" Then
  	%><form action="default.asp" method="post">
  <table width="454" border="0" cellpadding="0" cellspacing="0">
    <!--DWLayoutTable-->
    <tr> 
      <td width="129" height="22" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">
          <!--DWLayoutTable-->
          <tr> 
            <td width="111" height="22"><font size="2" face="Verdana">Nome:</font></td>
          </tr>
        </table></td>
      <td width="325"><input name="nome" type="text" id="nome" size="30"> mais novo</td>
    </tr>
    <tr> 
      <td height="22" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">
          <!--DWLayoutTable-->
          <tr> 
            <td width="111" height="22"><font size="2" face="Verdana">E-Mail:</font></td>
          </tr>
        </table></td>
      <td><input name="email" type="text" id="email" size="30"></td>
    </tr>
    <tr> 
      <td height="22" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">
          <!--DWLayoutTable-->
          <tr> 
            <td width="111" height="22"><font size="2" face="Verdana">Telefone:</font></td>
          </tr>
        </table></td>
      <td><input name="telefone" type="text" id="telefone" size="30"></td>
    </tr>
    <tr> 
      <td height="24" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">
          <!--DWLayoutTable-->
          <tr> 
            <td width="111" height="22"><font size="2" face="Verdana">Tipo de 
              Contato:</font></td>
          </tr>
        </table></td>
      <td><select name="tipo" id="tipo">
          <option value="elogio" selected>Elogios</option>
          <option value="Critica">Critica</option>
          <option value="Sugest&atilde;o">Sugest&atilde;o</option>
          <option value="Publicidade">Publicidade</option>
          <option value="Parcerias">Parcerias</option>
        </select></td>
    </tr>
    <tr> 
      <td height="24" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">
          <!--DWLayoutTable-->
          <tr> 
            <td width="129" height="22"><font size="2" face="Verdana">Contato 
              por Tel:</font></td>
          </tr>
        </table></td>
      <td><select name="ctel" id="ctel">
          <option value="Sim" selected>Sim</option>
          <option value="N&atilde;o">N&atilde;o</option>
        </select></td>
    </tr>
    <tr> 
      <td height="138"><font size="2" face="Verdana">Mensagem:</font></td>
      <td><textarea name="msg" cols="30" rows="8" id="msg"></textarea></td>
    </tr>
    <tr>
      <td height="19" colspan="2" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">
          <!--DWLayoutTable-->
          <tr> 
            <td width="454" height="1"><div align="center">
                <input name="enviar" type="submit" id="enviar" value="Enviar">
              </div></td>
          </tr>
        </table></td>
      </tr>
  </table>
</form>
<% else %>
<!--#include file="config.asp"-->
<%
snome = Request.Form("nome")
smail = Request.Form("email")
telefone = Request.Form("telefone")
tipo = Request.Form("tipo")
ctel = Request.Form("ctel")
msg = Request.Form("msg")
Set Mailer = Server.CreateObject("SMTPsvg.Mailer") 
	Mailer.FromName = snome
	Mailer.FromAddress= smail
	Mailer.RemoteHost = "mail.caad.com.br"
	Mailer.Recipient= "sfagionato@caad.com.br"
	Mailer.Subject = "Contato de " & snome & " :: Cartomail 1.0 Beta." 
	Mailer.BodyText = "Olá " & ynome & ":" & VBCrLf & VBCrLf & "Você acabou de receber uma mensagem de " & snome & VBCrLf & VBCrLf & "Genero: " & tipo & VBCrLf & VBCrLf& "Memsagem:" & VBCrLf & msg & VBCrLf & VBCrLf & "Contatos por telefone: " & ctel & VBCrLf & "Telefone: " & telefone & VBCrLf & "nome: " & snome & VBCrLf & "email: " & smail & VBCrLf & VBCrLf &"Cartom Form Mail 1.0 Beta By Wellington Costa de Almeida ( www.mediashock.com.br )"
    Mailer.SendMail
Set Reply = Server.CreateObject("SMTPsvg.Mailer") 
	Reply.FromName = nome
	Reply.FromAddress= email
	Reply.RemoteHost = smtp
	Reply.Recipient= smail
	Reply.Subject = "Obrigado por contactar" & snome
	Reply.BOdyText = "Olá " & snome & " seu email foi enviado com sucesso para o site " & nome & ". Em bréve estaremos entrando em contato" & VBCrLf & VBCrLf & VBCrLf & "PowereBy Cartomail 1.0 Beta ( www.mediashock.com.br )"
	Reply.SendMail
%>
                <strong><font size="3" face="Verdana">Obrigado <font color="#FF0000">
                <% =snome%>
                </font><br>
                Seu email foi enviado com sucesso.</font></strong> 
                <% end if %></div></td>
          </tr>
        </table></td>
    </tr>
  </table>
  <font color="#006699" size="1" face="Verdana">Carlton Form Mail 1.0<br>
  Powere By Wellington Costa de Almeida - <a href="http://www.mediashock.com.br/">http://www.mediashock.com.br 
  </a></font> 
  </body>
</html></center>

Link para o comentário
Compartilhar em outros sites
  • 0
dark0

dark0

Postado
Postado

Bem.. olhando seu codigo.. nota-se:

o trecho abaixo, envia um e-mail. Este e-mail é enviado para os valores digitados no Formulario. Certo!

snome = Request.Form("nome")
smail = Request.Form("email")
telefone = Request.Form("telefone")
tipo = Request.Form("tipo")
ctel = Request.Form("ctel")
msg = Request.Form("msg")
Set Mailer = Server.CreateObject("SMTPsvg.Mailer") 
Mailer.FromName = snome
Mailer.FromAddress= smail
Mailer.RemoteHost = "mail.caad.com.br"
Mailer.Recipient= "sfagionato@caad.com.br"
Mailer.Subject = "Contato de " & snome & " :: Cartomail 1.0 Beta." 
Mailer.BodyText = "Olá " & ynome & ":" & VBCrLf & VBCrLf & "Você acabou de receber uma mensagem de " & snome & VBCrLf & VBCrLf & "Genero: " & tipo & VBCrLf & VBCrLf& "Memsagem:" & VBCrLf & msg & VBCrLf & VBCrLf & "Contatos por telefone: " & ctel & VBCrLf & "Telefone: " & telefone & VBCrLf & "nome: " & snome & VBCrLf & "email: " & smail & VBCrLf & VBCrLf &"Cartom Form Mail 1.0 Beta By Wellington Costa de Almeida ( www.mediashock.com.br )"
   Mailer.SendMail
o trecho abaixo, envia outro e-mail. Porém, de onde você está pegando essas variaveis? (nome, email,smtp, smail) O Erro pode estar nisso.. e olhando a linha -> Reply.Recipient= smail .. esta igual nos dois envios.. ou seja.. os 2 e-mails vao para o mesmo lugar? 
Set Reply = Server.CreateObject("SMTPsvg.Mailer") 
Reply.FromName = nome
Reply.FromAddress= email
Reply.RemoteHost = smtp
Reply.Recipient= smail
Reply.Subject = "Obrigado por contactar" & snome
Reply.BOdyText = "Olá " & snome & " seu email foi enviado com sucesso para o site " & nome & ". Em bréve estaremos entrando em contato" & VBCrLf & VBCrLf & VBCrLf & "PowereBy Cartomail 1.0 Beta ( www.mediashock.com.br )"
Reply.SendMail

preste atenção nas coisas que eu falei ali em cima.. pode ser algum erro bobo ai.. pois o codigo está certo. O que pode estar errado são as variaveis que você usa no envio do 2º e-mail!

Abraços

Link para o comentário
Compartilhar em outros sites
  • 0
Guest #marcelo#

Guest #marcelo#

Postado
Postado

há, o eu de novo.

Bom, vou arriscar um palpite.

Eu estou achando estranho, quando eu dou o comando 

Set Reply = Server.CreateObject("SMTPsvg.Mailer") 
	Reply.FromName = nome
	Reply.FromAddress= email
	Reply.RemoteHost = smtp
	Reply.Recipient= smail
	Reply.Subject = "Obrigado por contactar" & snome
	Reply.BodyText = "Olá " & snome & " seu email foi enviado com sucesso para o site " & nome & ". Em bréve estaremos entrando em contato" & VBCrLf & VBCrLf & VBCrLf & "PowereBy Cartomail 1.0 Beta ( www.mediashock.com.br )"
	Reply.SendMail
Para ele mandar um e-mail para o usuario, eu não deveria alterar o codigo nesta parte: 
Reply.RemoteHost = smtp
Pois pelo que eu estou entendendo, eu coloquei esta variavel e o valor dela é: 
smtp="mail.caad.com.br"
Ai fica estranho, como eu posso, mandar um e-mail, por exemplo marcelo449@hotmail.com se o servidor é caad.com.br e não hotmail. Entedeu? Não deveria ter um comando que ele aceitasse qualquer servidor, yahoo.com.br, hotmail.com.br e outros. Pois neste codigo: 
Set Mailer = Server.CreateObject("SMTPsvg.Mailer") 
	Mailer.FromName = snome
	Mailer.FromAddress= smail
	Mailer.RemoteHost = smtp
	Mailer.Recipient= email
	Mailer.Subject = "Contato de " & snome & " :: Cartomail 1.0 Beta." 
	Mailer.BodyText = "Olá " & ynome & ":" & VBCrLf & VBCrLf & "Você acabou de receber uma mensagem de " & snome & VBCrLf & VBCrLf & "Genero: " & tipo & VBCrLf & VBCrLf& "Memsagem:" & VBCrLf & msg & VBCrLf & VBCrLf & "Contatos por telefone: " & ctel & VBCrLf & "Telefone: " & telefone & VBCrLf & "nome: " & snome & VBCrLf & "email: " & smail & VBCrLf & VBCrLf &"Cartom Form Mail 1.0 Beta By Wellington Costa de Almeida ( www.mediashock.com.br )"
    Mailer.SendMail

Que é o que vem antes, eu posso definir o servidor ( que é "mail.caad.com.br" ), pois vai sempre pro mesmo e-mail xxzxxxz@caad.com.br, mas o de retorno, eu não posso definir, você me entende?

Ou será que tudo que eu falei acima, esta errado. E o ASP não funciona assim.

valeu desde já.

Link para o comentário
Compartilhar em outros sites
  • 0
Guest #marcelo#

Guest #marcelo#

Postado
Postado

Olá.

Acabei de fazer um teste. E acredito que o que eu tenha falado no tópico acima tenha um pouco de verdade(ou tudo).

Pois se eu deixar o codigo igual ao que eu acabei de postar. E se eu for no form, e no lugar do e-mail colocar um e-mail, tipo yyyddd@caad.com.br, ele envia corretamente, ou colocar os e-mails iguais tipo eu coloquei o endereço do destinatario pra xxx@caad.com.br e no form eu coloco o mesmo xxx@caad.com.br. Ai ele recebe os dois....Entendeu?

por isso que eu estou pedindo se você sabe algum comando que seja geral, para qualquer servidor, yahoo, hotmail, click21, etc.....

Acho que consegui ser claro....

valeu.

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.

×
 Share
Ir para lista de Perguntas


  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...