Como Criar Um Formail...
#1
Posted 05/12/2003, 02:36
NÃO é esses que tem que especificar os campos...
É daqueles que vc faz o formulário com os campos que quiser e coloca o dendreço do formail, do e-mail receptor e da pg de confirmação.
tem como fazer em asp?
eu só vi em cgi e php daqueles..
---------------------------------------------------------------------------
> BRdesign.NET - Soluções em Websites e Sistemas E-Commerce.
---------------------------------------------------------------------------
> BR-ecommerce - Sua loja virtual na internet! - Apenas R$99,90 mensais (hospedagem inclusa)!
#2
Posted 05/12/2003, 09:36
#3
Posted 06/12/2003, 01:40
---------------------------------------------------------------------------
> BRdesign.NET - Soluções em Websites e Sistemas E-Commerce.
---------------------------------------------------------------------------
> BR-ecommerce - Sua loja virtual na internet! - Apenas R$99,90 mensais (hospedagem inclusa)!
#4 lucianobruch
Posted 06/12/2003, 15:53
form.htm
<form name="form1" action="formmail.asp" method="POST"> <div align="left"><font color="#666666" size="2" face="Verdana, Arial, Helvetica, sans-serif">Nome:</font><br> <input type="text" name="Nome:" size="35" style="font-family:Verdana; font-size:10 px; color:#000000; background:#FFFFFF; border-width:0px; border-style: solid; border-color: #336699; BORDER-BOTTOM: #000000 1px solid; BORDER-RIGHT: #000000 1px solid; BORDER-LEFT: #000000 1px solid; BORDER-TOP: #000000 1px solid;"> <br> <font color="#666666" size="2" face="Verdana, Arial, Helvetica, sans-serif">E-Mail:</font><br> <input type="text" name="E-mail:" size="35" style="font-family:Verdana; font-size:10 px; color:#000000; background:#FFFFFF; border-width:0px; border-style: solid; border-color: #336699; BORDER-BOTTOM: #000000 1px solid; BORDER-RIGHT: #000000 1px solid; BORDER-LEFT: #000000 1px solid; BORDER-TOP: #000000 1px solid;"> <br> <font color="#666666" size="2" face="Verdana, Arial, Helvetica, sans-serif">Mensagem:</font><br> <textarea name="Mensagem:" rows="8" cols="50" style="font-family:Verdana; font-size:10 px; color:#000000; background:#FFFFFF; border-width:0px; border-style: solid; border-color: #336699; BORDER-BOTTOM: #000000 1px solid; BORDER-RIGHT: #000000 1px solid; BORDER-LEFT: #000000 1px solid; BORDER-TOP: #000000 1px solid;"> </textarea> <input type="hidden" name="Subject" value="Contato Website"> <input type="hidden" name="recipient" value="seuemail@seudominio.com"> <input type="hidden" name="redirect" value="obrigado.asp"> <br> <br> <input type="submit" value="Enviar" style="font-family:Verdana; font-size:10 px; color:#000000; background:#FFFFFF; border-width:0px; border-style: solid; border-color: #336699; BORDER-BOTTOM: #000000 1px solid; BORDER-RIGHT: #000000 1px solid;"> <input type="reset" value="Limpar" style="font-family:Verdana; font-size:10 px; color:#000000; background:#FFFFFF; border-width:0px; border-style: solid; border-color: #336699; BORDER-BOTTOM: #000000 1px solid; BORDER-RIGHT: #000000 1px solid;"> </div> </form>
formmail.asp
<% session.LCid = 1046 %> <% if Request.form("subject") = "" then assuntos = " ## FORMMAIL ## " else assuntos = Request.form("subject") end if corpo = "<html><body>" & vbcrlf corpo = corpo & "<div align='center'>" & vbcrlf corpo = corpo & " <center>" & vbcrlf corpo = corpo & "<table width='120' cellspacing cellpadding>" & vbcrlf corpo = corpo & " <tr>" & vbcrlf corpo = corpo & " <td width='1'>" & vbcrlf corpo = corpo & " </td>" & vbcrlf corpo = corpo & " </tr>" & vbcrlf corpo = corpo & " <tr>" & vbcrlf corpo = corpo & " <td width='1'>" & vbcrlf corpo = corpo & " </td>" & vbcrlf corpo = corpo & " </tr>" & vbcrlf corpo = corpo & "</table>" & vbcrlf corpo = corpo & " </center>" & vbcrlf corpo = corpo & "</div>" & vbcrlf corpo = corpo & "<div align='center'>" & vbcrlf corpo = corpo & " <center>" & vbcrlf corpo = corpo & " <table border='1' width='436' cellspacing cellpadding bordercolorlight='#FFFFFF' bordercolordark='#FFFFFF'>" & vbcrlf corpo = corpo & " <tr>" & vbcrlf corpo = corpo & " <td width='432' height='19' bordercolorlight='#EBF0F5' bordercolordark='#EBF0F5'>" & vbcrlf corpo = corpo & " <p align='center'><font color='#678BB8' face='Tahoma' size='2'><b>Formmail - lucianobruch.com</b></font></td>" & vbcrlf corpo = corpo & " </tr>" & vbcrlf corpo = corpo & " <tr>" & vbcrlf corpo = corpo & " <td width='432' height='1'><font face='Arial' size='1'> </font></td>" & vbcrlf corpo = corpo & " </tr>" & vbcrlf corpo = corpo & " <tr>" & vbcrlf corpo = corpo & " <td width='432' height='19' bordercolorlight='#EBF0F5' bordercolordark='#EBF0F5'>" & vbcrlf corpo = corpo & " <div align='center'>" & vbcrlf corpo = corpo & " <center>" & vbcrlf corpo = corpo & " <table width='95%' cellpadding='0' border='1' bordercolorlight='#EBF0F5' bordercolordark='#EBF0F5'>" & vbcrlf For Each Campo In Request.Form if Campo <> "recipient" and Campo <> "redirect" then corpo = corpo & " <tr>" & vbcrlf corpo = corpo & " <td width='29%'><b><font size='2' face='Tahoma'>" & Campo & "</font></b></td>" & vbcrlf corpo = corpo & " <td width='71%'<font size='2' face='Tahoma'>" & Request.Form(Campo) & "</font></td>" & vbcrlf corpo = corpo & " </tr>" & vbcrlf end if next corpo = corpo & " <td width='432'><b><font size='2' face='Tahoma'>Data:</font></b></td>" & vbcrlf corpo = corpo & " <td width='432'><font size='2' face='Tahoma'>" & DateAdd("h", 4, now) & "</font></td>" & vbcrlf corpo = corpo & " <td width='432'><font size='2' face='Tahoma'>IP: " & request.ServerVariables("REMOTE_ADDR") & "</font></td>" & vbcrlf corpo = corpo & " <tr>" & vbcrlf corpo = corpo & " </tr>" & vbcrlf corpo = corpo & " </table>" & vbcrlf corpo = corpo & " </center>" & vbcrlf corpo = corpo & " </div>" & vbcrlf corpo = corpo & " </td>" & vbcrlf corpo = corpo & " </tr>" & vbcrlf corpo = corpo & " <tr>" & vbcrlf corpo = corpo & " <td width='432' height='1'><font face='Arial' size='1'> </font></td>" & vbcrlf corpo = corpo & " </tr>" & vbcrlf corpo = corpo & " <tr>" & vbcrlf corpo = corpo & " <td width='432' height='19'><font face='Arial' size='2'>lucianobruch.com - Serviço de Form-Mail</font></td>" & vbcrlf corpo = corpo & " </tr>" & vbcrlf corpo = corpo & " <tr>" & vbcrlf corpo = corpo & " <td width='432' height='19'><font face='Arial' size='2'><a href='http://www.lucianobruch.com'>www.lucianobruch.com</a></font></td>" & vbcrlf corpo = corpo & " </tr>" & vbcrlf corpo = corpo & " <tr>" & vbcrlf corpo = corpo & " <td width='432' height='19'><font face='Arial' size='2'>Suporte: <a href='mailto:webmaster@lucianobruch.com'>webmaster@lucianobruch.com</a></font></td>" & vbcrlf corpo = corpo & " </tr>" & vbcrlf corpo = corpo & " </table>" & vbcrlf corpo = corpo & " </center>" & vbcrlf corpo = corpo & "</div>" & vbcrlf corpo = corpo & "</body></html>" & vbcrlf set objMail = server.createobject("CDONTS.NewMail") objMail.From = Request.form("recipient") objMail.To = Request.form("recipient") objMail.Subject = assuntos objMail.Body = corpo objMail.BodyFormat = 0 objMail.MailFormat = 0 objMail.Send set objMail = Nothing if Request("redirect") = "" Then navegar = "obrigado.asp" else navegar = Request.form("redirect") End if Response.Redirect navegar %>
Só é necessário os campos:
<input type="hidden" name="Subject" value="Contato Website">
<input type="hidden" name="recipient" value="seuemail@seudominio.com">
<input type="hidden" name="redirect" value="obrigado.asp">
Ou somente o campo:
<input type="hidden" name="recipient" value="seuemail@seudominio.com">
pq no formmail já tem...
Qualquer duvida é so responder.
#5
Posted 06/12/2003, 16:10
---------------------------------------------------------------------------
> BRdesign.NET - Soluções em Websites e Sistemas E-Commerce.
---------------------------------------------------------------------------
> BR-ecommerce - Sua loja virtual na internet! - Apenas R$99,90 mensais (hospedagem inclusa)!
#6
Posted 15/02/2004, 11:27
session.LCid = 1046
%>
<%
if Request.form("subject") = "" then
assuntos = " ## FORMMAIL ## "
else
assuntos = Request.form("subject")
end if
corpo = "<html><body>" & vbcrlf
corpo = corpo & "<div align='center'>" & vbcrlf
corpo = corpo & " <center>" & vbcrlf
corpo = corpo & "<table width='120' cellspacing cellpadding>" & vbcrlf
corpo = corpo & " <tr>" & vbcrlf
corpo = corpo & " <td width='1'>" & vbcrlf
corpo = corpo & " </td>" & vbcrlf
corpo = corpo & " </tr>" & vbcrlf
corpo = corpo & " <tr>" & vbcrlf
corpo = corpo & " <td width='1'>" & vbcrlf
corpo = corpo & " </td>" & vbcrlf
corpo = corpo & " </tr>" & vbcrlf
corpo = corpo & "</table>" & vbcrlf
corpo = corpo & " </center>" & vbcrlf
corpo = corpo & "</div>" & vbcrlf
corpo = corpo & "<div align='center'>" & vbcrlf
corpo = corpo & " <center>" & vbcrlf
corpo = corpo & " <table border='1' width='436' cellspacing cellpadding bordercolorlight='#FFFFFF' bordercolordark='#FFFFFF'>" & vbcrlf
corpo = corpo & " <tr>" & vbcrlf
corpo = corpo & " <td width='432' height='19' bordercolorlight='#EBF0F5' bordercolordark='#EBF0F5'>" & vbcrlf
corpo = corpo & " <p align='center'><font color='#678BB8' face='Tahoma' size='2'><b>Formmail - lucianobruch.com</b></font></td>" & vbcrlf
corpo = corpo & " </tr>" & vbcrlf
corpo = corpo & " <tr>" & vbcrlf
corpo = corpo & " <td width='432' height='1'><font face='Arial' size='1'> </font></td>" & vbcrlf
corpo = corpo & " </tr>" & vbcrlf
corpo = corpo & " <tr>" & vbcrlf
corpo = corpo & " <td width='432' height='19' bordercolorlight='#EBF0F5' bordercolordark='#EBF0F5'>" & vbcrlf
corpo = corpo & " <div align='center'>" & vbcrlf
corpo = corpo & " <center>" & vbcrlf
corpo = corpo & " <table width='95%' cellpadding='0' border='1' bordercolorlight='#EBF0F5' bordercolordark='#EBF0F5'>" & vbcrlf
For Each Campo In Request.Form
if Campo <> "recipient" and Campo <> "redirect" then
corpo = corpo & " <tr>" & vbcrlf
corpo = corpo & " <td width='29%'><b><font size='2' face='Tahoma'>" & Campo & "</font></b></td>" & vbcrlf
corpo = corpo & " <td width='71%'<font size='2' face='Tahoma'>" & Request.Form(Campo) & "</font></td>" & vbcrlf
corpo = corpo & " </tr>" & vbcrlf
end if
next
corpo = corpo & " <td width='432'><b><font size='2' face='Tahoma'>Data:</font></b></td>" & vbcrlf
corpo = corpo & " <td width='432'><font size='2' face='Tahoma'>" & DateAdd("h", 4, now) & "</font></td>" & vbcrlf
corpo = corpo & " <td width='432'><font size='2' face='Tahoma'>IP: " & request.ServerVariables("REMOTE_ADDR") & "</font></td>" & vbcrlf
corpo = corpo & " <tr>" & vbcrlf
corpo = corpo & " </tr>" & vbcrlf
corpo = corpo & " </table>" & vbcrlf
corpo = corpo & " </center>" & vbcrlf
corpo = corpo & " </div>" & vbcrlf
corpo = corpo & " </td>" & vbcrlf
corpo = corpo & " </tr>" & vbcrlf
corpo = corpo & " <tr>" & vbcrlf
corpo = corpo & " <td width='432' height='1'><font face='Arial' size='1'> </font></td>" & vbcrlf
corpo = corpo & " </tr>" & vbcrlf
corpo = corpo & " <tr>" & vbcrlf
corpo = corpo & " <td width='432' height='19'><font face='Arial' size='2'>lucianobruch.com - Serviço de Form-Mail</font></td>" & vbcrlf
corpo = corpo & " </tr>" & vbcrlf
corpo = corpo & " <tr>" & vbcrlf
corpo = corpo & " <td width='432' height='19'><font face='Arial' size='2'><a href='http://www.lucianobruch.com'>www.lucianobruch.com</a></font></td>" & vbcrlf
corpo = corpo & " </tr>" & vbcrlf
corpo = corpo & " <tr>" & vbcrlf
corpo = corpo & " <td width='432' height='19'><font face='Arial' size='2'>Suporte: <a href='mailto:webmaster@lucianobruch.com'>webmaster@lucianobruch.com</a></font></td>" & vbcrlf
corpo = corpo & " </tr>" & vbcrlf
corpo = corpo & " </table>" & vbcrlf
corpo = corpo & " </center>" & vbcrlf
corpo = corpo & "</div>" & vbcrlf
corpo = corpo & "</body></html>" & vbcrlf
set objMail = server.createobject("CDONTS.NewMail")
objMail.From = Request.form("recipient")
objMail.To = Request.form("recipient")
objMail.Subject = assuntos
objMail.Body = corpo
objMail.BodyFormat = 0
objMail.MailFormat = 0
objMail.Send
set objMail = Nothing
if Request("redirect") = "" Then
navegar = "obrigado.asp"
else
navegar = Request.form("redirect")
End if
Response.Redirect navegar
%>[/codebox]
estou tentando desesperadamente fazer um desse igual o seu, mas sou novo em asp ainda e naum intendo muito bem, está dando um erro na linha 89 ou seja
set objMail = server.createobject("CDONTS.NewMail")
o erro é
Tipo de erro:
Objeto Server, ASP 0177 (0x800401F3)
Seqüência de classe inválida
/webdmaisnew/formmail.asp, line 89
como devo proceder?
Edição feita por: Renan L. Queiroz, 09/11/2009, 08:47.
Inclusão da tag [ codebox ] para postagem de scripts
#7
Posted 16/02/2004, 10:37
#8
Posted 05/11/2009, 16:48
Cara deu quase certo deu um erro e eu queria saber quais partes eu devo preencher!
Não sei muita coisa sobre isso por favor não falem em códigos.
Agradeço a sua ajuda!!!
Edição feita por: Renan L. Queiroz, 09/11/2009, 08:50.
Não há necessidade de postagem em CAIXA ALTA!
#9
Posted 11/11/2009, 17:13
Você tem o cdonts instalado?
Pra fazer um script deste é só fazer um formulario em metodo POST e declarar Request.Form o ele vai dar o seguinte resultado:
iput1=valor1&iput2=valor2&iput3=valor3&iput4=valor4
Depois é só dar um split e fim de papo;
1 user(s) are reading this topic
0 membro(s), 1 visitante(s) e 0 membros anônimo(s)