Enviando Email De Formulario

PRISCILA STOCHINI · Julho 24, 2006

Criei um formulario e preciso que os dados dele sejam enviados para um email....já coloquei o email dessa forma no action "mailto:xxxxxxxx@xxxx.xxx.xx"...mas dá uma mensagem quero enviar direto...preciso que o email vá com assunto e não mostre essa mensagem...

fantasma · Julho 24, 2006

coloque o codigo.....para dar um olhada....

PRISCILA STOCHINI · Julho 24, 2006

<tr>

<td width="178" bgcolor="#CCCCCC" class="rotulo_formulario"><div align="right"><strong>Empresa</strong></div></td>

</tr>

PRISCILA STOCHINI · Julho 24, 2006

Alguém pode me auxiliar????????

fantasma · Julho 24, 2006

cade o cod do envio

Julho 25, 2006

Preciso apenas enviar o formulario preenchido para um email... eu penso que devo colocar no action do formulário o email certo??? eu fiz isso só que na hora que mando enviar aparecer uma mensagem perguntando ao usuario quer enviar porque o email deve irá aparecer sem criptografia...

Vou colocar o codigo da pagina inteira...

</head>

<%

Vempresa = Request.Form("empresa")

Vdepartamento = Request.Form("depart")

Vcontato = Request.Form("contato")

Vcargo = Request.Form("cargo")

Vendereco = Request.Form("end")

Vnum = Request.Form("num")

Vcompl = Request.Form("compl")

Vcep = Request.Form("cep")

Vestado = Request.Form("estado")

Vcidade = Request.Form("cidade")

Vddd = Request.Form("ddd")

Vtel = Request.Form("tel")

Vfax = Request.Form("fax")

Vcel = Request.Form("cel")

Vemail = Request.Form("email")

Vhomepage = Request.Form("homepage")

Vcurriculo = Request.Form("tipo")

%>

<tr>

<td colspan="4" bgcolor="#778899"><h2 align="center" class="Estilo1">Formulário para Galerias de Projetos </h2></td>

</tr>

(...)

function voltar(){

history.back(-1)

}

</script>

</p>

</blockquote>

</form>

Belmonte SC · Julho 25, 2006

Olá Priscila, acho melhor você fazer o formulário e postar chamando outro arquivo para envio...

abaixo coloquei um exemplo do arquivo... n sei se era isso que você queria...abraço...

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

<%

'recupera os valores

empresa = Request.Form("empresa")

atividade = Request.Form("atividade")

contato = Request.Form("contato")

mail = Request.Form("mail")

endereco = Request.Form("endereco")

cidade = Request.Form("cidade")

uf = Request.Form("uf")

cep = Request.Form("cep")

mensagem = Request.Form("mensagem")

'Monta Mensagem

HTML = "<!DOCTYPE HTML PUBLIC ""-//IETF//DTD HTML//EN"">"

HTML = HTML & "<html>"

HTML = HTML & "<head>"

HTML = HTML & "<meta http-equiv=""Content-Type"""

HTML = HTML & "content=""text/html; charset=iso-8859-1"">"

HTML = HTML & "<title>Contatos </title>"

HTML = HTML & "</head>"

HTML = HTML & "<body bgcolor=""#FFFFFF"">"

HTML = HTML & "<font size=""1"" face=""verdana"">"

HTML = HTML & "<B>CONTATOS XXXXXX</B><BR><HR><BR>"

HTML = HTML & "<B>EMPRESA : </B>" & empresa & "<BR>"

HTML = HTML & "<B>ATIVIDADE : </B>" & atividade & "<BR>"

HTML = HTML & "<B>CONTATO : </B>" & contato & "<BR>"

HTML = HTML & "<B>E-MAIL : </B>" & mail & "<BR>"

HTML = HTML & "<B>ENDEREÇO : </B>" & endereco & "<BR>"

HTML = HTML & "<B>CIDADE : </B>" & cidade & "<BR>"

HTML = HTML & "<B>UF : </B>" & uf & "<BR>"

HTML = HTML & "<B>CEP : </B>" & cep & "<BR>"

HTML = HTML & "<B>MENSAGEM : </B>" & mensagem & "<BR>"

HTML = HTML & "</body>"

HTML = HTML & "</html>"

Set EnviarMail = Server.CreateObject("CDONTS.NewMail")

EnviarMail.To = "xxxx@xxx.com.br"

EnviarMail.From = empresa 'variavel

EnviarMail.Subject = "CONTATOS xxxxx"

EnviarMail.BodyFormat = 0

EnviarMail.MailFormat = 0

EnviarMail.Body = HTML

EnviarMail.Send

Set EnviarMail = Nothing

URL = "sucesso.html" 'direciona para uma página de ok

response.redirect(URL)

%>

Julho 26, 2006

Vlw pela ajuda...

Julho 27, 2006

Eu fiz exatamente a "dica" acima apenas mudando os itens precisos (email/variavel e tals), mas ainda não está enviando o email...qual será o problema??? esse é o unico problema...e não é por não passar pela página que envia...porque depois dela ainda tem uma de sucesso de envio que vai...

Marcos-rj · Julho 27, 2006

Na dica acim ele usou o CDONTS, o seu servidor aceita?

E no seu código a mensagem é porque você colocou no action um endereço de e-mail, e quando se coloca um e-mail ele envia pelo outlook, por isso ele exibe a mensagem.

Segue um exemplo de envio de formulario por e-mail usando o CDO

        
        <head>
        </head>
<%
Function FormataData()
dd = Day(now)
mm = Month(now)
aa = Year(now)

if len(dd) = 1 then dd = "0" & dd
if len(mm) = 1 then mm = "0" & mm

FormataData = CStr(dd & "/" & mm & "/" & aa)
End Function
'------------------------------------------------------
if request.form("enviado") = "sim" then

nome = request.form("nome")
email = request.form("email")
telefone = "("&request.form("ddd")&")"&" "&request.form("telpre")&"-"&request.form("telsuf")
assunto = request.form("assunto")
mensagem = request.form("mensagem")
data = FormataData
ip = request.servervariableS("REMOTE_ADDR")

'Cria o objeto para o envio de e-mail 
Set objCDOSYSMail = Server.CreateObject("CDO.Message") 

'Cria o objeto para configuração do SMTP 
Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration") 

'SMTP 
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.pscifrao.com.br" 

'Porta do SMTP 
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport")= 25 

'Porta do CDO 
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 

'Timeout 
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30 

objCDOSYSCon.Fields.update 

'Atualiza a configuração do CDOSYS para o envio do e-mail 
Set objCDOSYSMail.Configuration = objCDOSYSCon 

'E-mail do remetente. Você pode indicar no formato: 
' Nome <e-mail@dominio> ou somente o e-mail 
objCDOSYSMail.From = email 

'E-mail do destinatário. Você pode indicar no formato: 
' Nome <e-mail@dominio> ou somente o e-mail 
objCDOSYSMail.To = "PSCIFRAO<suporte@pscifrao.com.br>" 

'Assunto da mensagem 
objCDOSYSMail.Subject = request.form("assunto")&" - "&"SITE PSCIFRÃO" 

'Conteúdo da mensagem 
'objCDOSYSMail.TextBody = request.form("mensagem") 

'para envio da mensagem no formato html altere o TextBody para HtmlBody 
objCDOSYSMail.HtmlBody = "<html><head><title>FORMULÁRIO DE CONTATO PSCIFRAO</title></head><body topmargin=0 leftmargin=0 rightmargin=0 bottommargin=0><table border=0 width=606><tr><td width=600><img border=0 src=http://www.pscifrao.com.br/img/topo_mensagem.gif width=600 height=118></td></tr><tr><td width=600><table border=0 width=100% ><tr><td colspan=2 height=32><p align=center><b><font face=Verdana style=font-size: 13pt>FORMULÁRIO DE CONTATO PSCIFRAO.COM.BR</font></b></td></tr><tr><td width=99% colspan=2><table border=0 width=594 cellspacing=0 cellpadding=0><tr><td width=296><font face=Verdana size=2><b>DATA:</b> <i>"&data&"</i></font></td><td width=296><font face=Verdana size=2><b>IP:</b> <i>"&ip&"</i></font></td></tr></table></td></tr><tr><td width=20% ><b><font face=Verdana size=2>NOME: </font></b></td><td width=79% ><font face=Verdana size=2><i> "&nome&"</i></font></td></tr><tr><td width=20% ><b><font face=Verdana size=2>E-MAIL: </font></b></td><td width=79% ><i><font face=Verdana size=2> "&email&"</font></i></td></tr><tr><td width=20% ><b><font face=Verdana size=2>TELEFONE: </font></b></td><td width=79% ><i><font face=Verdana size=2> "&telefone&"</font></i></td></tr><tr><td width=20% ><b><font face=Verdana size=2>ASSUNTO: </font></b></td><td width=79% ><i><font face=Verdana size=2> "&assunto&"</font></i></td></tr><tr><td width=20% ><b><font face=Verdana size=2>MENSAGEM: </font></b></td><td width=79% ><i><font face=Verdana size=2> "&mensagem&"</font></i></td></tr><tr><td width=20% > </td><td width=79% > </td></tr></table></td></tr><tr><td width=600> </td></tr></table></body></html>" 

'objCDOSYSMail.fields.update 
'Envia o e-mail 
objCDOSYSMail.Send 

'Destrói os objetos 
Set objCDOSYSMail = Nothing 
Set objCDOSYSCon = Nothing 

response.write("<script>location = 'contato.asp';alert('MENSAGEM ENVIADA COM SUCESSO!')</script>")
end if
%>

           <table width="451"><tr><td align="left" valign="top" width="445">
                           <table border="0" cellspacing="4" cellpadding="4" width=571 bgcolor="#FFFFFF"><tr><td>
                            <b><i><font face="Verdana" size="4">Fale Conosco</font></i></b></td></tr>
                             <tr><td bordercolor="#008000"><font style=font-size:11px;color:000000> 
                                <div align=justify><font style=font-size:11px >
                                    <table border=0 cellspacing=0 width="101%" cellpadding=0>
                                    <tr>
                                        <td height=1>
                                        </td>
                                    </tr>
                                    <tr>
                                        <td height=1>
                                        <div align="center">
                                            <table border="0" width="100%" id="table1">
                                                <tr>
                                                    <td>
                                                    <font face="Verdana" style="font-size: 11px; color: 000000">
                                                    <strong>
                                                    <span style="font-size: 9pt">
                                                    Atendimento via formulário:</span></strong></font></td>
                                                </tr>
                                                <tr>
                                                    <td>
                                                    <form method="POST" action="contato.asp" name="formulario">
                                                        <div align="center">
                                                            <table border="0" width="416" id="table2" cellpadding="0" height="252">
                                                                <tr>
                                                                    <td width="117">
                                                                    <b>
                                                                    <font face="Verdana" size="2" color="#535353">
                                                                    NOME:</font></b></td>
                                                                    <td width="293">
                                                                    <input type="text" name="nome" size="33" style="border: 1px solid #000000"></td>
                                                                </tr>
                                                                <tr>
                                                                    <td width="117">
                                                                    <b>
                                                                    <font face="Verdana" size="2" color="#535353">
                                                                    E-MAIL:</font></b></td>
                                                                    <td width="293">
                                                                    <font style="font-size:11px; color:000000" >
                                                                    <input type="text" name="email" size="33" style="border: 1px solid #000000"></font></td>
                                                                </tr>
                                                                <tr>
                                                                    <td width="117">
                                                                    <b>
                                                                    <font face="Verdana" size="2" color="#535353">
                                                                    TELEFONE:</font></b></td>
                                                                    <td width="293">
                                                                    <font style="font-size:11px; color:000000" >
                                                                    <font face="Verdana" style="color: 000000" size="2">
                                                                    (</font><font face="Verdana" style="font-size: 11px; color: 000000"><input type="text" name="ddd" size="1" style="border: 1px solid #000000" maxlength=2 OnKeyPress="valida_numero(this)" onKeyUp="if(value.length==2)document.formulario.telpre.focus();" ></font><font face="Verdana" style="color: 000000" size="2">)
                                                                    </font>
                                                                    <font face="Verdana" style="font-size: 11px; color: 000000">
                                                                    <input type="text" name="telpre" size="3" style="border: 1px solid #000000" maxlength=4 OnKeyPress="valida_numero(this)" onKeyUp="if(value.length==4)document.formulario.telsuf.focus();"></font><font face="Verdana" style="color: 000000" size="2">-</font><font face="Verdana" style="font-size: 11px; color: 000000"><font face="Verdana"><input type="text" name="telsuf" size="3" style="border: 1px solid #000000" maxlength=4 OnKeyPress="valida_numero(this)" onKeyUp="if(value.length==4)document.formulario.assunto.focus();"></font><font face="Verdana" style="color: 000000" size="2"> </font></font>
                                </font>
                                                                    <font face="Verdana" style="font-size: 8pt; color: 000000">
                                                                    (Informe DDD 
                                                                    e telefone)</font></td>
                                                                </tr>
                                                                <tr>
                                                                    <td width="117">
                                                                    <b>
                                                                    <font face="Verdana" size="2" color="#535353">
                                                                    ASSUNTO:</font></b></td>
                                                                    <td width="293">
                                                                    <font style="font-size:11px; color:000000" >
                                                                    <input type="text" name="assunto" size="33" style="border: 1px solid #000000"></font></td>
                                                                </tr>
                                                                <tr>
                                                                    <td width="117">
                                                                    <b>
                                                                    <font face="Verdana" size="2" color="#535353">
                                                                    MENSAGEM:</font></b></td>
                                                                    <td width="293">
                                                                    <textarea rows="6" name="mensagem" cols="29" style="border: 1px solid #000000"></textarea></td>
                                                                </tr>
                                                                <tr>
                                                                    <td width="410" colspan="2">
                                                                    <font style="font-size:11px; color:000000" >
                                                                    <input type="submit" value="enviar formulário"></font></td>
                                                                </tr>
                                                            </table>
                                                        </div>
                                                        <input type="hidden" name="enviado" value="sim">
                                                    </form>
                                                    </td>
                                                </tr>
                                            </table>
                                        </div>
                                        </td>
                                    </tr>
                                    <tr>
                                        <td height=5></td>
                                    </tr>
                                    <tr>
                                        <td height=5>
                                        <hr size="1" color="#ECE9D8" width="80%">
                                        </td>
                                    </tr></table>
                                </font></font>
                                <font style=font-size:11px;color:000000>
                                <font style=font-size:11px face=Verdana><center>
                                <a HREF="default.asp" style=text-decoration:none onMouseOut="window.status='';return true;" onMouseOver="window.status='Página Inicial';return true;">:: 
                                <b>Voltar</b> ::</a></center></td></tr>
                         </table></td></tr>
         </table>

Julho 27, 2006

Essa forma é muito conplexa...o não enviar email pode ser por causa do meu servidor...se ele aceitar CDONTS ...qual pode ser o outro problema..

Julho 27, 2006

Os dados passam direto pela pagina em questão...não estou conseguindo mesmo é enviar o email em si

Marcos-rj · Julho 27, 2006

Não dá nenhum erro?

no EnviarMail.To = "xxxx@xxx.com.br"

você colocou o e-mail que irá receber os dados do formulário?

Julho 27, 2006

Coloquei...

Julho 27, 2006

Por favor me ajudem....preciso conseguir isso urgente...

....

Depois ainda vou ter que pedir ajuda..porque nesse mesmo formulario tenho checkbox....que também preciso enviar...para esse email...

PRECISO DE AJUDA URGENTE!!!!!

Julho 27, 2006

ALGUÈM PODE ME AJUDAR....

Só tá faltando ir o email....de resto está tudo certo...

Marcos-rj · Julho 27, 2006

Posta o código completo da página, a de envio e a do formulário.

você deve estar fazendo alguma coisa errada.

Julho 27, 2006

Marcos-rj · Julho 27, 2006

Olhando sua página de envio vi que você colocou assim na linha 25:

EnviarMail.To = rs("bailarinapri@multiplos.com")

por isso não está enviando, tenta assim:

EnviarMail.To = "bailarinapri@multiplos.com"

+ uma coisa, na 1ª página você tem vários campos, mas nas seguintes só está recuperando 4 deles.

qualquer coisa posta ai.

Julho 27, 2006

Sim...sobre os campos eu sei..esse 4 são os de testes....mas só tá indo o valor da Vempresa..os outros 3 é que não estão indo..

Marcos-rj · Julho 27, 2006

CERTO, POR QUE NÃO ESTÁ RECUPERANDO OS DADOS?

TODOS OS CAMPOS DO FORMULARIO, COM EXCEÇÃO DO CAMPO EMPRESA ESTÃO COM O NOME LICENCA.

POR ISSO NÃO ESTÁ RECEBENDO OS VALORES:

Vdepart = Request.Form("depart")

Vcontato = Request.Form("contato")

Vcargo = Request.Form("cargo")

POIS O NOME DO CAMPO É LICENCA

Alterei sua página de envio, veja se chegou algo no e-mail que você colocou no código:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
'recupera os valores
Vempresa = Request.Form("empresa")
Vdepart = Request.Form("depart")
'Monta Mensagem
HTML = "<!DOCTYPE HTML PUBLIC ""-//IETF//DTD HTML//EN"">"
HTML = HTML & "<html>"
HTML = HTML & "<head>"
HTML = HTML & "<meta http-equiv=""Content-Type"""
HTML = HTML & "content=""text/html; charset=iso-8859-1"">"
HTML = HTML & "<title>Contatos </title>"
HTML = HTML & "</head>"
HTML = HTML & "<body bgcolor=""#FFFFFF"">"
HTML = HTML & "<font size=""1"" face=""verdana"">"
HTML = HTML & "<B>CONTATOS XXXXXX</B><BR><HR><BR>"
HTML = HTML & "<B>EMPRESA : </B>" & Vempresa & "<BR>"
HTML = HTML & "<B>DEPARTAMENTO : </B>" & Vdepart & "<BR>"
HTML = HTML & "</body>"
HTML = HTML & "</html>"
'Chamamos o componente e enviamos o email
Set myMail = CreateObject("CDONTS.NewMail")
myMail.From = "Seu_email@seuHost.com.br"
myMail.To = "bailarinapri@multiplos.com"
myMail.Subject = "EMAIL DE TESTE DOS FORMULARIOS"
myMail.BodyFormat = 0
myMail.MailFormat = 0
myMail.Body = HTML
myMail.Send
Set myMail = Nothing
URL = "cadastrando.asp"
response.redirect(URL)
%>

Fiz um teste aqui com meu e-mail e funcionou.

http://www.sexdreamshop.com.br/teste/

acessa o link e faça um teste p/ ver.

Julho 27, 2006

Outra coisa quer estou precisando de ajuda é que no formulario tem select e button e checkbox...como faço pra enviar esses valores....normal...igual aos outros...

Belmonte SC · Julho 27, 2006

sempre preste atenção nos "names", tanto dos radio, check button, etc...você vai usar eles para passar os valores...

Marcos-rj · Julho 27, 2006

Normal, igual aos outros, só precisa definir o valor do campo na propriedade VALUE.

Belmonte SC · Julho 27, 2006

Ex:

Na página que vais postar fica:

var1= request.form("caixa")

ele vai selecionar o valor que o usuario clicou...

observe que o nome é igual, só muda os values.

Julho 27, 2006

Pessoal mtiiiiisssssiiiiimmmmmaaaaaa obrigada pela ajuda!!!

Entrar

Enviando Email De Formulario

Pergunta

Link para o comentário

Compartilhar em outros sites

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

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Guest Visitante

Link para o comentário

Compartilhar em outros sites

Guest Visitante

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Guest Visitante

Link para o comentário

Compartilhar em outros sites

Guest Visitante

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Guest Visitante

Link para o comentário

Compartilhar em outros sites

Guest Visitante

Link para o comentário

Compartilhar em outros sites

Guest Visitante

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Guest Visitante

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Guest Visitante

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Guest Visitante

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 Visitante

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns