Autor

Jose Cavazoni

membro deste novembro de 2007

Compartilhe e guarde

Enquete

Você já está estudando HTML5 e CSS3?

Ainda não comecei a estudar
Já li um pouco sobre o assunto
Não tenho interesse agora
Estou estudando profundamente

Home Código Fonte ASP Diversos

Enviar dados de um formulário por email

Esse código apresenta um formulário simples de formulário em asp.

<!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="enviaemail.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>
<!-----Segunda parte do formulario, pegue um arquivo em branco e Copie os códigos abaixo
e salve com o nome "enviaemail.asp". Esse será o segundo arquivo.
Para o funcionamento correto do script, altere apenas os campos abaixo:
Na linha Mailer.RemoteHost = "smtp.seudominio.com.br" substitua a parte "seudominio.com.br" pelo nome correspondente ao de seu domínio.
Na linha Mailer.AddRecipient "Formulário" , "seudominio@seudominio.com.br", substitua pelo endereço de e-mail que receberá os dados do formulário.
Na linha Response.redirect "http://www.seudominio.com.br/", preencha com a URL que deve ser apresentada após o envio do formulário.
Exemplo: pegue um arquivo em branco, escreva um texto de agredecimento e salve com o nome obrigado.asp
faça o upload dos arquivos no mesmo diretório (dentro do www).

<%
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.FromName = request("nome")
Mailer.FromAddress = request("email")
Mailer.RemoteHost = "smtp.seudominio.com.br"
Mailer.AddRecipient "Formulário" , "seudominio@seudominio.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.seudominio.com.br/obrigado.asp"
else
Response.Write mailer.response
end if
%>
jose cavazoni

<!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="enviaemail.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>
<!-----Segunda parte do formulario, pegue um arquivo em branco e Copie os códigos abaixo
e salve com o nome "enviaemail.asp". Esse será o segundo arquivo.
Para o funcionamento correto do script, altere apenas os campos abaixo:
Na linha Mailer.RemoteHost = "smtp.seudominio.com.br" substitua a parte "seudominio.com.br" pelo nome correspondente ao de seu domínio.
Na linha Mailer.AddRecipient "Formulário" , "seudominio@seudominio.com.br", substitua pelo endereço de e-mail que receberá os dados do formulário.
Na linha Response.redirect "http://www.seudominio.com.br/", preencha com a URL que deve ser apresentada após o envio do formulário.
Exemplo: pegue um arquivo em branco, escreva um texto de agredecimento e salve com o nome obrigado.asp
faça o upload dos arquivos no mesmo diretório (dentro do www).

<%
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.FromName = request("nome")
Mailer.FromAddress = request("email")
Mailer.RemoteHost = "smtp.seudominio.com.br"
Mailer.AddRecipient "Formulário" , "seudominio@seudominio.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.seudominio.com.br/obrigado.asp"
else
Response.Write mailer.response
end if
%>
jose cavazoni

Este código foi útil para você?

Nota	Comentário
8	denunciar dobelin comentou em 26/2/2009 Erro na hora de enviar O formulário só envia qdo eu coloco um email no campo com o mesmo domínio q eu estou usando ex: smtp.hortolandia.com; no formulário se eu colocar o meu email: marcelo@hortolandia.com ele envia, se coloca joão@yahoo.com.br, não envia e dá erro, o q será?
10	denunciar clik comentou em 23/10/2008 IIS como testo usando IIS
10	denunciar cavazoni comentou em 7/5/2008 formulario ola joliv, primeiramente veja se o servidor que vc contratou suporta linguagem asp... este script nao possui erro eu uso ele em varios sites, veja esse exemplo http://www.grupomundialinformatica.com/contatos.asp
10	denunciar joliv comentou em 5/5/2008 Erro no carregamento da pagina O erro é HTTP Error 405 - The HTTP verb used to access this page is not allowed. Internet Information Services (IIS) Desculpe o Jornal. Abraço
10	denunciar joliv comentou em 5/5/2008 Erro no carregamento de página mas não envia o email, ao Enviar, dá erro. Deve ser falta do script ASP que está em \ . Mas o arquivo enviaemail.asp, está no lugar certo junto com outras pgs. Pensei em pô-lo no sub-dir \aspnet_client, não tentei. Terei que alterar o local de procura
10	denunciar joliv comentou em 5/5/2008 Erro de carregamento de página Olá Cavazoni, Criei os 2 arquivos e mandei pro Host do site www.ilmartes.com.br . Com a página contato.asp, ela não carrega, se renomeio para .htm (já tenho um .html) http://www.ilmartes.com.br/contato.htm ela carrega, - SEGUE
10	denunciar cavazoni comentou em 17/4/2008 possivel erro primeiramente obrigado pelo comentário da uma olhada na linha Mailer.AddRecipient "Formulário" , "seudominio@seudominio.com" se o seu site for .com.br você coloca o com.br nessa linha eu esqueci de colocar .br nesta linha.
10	denunciar ainhumas comentou em 14/4/2008 Não consegui aparece um erro! fiz tudo direitinho do geito da explicação e ainda sim da um erro A página não pode ser exibida Há um problema com a página que você está tentando acessar e ela não pode ser exibida.

Regras:
Os comentários seguem as seguintes regras:

Todos os comentários são enviados por membros cadastrados no site.
A pontuação de comentários de conteúdo do próprio membro não serão computados.
Os comentários serão pré-aprovados, porém a equipe do site revisará o conteúdo de todos os comentários podendo ser invalidados (inclusive a pontuação).
Os comentários precisam ter, obrigatóriamente, coerência sobre o conteúdo que será comentado.
O membro que atingir 5 comentários invalidados não poderá mais comentar dentro do site. Com isso o membro não poderá mais ganhar pontos com comentários.
Há um limite de 10 comentários por dia para cada membro.
Qualquer comentário após ter sido publicado poderá ser retirado através da opção ( denunciar)

Comente

Autenticação:	Apelido: Senha: (ainda não tem cadastro? clique aqui!)

Título:	Máximo de 30 caracteres
Comentário:	Máximo de 255 caracteres
Avaliação: