Jump to content
Fórum Script Brasil
  • 0

Formulario Por Email


Guest - Daniel -

Question

Guest - Daniel -

Ola gostaria de saber como enviar informações usando um formulario simples com nome , email etc... Por email sem abrir o geenciador de email do usuario .

Link to comment
Share on other sites

2 answers to this question

Recommended Posts

  • 0

em asp ou php você faz tranquilamente! eu posso te adr um exmplo em php! e provalvelmete alguém sabe ensinar em asp! mas em js eu não sei se é possivel acho q não! ,mas posso me enganar! smile.gif

Link to comment
Share on other sites

  • 0

Bom... eu criei aqui um asp que envia e-mail apartir da página... tirei os meus dados e coloquei uns ##### pra chamar a sua atenção... ali você modifica conforme os pedidos de pop, e e-mail....

Não se assuste com o tamanho...

<%@language=VBScript %>

<%

if request.form("destino")="" then

%>

<HTML><HEAD>

<style type=text/css>body{scrollbar-face-color: white; scrollbar-shadow-color: grey; scrollbar-highlight-color: white; scrollbar-3dlight-color: grey; scrollbar-darkshadow-color: white;scrollbar-track-color: #f7f7f7; scrollbar-arrow-color: #c0c0c0;}</style>

<TITLE>Formulário</TITLE><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

</HEAD>

<BODY bgcolor="#FFFFFF"  background="pictures/icons/logotranp.jpg">

<div align="center">

  <%

    response.write "Este e_mail será enviado para: " & request.querystring("destino1")

  %>

  <br>

  <hr>

</div>

<table width=270 border=0 align="center" bgcolor="#FFFFFF" >

  <tr><td width="264" align=center bordercolor="#FFFFFF" bgcolor="#FFFFFF">

<FORM METHOD='POST' ACTION='contato.asp'>

<input type=hidden name='obr' value='E-mail,Nome'><input type=hidden name='ordem' value='E-mail,Nome,Fone Comercial,Fone Residencial,Fax,Mensagem,Contato Fone,Contato E-mail,Enviarprom'>

        <font size="2" face="Verdana, Arial, Helvetica, sans-serif">

        <INPUT type=hidden name='assunto' value='Formulário Home Page'>

        <INPUT type=hidden name='destino' value='##################seu-email################'>

        <INPUT type=hidden name='destino1' value='<%=request.querystring("destino1")%>'>

        <INPUT type=hidden name='pagina' value='##################http://sua-página################'>

        </font>

        <TABLE border=0 bgcolor=#FFFFFF width="260" height="299">

          <!--<%

          response.write "Este e_mail será enviado para:" & request.form("destino1")

          %>

          <hr>

          --><TR bgcolor="#FFFFFF">

            <TD width="125" height="25" align="right"><div align="left"><font face="Verdana, Arial, Helvetica, sans-serif" size="2">

  <font color="#000000">Nome:</font> <font size="1">Obrigat&oacute;rio</font>

  <input type=text name='email' value='' size="25"></font></div></TD>

            <TD width="125" height="25" align="right"><div align="left"><font face="Verdana, Arial, Helvetica, sans-serif" size="2">

  <font color="#000000">E-mail:</font> <font size="1">Obrigat&oacute;rio</font>

            <input type=text name='nome' value='' size="25"></font></div></TD>

          </TR>

          <TR bgcolor="#FFFFFF">          </TR>

          <TR bgcolor="#FFFFFF">

            <TD width="125" height="25" align="right"><div align="left"><font color="#000000" face="Verdana, Arial, Helvetica, sans-serif" size="2">Fone

                Comercial:<br>

              </font><font face="Verdana, Arial, Helvetica, sans-serif" size="2">

                <input type=text name='fonecomercial' value='' size="11">

              </font></div></TD>

            <TD width="125" height="25"><font color="#000000" face="Verdana, Arial, Helvetica, sans-serif" size="2">Fone Residencial:&nbsp;<br>

            </font> <font face="Verdana, Arial, Helvetica, sans-serif" size="2">

              <input type=text name='foneresidencial' value='' size="11">

            </font></TD>

          </TR>

          <TR bgcolor="#FFFFFF">

            <TD width="125" height="25" align="right"><div align="left"><font color="#000000" face="Verdana, Arial, Helvetica, sans-serif" size="2">FAX:</font><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><br>

              <input type=text name='fax' value='' size="11">

            </font></div></TD>

            <TD width="125" height="25"><font face="Verdana, Arial, Helvetica, sans-serif" size="2">&nbsp;

              </font></TD>

          </TR>

          <TR bgcolor="#FFFFFF">

            <TD height="25" colspan="2" align="right"><div align="left"><font color="#000000" face="Verdana, Arial, Helvetica, sans-serif" size="2">Mensagem:</font>    <font face="Verdana, Arial, Helvetica, sans-serif" size="2">

              <textarea rows="8" name="mensagem" cols="43"></textarea>

            </font>            <font face="Verdana, Arial, Helvetica, sans-serif" size="2">

            </font></div></TD>

          </TR>

          <TR align=center bgcolor="#FFFFFF">

          </TR>

          <TR align=center bgcolor="#FFFFFF">

          </TR>

          <TR align=center bgcolor="#FFFFFF">

            <TD height="19" colspan=2><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><br>

              <INPUT type=submit value='Enviar'>

              &nbsp;&nbsp;&nbsp;

              <INPUT type=reset value='Limpar'>

              </font> </TD>

          </TR>

        </TABLE>

</FORM>

</table>

</BODY>

<%

else

texto22="fone comercial:" &request.form("fonecomercial") & vbcrlf

texto22=texto22&"fone residencial:" &request.form("foneresidencial") & vbcrlf

texto22=texto22&"fax:"  &request.form("fax") & vbcrlf

texto22=texto22&"mensagem : "  &request.form("mensagem") & vbcrlf

texto22=texto22&"Contato Fone : "  &request.form("Contato Fone") & vbcrlf

texto22=texto22&"Contato E-mail : "  &request.form("Contato E-mail") & vbcrlf

texto22=texto22&"enviarprom : "  &request.form("enviarprom") & vbcrlf

texto22=texto22&"Nome : "  &request.form("nome") & vbcrlf

        Set Mail = CreateObject("Persits.MailSender")

        Mail.Host = "##################seu-pop################"

        Mail.From = "##################seu-email################"

        if request.form("destino1")<>"" then

'            Mail.AddAddress request.form("destino")

            Mail.AddAddress request.form("destino1")

        else

            Mail.AddAddress request.form("destino")

        end if

        Mail.Subject = "Página"

        Mail.Body = texto22

        Mail.Send

        Set Mail = Nothing

        response.write "<center><br><br><br><br><center>E_mail enviado com sucesso para<br><br>"  &";"& request.form("destino1") & "</center>"

end if

%>

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.



  • Forum Statistics

    • Total Topics
      152.2k
    • Total Posts
      652k
×
×
  • Create New...