Neste Tutorial mostraremos mais uma forma de enviar mensagen através de uma pagina de contato utilizando FormASP, o processo de envio dos dados digitados na pagina de formulário, será feito automaticamente para o email desginado.
* Lembrando que a conta de email degnada para recebimento deve ser de um domínio cadastrado em nosso servidores.
Caso você ainda não tenha uma pagina de formulário definida, pode usar o código que é mostrado abaixo. Caso contrário não será necessario alterar o designer de sua pagina, somente será alterado a programação da mesma.
Primeiro vamos definir a pagina de formulário, copie o código abaixo em um Bloco de notas e Salve como "contato.htm".
<!-- INICIO DO CÓDIGO -->
<!--Formulário [www.grupolg.com.br]-->
<form action="http://seu_dominio.com.br/envia.asp" method="POST">
<div align="left">
Nome:
<input type="text" size="40" maxlength="40" name="nome">
<br> E-mail:
<input type="text" size="40" maxlength="40" name="email">
<br>
Mensagem: <br>
<textarea name="mensagem" rows="6" cols="40"></textarea>
<br>
<input type="submit" value="Enviar">
</div>
<!-- FIM DO CODIGO -->
Copie o codigo abaixo e salve como "envia.asp", Lembrando que é necessario alterar algumas informações no codigo abaixo, neste caso teremos que alterar, ' e-mail de quem vai receber a mensagem, 'redireciona para pagina que desejar,
<%
Dim nome, email, mensagem
nome = Request.Form("nome")
email = Request.Form("email")
mensagem = Request.Form("mensagem")
%>
<%
b1="<html><body>"
b1=b1 & "<font face = tahoma size=2>"
b1=b1 & "<font color = #003399><b>.:: Seu Dominio ::.</b></font> <br>"
b1=b1 & " ----------------------------------------------------------------------------------- <br>"
b1=b1 & "<font color = #CC0000> Subject </font> <br><br>"
b1=b1 & "<b>Nome:</b> " & nome &" <br><br>"
b1=b1 & "<b>Email:</b> " & email &"<br><br>"
b1=b1 & "<b>Mensagem:</b> " & mensagem &" <br><br>"
b1=b1 & "<b>www.seudominio.com.br</b></font></a>"
b1=b1 & "</font>"
b1=b1 & "</body></html>"
Set Mailer = CreateObject("CDONTS.NewMail")
Mailer.From = email ' e-mail de quem esta enviando a mensagem
Mailer.To = "nome@seudominio.com.br" ' e-mail de quem vai receber a mensagem
Mailer.BodyFormat = 0 ' parametro de formatação
Mailer.MailFormat = 0 ' parametro de formatação
Mailer.Subject = "Formulario de Contato do Site."
Mailer.Body = b1
Mailer.Importance = 2
Mailer.Send
Set Mailer = Nothing
%>
<%
response.redirect "isira_pagina.html" 'redireciona para pagina que desejar
%>
Faça o teste de envio, caso haja duvidas sobre o informado estaremos aguardando seu contato.
Havendo dúvidas por favor entre em contato.
suporte@grupolg.com.br
Grupolg - Soluções Web