Desenvolvendo Formulários utilizando Form ASP .: Suporte Grupolg

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".

<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>

Agora que temos uma pagina de formulário podemos definir o Codígo que vai efetuar o envio das mensagens.

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,

<%
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 objCDOSYSMail = Server.CreateObject("CDO.Message")
Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30
objCDOSYSCon.Fields.update
Set objCDOSYSMail.Configuration = objCDOSYSCon
objCDOSYSMail.From = email
objCDOSYSMail.To = "nome@seudominio.com.br"
objCDOSYSMail.Subject = "Assunto do e-mail"
objCDOSYSMail.HtmlBody = b1
objCDOSYSMail.Send
set objCDOSYSMail = nothing
set objCDOSYSCon = 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

Desenvolvendo Formulários utilizando Form ASP

Artigos Relacionados

Comentários