Form Mail Completo - Examplo Funcionando 100%

jissa · Agosto 15, 2003

Form-E-mail em ASP - Completo... e funcionando

Bem são dois arquivos necessarios para o envio do e-mail...

FALE_CONOSCO.ASP - Este Formulario que o usuario preenche

ENVIA.ASP - Funcoes que vao tratar as variaveis e enviar o e-mail para o destino

Na forma que esta o Formulario funciona 100% já testei, as unicas linhas

que necessita de alteração são:

sEmailTo = "EMAIL@DOMINIO.COM.BR" 'E-MAIL QUE O FORMULARIO SERA ENVIADO(cola-se o e-mail que recebera o formulario preenchido

sNameTo = "Nome da Empresa" ´Seu Nome ou da Empresa que esta recebendo o formulario(Apenas um nome para referencia)

Mailer.RemoteHost = "127.0.0.1"

(Seu Host smtp.. dependendo do provedor pode-se utilizar o que esta ai mesmo, sem problemas

A mensagem de agradecimento esta no proprio Formulario ENVIA.ASP, se quiser pode criar

uma outra pagina.. ou redirecionar para onde quiser

Qualquer duvida ou problema, Poste aqui:

Bos Sorte

Segue os Fontes:

FALE_CONOSCO.ASP

****************------------- INICIA AQUI --------------------***************

Por Favor não Remova os creditos, nem do ScriptBrasil, nem os Meus - Obrigado******************************************************************************

<%

Response.addHeader "pragma", "no-cache"

Response.CacheControl = "Private"

Response.Expires = 0

%>

<%

'-------------------------------------------

' Aqui está o código para que apareça uma

' mensagem de erro quando um dos campos

' não for preenchido corretamente

Dim ErroMsg

Dim strMsg

ErroMsg = cstr(Request.QueryString ("erro"))

msg = ""

Select case ErroMsg

case "1"

msg = "Digite um nome para contato !"

case "2"

msg = "Digite um email válido!"

case "3"

msg = "Digite um texto !"

end select

if msg <> "" then

Response.Write "<p align=""center""><font face=""verdana"" color=" & DefaultColor & " size=""1""><b>" & msg & "</b></font></p>"

end if

' Fim do código de erro

'-------------------------------------------

%>

<%

'-------------------------------------------

' Esta área você poderá configurar

' ao seu gosto. Anexe as folhas de estilos

' mas respeitando os nomes dos campos.

'-------------------------------------------

%>

<HTML>

<HEAD>

<title>Form-E-mail - Exemplo para www.scriptbrasil.com.br By jair.issa@linksat.com.br</title>

<body>

</font></font>

</span>

<b><font face="Verdana" size="5">Fale Conosco</a></font></b></span></P>

<font face="Verdana">Faça sua consulta sobre nossos serviços ou dê a sua

opinião sobre qualquer coisa que desejar.<br><b><br>Seus comentários e sugestões ou criticas são muito

importantes<br></b></font>

</p>

<p align="left"><font face="Verdana"><strong>Que tipo de comentários gostaria de enviar?</strong></font></p>

<p align="left"><font face="Verdana"> <input type="radio" name="TipoMensagem" value="Consulta" checked></font><font face="Verdana">Consulta   <input type="radio" name="TipoMensagem" value="Reclamação">Reclamação  

<input type="radio" name="TipoMensagem" value="Sugestão">Sugestão</font></p>

<p align="left"><font face="Verdana"><strong>Sobre que área deseja fazer um comentário?</strong></font></p>

<option>Desenvolvimento</option>

<option>Empresa</option>

<option>Funcionário</option>

<option>Serviços</option>

<option>Suporte</option>

<option selected>(Outro)</option>

</select></font><font face="Verdana"> Outro:

<tr>

<font face="Verdana" size="1">Empresa:</font></td>

</tr>

<tr>

</tr>

<tr>

<font face="Verdana" size="1">Telefone:</font><font face="Verdana">:</font></td>

Fax :</font><font face="Verdana" size="1"><input type="text" name="fax" size="20"></font></td>

</tr>

<tr>

<font face="Verdana" size="1">Contato:                  </font>

</tr>

</table>

 </font><font face="Verdana" size="1">Mensagem<br>

</font><font face="Verdana" size="1">

</BODY>

</HTML>

ENVIAR.ASP

****************------------- INICIA AQUI --------------------***************

Por Favor não Remova os creditos, nem do ScriptBrasil, nem os Meus - Obrigado

******************************************************************************

<%

'Declarando variveis

Dim sNameTo, sNameFrom, sEmailFrom, sText, sEmailTo, sAssunto

Dim contato, tipomensagem, outroservico, name, telefone, fax

'Pegando os dados digitados nos campos e colocando em variaveis

contato = Request.form("contato")

name = Request.form("name")

telefone = Request.form("telefone")

fax = Request.form("telefone")

tipomensagem = Request.form("TipoMensagem")

outroassunto = Request.form("OutroAssunto")

sNameFrom = Request.Form("name")

sEmailFrom = Request.Form("email")

sEmailTo = "EMAIL@DOMINIO.COM.BR" 'E-MAIL QUE O FORMULARIO SERA ENVIADO

sNameTo = "Nome da Empresa" ´Seu Nome ou da Empresa que esta recebendo o formulario

sText = Request.Form("text")

sAssunto = Request.Form("Assunto")

'Cria o objeto

set mailer = server.createobject("SMTPsvg.Mailer")

Mailer.FromName = sNameFrom

Mailer.FromAddress = sEmailFrom

'Host para envio de emails

Mailer.RemoteHost = "127.0.0.1" Mailer.AddRecipient sEmailTo, sNameTo

Mailer.Subject = "Fale Conosco" & " / " & SEmailFrom & " / " & name

Mailer.AddBCC "Nome 2", "EMAIL@DOMINIO.COM.BR" 'e-MAIL QUE O fORMULARIO SERA ENVIADO

'Monta a texto para o envio

strMsgHeader = "Data/Horario do Envio :" & date() & " / " & time() & vbCrLf & "DADOS ENVIADOS: " & vbCrLf & "Seu e-mail : (" & sEmailFrom & ") " & vbCrLf & "Empresa : " & name & vbCrLf & "Contato : " & contato & vbCrLf & "Tipo : " & tipomensagem& "/" & "Assunto :" & sAssunto & "/" & outroassunto & vbCrLf & "Telefone :" & telefone & " / " & "Fax: " & fax & vbCrLf & vbCrLf

strMsgFooter = vbCrLf & "Mensagem: " & vbCrLf &sText

Mailer.BodyText = strMsgHeader & strMsgFooter

' Se for enviado redirecionar para obrigado.asp

if Mailer.SendMail then

' Response.Redirect "obrigado.asp"

response.write ("<center>")

response.write ("<table border='0' width='439'>")

response.write ("<tr>")

response.write ("<h2>")

response.write ("<font color='#00B0FF'><b>Obrigado por utilizar nosssos Serviços!!</b></font>")

response.write ("</h2>")

response.write ("<h3>")

response.write ("<p>Sua Mensagem foi enviada com sucesso. <p></font>")

response.write ("</h3>")

response.write ("</center>")

'Monta a texto para o envio

response.write ("<br><h4><b><i>DADOS ENVIADOS: </i>")

response.write ("<br>Data/Horario do Envio :" & date() & " / " & time())

response.write ("<br>Seu e-mail : " & sEmailFrom)

response.write ("<br>Empresa : " & name)

response.write ("<br>Contato : " & contato)

response.write ("<br>Tipo : " & tipomensagem& "/" & "Assunto :" & sAssunto & "/" & outroassunto)

response.write ("<br>Telefone :" & telefone & " / " & "Fax: " & fax)

response.write ("<br>Mensagem Enviada : " &sText)

response.write ("<p><p><h3>")

response.write ("<p>Em breve entraremos em contato.</font>")

response.write ("</h3>")

else

' Se não for enviado mostra o erro que ocoreu

Response.Write ("Ocorreu um erro.<BR>")

Response.Write ("O Erro é " & Mailer.Response)

end if

%>

Dark_Eyes · Agosto 16, 2003

Um pouquinho complicado, mais valeu jissa, pode ajudra muito!

jissa · Agosto 16, 2003

Po Dark.. quis fazer um completo.. para ter todas as opcoes e não coloquei nenguma validacao que achei que ficaria grande demais..

Mas tai.. se tiver qualquer duvida Posta ai.

resopi · Agosto 16, 2003

Hhehehe Funcionou como uma manteiga!!!

jissa · Agosto 17, 2003

Ta funcionando legal.. tava pensando em simplificar.. mas assim ta bom.. tem todas as opcoes que necessita.. caixa, radio texto e campos... faltou só uns combo e validacoes.... mas fica facil implementar

Agosto 19, 2003

Oopa...valeu mano..era isso que eu tava precisando...qualquer coisa ou dúvida eu posto aki..!

Valeu!

Agosto 19, 2003

Jissa, eu tenho uma pequena duvida....caso eu qeira acrescentar mais um campo no formulário, o que devo fazer ?

O campo seria "endereço"!!!

Micheletti · Agosto 19, 2003

falow!!! muito bom.

Micheletti · Agosto 19, 2003

fuciona legal. +...

Jair! eu não tenho hosp. que suporta asp.

porem sei que alguns sites tais como script brasil, wmonline e outros oferecem formularios prontos. posso usar seu form. <_< htm com o asp deles?

jissa · Agosto 19, 2003

Claro.. o script esta em duas partes.. a primeira do form é independente (existe algumas instrucoes em ASP no inico que podem ser retiradas. que são apenas controle de cahe coisas assim.. a segunda voce envia para qualquer componente.. tipo CDONS ou ASPMail.. ou outro qualquer.. desde que suporte o envio de e-mail.. se quiser pode enviar para algum componente PHP ou Perl.. ou qualquer outro CGI

Agosto 19, 2003

Jair, é o seguinte...eu queria saber o que posso colocar no campo : Mailer.RemoteHost = "" fora aquele que você deu no exemplo acima, pois esse aki deu erro nos meus testes.

Se você puder me ajudar ae !!

jissa · Agosto 19, 2003

o Mailer.RemoteHost tem que ser preenchido com o smtp do seu provedor..

é que alguns funcionam com o localhost (127.0...)

Mas se funcionar ai.. pode deixar em branco o que importa é que funcione

SamRo · Agosto 19, 2003

Caro Jissa, eu testei esse script que você postou aki e deu o seguinte erro!

" Server object error 'ASP 0177 : 800401f3'

Server.CreateObject Failed

/enviar.asp, line 32

System message, messageid = 0x800401f3 "

será que o meu provedor não suporta essa linguagem ?

jissa · Agosto 19, 2003

Ele suporta CDONS?? da uma verificada.. ele esta funcionando sim.. testei antes de postar aqui

Rock · Agosto 25, 2003

E ai Jissa beleza.

Tem alguma forma de eu colocar no formulário a ser enviado para dez pessoas, como eu faço isso?, posso colocar virgula ou ponto e virgula??

jissa · Agosto 25, 2003

Sim a separação dos e-mails é com ponto e virgula

Entrar

Form Mail Completo - Examplo Funcionando 100%

Pergunta

Link para o comentário

Compartilhar em outros sites

15 respostass a esta questão

Posts Recomendados

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Guest Rodrigo

Link para o comentário

Compartilhar em outros sites

Guest Rodrigo

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Guest Rodrigo

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns