Jump to content


Photo

Como Criar Um Formail...


  • Faça o login para participar
8 replies to this topic

#1 Agente Linhares

Agente Linhares

    fuis...abraços!

  • Ex-Admins
  • 3138 posts
  • Sexo:Não informado
  • Localidade:Biritiba Mirim-SP

Posted 05/12/2003, 02:36

Como cria rum daqueles formails que não importam os campos. Tipo aquele que tinha no wmonline, plugmasters e em vários outros sites.
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..
> Busca On-line - A Busca que faltava na Internet! - Cadastre-se!
---------------------------------------------------------------------------
> 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 cybermix

cybermix

    andrewsmedina.com.br

  • Ex-Admins
  • 3586 posts
  • Sexo:Não informado
  • Localidade:Não sou desse planeta não!!!!
  • Interesses:python, fireworks, linux, php, flash...

Posted 05/12/2003, 09:36

da proxima vez utilize a busca do forum ok?

http://forum.wmonlin...871&hl=formmail
www.andrewsmedina.com.br

#3 Agente Linhares

Agente Linhares

    fuis...abraços!

  • Ex-Admins
  • 3138 posts
  • Sexo:Não informado
  • Localidade:Biritiba Mirim-SP

Posted 06/12/2003, 01:40

foi mal e obrigado por me ajudar...
> Busca On-line - A Busca que faltava na Internet! - Cadastre-se!
---------------------------------------------------------------------------
> 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

lucianobruch
  • Visitantes

Posted 06/12/2003, 15:53

Olá, esse é o que eu uso:

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'>&nbsp;</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'>&nbsp;</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 Agente Linhares

Agente Linhares

    fuis...abraços!

  • Ex-Admins
  • 3138 posts
  • Sexo:Não informado
  • Localidade:Biritiba Mirim-SP

Posted 06/12/2003, 16:10

valeu!
> Busca On-line - A Busca que faltava na Internet! - Cadastre-se!
---------------------------------------------------------------------------
> 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 _SherlocK_

_SherlocK_

    12 Horas

  • Usuários
  • 120 posts
  • Sexo:Não informado
  • Localidade:Londrina/PR
  • Interesses:Meu fórum www.webdmais.com.br/forum&lt;br&gt;Meu site www.webdmais.com.br

Posted 15/02/2004, 11:27

[codebox]<%
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'>&nbsp;</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'>&nbsp;</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

WebDmais Informática => Clique Aqui
WebDmais Fórum => Clique Aqui * Aberto para Parcerias *

#7 _SherlocK_

_SherlocK_

    12 Horas

  • Usuários
  • 120 posts
  • Sexo:Não informado
  • Localidade:Londrina/PR
  • Interesses:Meu fórum www.webdmais.com.br/forum&lt;br&gt;Meu site www.webdmais.com.br

Posted 16/02/2004, 10:37

gente me ajuda aí, estou precisando urgente de um formmail
WebDmais Informática => Clique Aqui
WebDmais Fórum => Clique Aqui * Aberto para Parcerias *

#8 lucas14

lucas14

    Novato no fórum

  • Usuários
  • 1 posts
  • Sexo:Não informado

Posted 05/11/2009, 16:48

PARA lucianobrunch

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 Humberto - S.O.S.

Humberto - S.O.S.

    ...

  • Banidos
  • PipPipPipPipPip
  • 463 posts
  • Sexo:Masculino
  • Localidade:São Bernardo do Campo - SP

Posted 11/11/2009, 17:13

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

IPB Skin By Virteq