Ir para conteúdo

POWERED BY:

Arquivado

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

Fabiosousa

formuilario em asp simples

Por , em ASP Clássico

Recommended Posts

Fabiosousa    0

Fabiosousa
Postado

boa tarde galera.....

 

fiz um form simples:

 

htm

 

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title>Formulário</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body>

<!-- > Ola pessoal... esse é um formulário simples em asp
1. Copie abaixo os códigos e salve com o nome desejado para o formulário (ex: contato.asp). 
Esse será o primeiro arquivo.
Note que em form action esta escrito "enviaemail.asp" esse será o script que verifica e envia o seu formulario.

-->

<form action="enviarteste.asp" method="POST" class="form">
  <p><br>
    Nome:<br>
    <input type="text" name="nome" size="24">
    <br>
    E-Mail:<br>
    <input type="text" name="email" size="24">
  </p>
  <p><br>
    Mensagem:<br>
    <textarea name="mensagem" rows="6" cols="40"></textarea>
    ;<br>
    <input type="submit" name="Submit" value="Enviar">
    <input type="submit" name="Submit2" value="Limpar">
    <br>
  </p>
</form> 

</body>
</html>


ASP

<%
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.FromName = request("nome")
Mailer.FromAddress = request("email")
Mailer.RemoteHost = "smtp.wcasimirobastos.com.br"
Mailer.AddRecipient "Formulário" , "fabiozik@gmail.com"
Mailer.Subject = "Formulário"

Mailer.BodyText = "Nome........... " & request.form("nome") & vbcrlf
Mailer.BodyText = "E-mail......... " & request.form("email") & vbcrlf
Mailer.BodyText = "Mensagem........ " & request.form("mensagem") & vbcrlf

if Mailer.SendMail then
Response.redirect "http://www.wcasimirobastos.com.br/obrigado.asp"
else
Response.Write mailer.response
end if
%>
e da uma mens de erro assim quando clico no bt ENVIAR:

 

554 5.5.1 Error: no valid recipients

 

gostaria de uma ajuda

 

fabio

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

pelo erro o destinatário (email) não é válido, tente um email para teste que saiba que funcione,

e consulte a documentação do componente...

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

tente alterar o email, para fins de teste, pois geralmente esse erro é destinatário (email) não é válido

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

ja alguns sites colocarem

 

Mailer.AddRecipient "Formulário" , "dominio@dominio.com.br", substitua pelo endereço de e-mail que receberá os dados do formulário

 

você pode até colocar

 

aspMail.AddRecipient "Nome do Destinatário", "destinatario@dominio.com.br"

Compartilhar este post

Link para o post
Compartilhar em outros sites

Gilberto Jr    26

Gilberto Jr
Postado

cara, eu uso um codigo um pouco diferente, as vezes localmente não funciona mesmo mas quando jogo no ftp ele funciona;

 

Segue abaixo o codigo que eu uso pra enviar:

<%
str_nome = trim(request.form("txtnome"))
str_email = trim (request.form("txtemail"))
str_assunto = trim(request.form("txtassunto"))
str_mensagem = trim(request.form("txtmsg"))


str_mensagememail = "Nome: " & str_nome & "<br><br>Mensagem: "& str_mensagem & ""

set mensagem = server.createobject("CDONTS.NewMail")
mensagem.from = str_email
mensagem.to = "email do destinatário"
mensagem.Subject = str_assunto
mensagem.bodyformat = 0
mensagem.mailformat = 0
mensagem.Body = str_mensagememail
mensagem.Send
Set objMail = nothing
response.write "Email enviado com sucesso!"
%>

*Eu uso o próprio email que a pessoa digita no formulário para poder enviar, mas pode colocar um outro email seu*

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