Ir para conteúdo
Fórum Script Brasil
  • 0

Formulário de email


Leili

Pergunta

Posts Recomendados

  • 0
Guest --Leili --

Oláa..

por favor, me diz aí como faz, porque juro q já tentei só q não consigo. :unsure:

O combo seria o list menu com as opçoões? se for isso eu já fiz :rolleyes:

Mas isso: "Dai depois é só resgatar o valor dele, que vai ser o email pra quem enviar" não consigo : (

Obrigadaaa...

Link para o comentário
Compartilhar em outros sites

  • 0

Oláa..

por favor, me diz aí como faz, porque juro q já tentei só q não consigo. :unsure:

O combo seria o list menu com as opçoões? se for isso eu já fiz

Mas isso: "Dai depois é só resgatar o valor dele, que vai ser o email pra quem enviar" não consigo : (

Obrigadaaa...

Link para o comentário
Compartilhar em outros sites

  • 0

você têm algum conhecimento de html?

Ou esta iniciando?

você cria o combo através da tag:

<SELECT NAME = "frutas">
<OPTION>laranja
<OPTION>maçã
<OPTION>uva
<OPTION>pera
</SELECT>

Agora isto é estático para ser dinâmico precisaria além do conhecimento de html de alguma linguagem como: asp, php, java, .net ou outra.

Link para o comentário
Compartilhar em outros sites

  • 0

Bom diaaa...

Sim, eu entendo de HTML :rolleyes:

O combo eu já fiz, agora quero torná-lo dinâmico para efetuar a função que já te falei. Estou usando ASP.

Como eu faço para quando o usuário escolher uma das opções (cada um vai ter seu próprio email) ir para o email desta opção??? Isso em ASP.

Me ajudaaa... :wacko:

Link para o comentário
Compartilhar em outros sites

  • 0

Eu banco que eu uso é mySql...

Só que eu não utilizo ele, fica lá quetinho no servidor da empresa de hospedagem.

Para fazer este procedimento é necessário ir cutucar o banco de dados??? Espero q não :huh:

Não seria só código mesmo???

brigadaaaaaa

Link para o comentário
Compartilhar em outros sites

  • 0

Pois é você ira contruir códigos asp que irá manipular os dados contidos no mysql.

Pois a única forma de manter dados de forma dinâmica é através da interação de códgios (asp, php, java, .net) com o repositório de dados (mysql, access, sql server).

Então se queres mesmo algo dinâmico terás de "cutucar" o banco de dados.

Primeira coisa a fazer é criar uma fonte de dados ODBC para se conectar ao banco de dados e recuperar as informações.

você poderia ser mais explicíta no que realmente queres. Descreva o processo de maneira mais clara. Por favor assim fica mais simples a ajuda.

você sabe cria a font de dados ODBC?

Link para o comentário
Compartilhar em outros sites

  • 0

Vou te passar meus códigos que já fiz tá...

Assim fica mais fácil, e você vai ter a noção do meu nivel em ASP.

Formulario.asp

<form action="enviar.asp" method="post" name="frm" target="_self" id="frm" onSubmit="MM_validateForm('nome','','R','email','','RisEmail');return document.MM_returnValue">
   <table width="545" border="0" align="center" cellpadding="0" cellspacing="0">
<% if Session("topo_faleconosco") = "" then
                Response.Write ""
             else
             %>
    <tr>
     <td colspan="3" align="center" class="style2 style23"><div align="left"></div></td>
   </tr>
    
    <tr>
      <td height="30" colspan="3" align="center" class="txtnormal"><p><span class="style42">Faça parte da nossa <span class="style39">equipe </span></span></p></td>
     </tr>
    
    
   <%
   end if
   %>
     <tr>
       <td width="4" class="txtnormal style38 style40">&nbsp;</td>
       <td width="174" class="style41 style45">Nome:</td>
       <td width="367" class="style2"><input name="nome" type="text" class="style19" id="nome"  size="35" /></td>
     </tr>
     <tr>
       <td class="txtnormal style38 style40">&nbsp;</td>
       <td class="style41 style45">Data de Nascimento: </td>
       <td class="style2"><input name="nasc" type="text" class="style19" id="nasc"  size="35" /></td>
     </tr>
     <tr>
       <td width="4" class="txtnormal style38 style40">&nbsp;</td>
       <td width="174" class="style41 style45">Endereço</td>
       <td width="367" class="style2"><input name="endereco" type="text" class="style47" id="endereco"  size="35" /></td>
     </tr>
     <tr>
       <td width="4" class="txtnormal style38 style40">&nbsp;</td>
       <td width="174" class="style41 style45">Complemento:</td>
       <td width="367" class="style2"><input name="complemento" type="text" class="style47" id="complemento"  size="35" /></td>
     </tr>
     <tr>
       <td width="4" class="txtnormal style38 style40">&nbsp;</td>
       <td width="174" class="style41 style45">CEP:</td>
       <td width="367" class="style2"><input name="cep" type="text" class="style47" id="cep"  size="35" /></td>
     </tr>
     <b><tr>
       <td class="txtnormal style38 style40">&nbsp;</td>
       <td class="style41 style45">Cidade:</td>
       <td class="style2"><select name="cidade" class="style19 style45" id="cidade">
         <option>---- SELECIONE ---</option>
         <option value="ceara@hotmail.com">Ceará</option>
         <option value="recife@hotmail.com">Recife</option>
         <option value="joaopessoa@hotmail.com">João Pessoa</option>
       </select>      </td>
     </tr></b>
     <tr>
       <td width="4" class="txtnormal style38 style40">&nbsp;</td>
       <td width="174" class="style41 style45">Estado:</td>
       <td width="367" class="style2"><input name="estado" type="text" class="style47" id="estado"  size="35" /></td>
     </tr>
     <tr>
       <td class="txtnormal style38 style40">&nbsp;</td>
       <td class="style41 style45">Telefone Fixo:</td>
       <td><span class="style2 style45">
         <input name="telefone" type="text" class="style19" id="telefone" size="14" maxlength="13" />
       </span><span class="style32 style45">(99) 9999-9999 </span></td>
     </tr>
     <tr>
       <td class="txtnormal style38 style40">&nbsp;</td>
       <td class="style41 style45">Celular:</td>
       <td><span class="style2 style45">
         <input name="celular" type="text" class="style19" id="celular" size="14" maxlength="13" />
       </span><span class="style32 style45">(99) 9999-9999 </span></td>
     </tr>
     <tr>
       <td class="txtnormal style38 style40">&nbsp;</td>
       <td class="style41 style45">Email:</td>
       <td class="style2"><input name="email" type="text" class="style47" id="email" size="35" /></td>
     </tr>
     <tr>
       <td width="4" class="txtnormal style38 style40">&nbsp;</td>
       <td width="174" class="style41 style45">Escolaridade:</td>
       <td width="367" class="style2"><input name="escolaridade" type="text" class="style47" id="escolaridade"  size="35" /></td>
     </tr>
     <tr>
       <td class="txtnormal style38 style40">&nbsp;</td>
       <td class="style41 style45">Cargo Pretendido:</td>
       <td class="style2"><select name="pretendido" class="style19 style45" id="pretendido">
         <option>---- SELECIONE ---</option>
         <option value="Vendedor(a)">Vendedor(a)</option>
         <option value="Recepcionista">Recepcionista</option>
         <option value="Empacotadora">Empacotadora</option>
         <option value="Caixa">Caixa</option>

         <option value="Fiscal de Loja">Fiscal de Loja</option>
         <option value="Gerencia de Loja">Estoquista</option>
         <option value="Serviços Gerais">Serviços Gerais</option>
       </select>      </td>
     </tr>
     <tr>
       <td class="txtnormal style38 style40">&nbsp;</td>
       <td class="style41 style45">Experiência Profissional:</td>
       <td class="style2"><textarea name="mensagem" cols="50" rows="10" wrap="physical" class="style19 style45" id="mensagem"></textarea></td>
     </tr>
     <tr>
       <td height="20" colspan="3" align="center" class="txtnormal"><input name="Submit" type="submit" class="campo " value="Enviar" /></td>
     </tr>
</table>
</form>
enviar.asp
<%

Set Mail = Server.CreateObject("Persits.MailSender")

Mail.Host = "000.000.00.00"
Mail.Port = 25
Mail.From = Request.Form("email")
Mail.FromName = Request.Form("nome")
Mail.AddAddress "teste@gmail.com", "Teste"
Mail.Subject = "Teste"
corpo =  "<table width='400' border='0' align='center' cellpadding='0' cellspacing='0' bgcolor='#D1DBE7'>"
corpo = corpo & "<tr>"
corpo = corpo & "<td colspan='3' bgcolor='#96AEBE'><div align='center' class='style1'>CONTATO DO SITE</div></td>"
corpo = corpo & "</tr>"
corpo = corpo & "<tr>"
corpo = corpo & "<td>&nbsp;</td>"
corpo = corpo & "<td>&nbsp;</td>"
corpo = corpo & "<td>&nbsp;</td>"
corpo = corpo & "</tr>"
corpo = corpo & "<tr>"
corpo = corpo & "<td class='txtnormal'>&nbsp;</td>"
corpo = corpo & "<td class='txtnormal'>Nome:</td>"
corpo = corpo & "<td class='txtnormal'>" & Request.Form("nome") & "</td>"
corpo = corpo & "</tr>"
corpo = corpo & "<tr>"
corpo = corpo & "<td class='txtnormal'>&nbsp;</td>"
corpo = corpo & "<td class='txtnormal'>Data de Nascimento:</td>"
corpo = corpo & "<td class='txtnormal'>" & Request.Form("nasc") & "</td>"
corpo = corpo & "</tr>"
corpo = corpo & "<tr>"
corpo = corpo & "<td class='txtnormal'>&nbsp;</td>"
corpo = corpo & "<td class='txtnormal'>Endereço:</td>"
corpo = corpo & "<td class='txtnormal'>" & Request.Form("endereco") & "</td>"
corpo = corpo & "</tr>"
corpo = corpo & "<tr>"
corpo = corpo & "<td class='txtnormal'>&nbsp;</td>"
corpo = corpo & "<td class='txtnormal'>Complemento:</td>"
corpo = corpo & "<td class='txtnormal'>" & Request.Form("complemento") & "</td>"
corpo = corpo & "</tr>"
corpo = corpo & "<tr>"
corpo = corpo & "<td class='txtnormal'>&nbsp;</td>"
corpo = corpo & "<td class='txtnormal'>CEP:</td>"
corpo = corpo & "<td class='txtnormal'>" & Request.Form("cep") & "</td>"
corpo = corpo & "</tr>"
<b>corpo = corpo & "<tr>"
corpo = corpo & "<td class='txtnormal'>&nbsp;</td>"
corpo = corpo & "<td class='txtnormal'>Cidade:</td>"
corpo = corpo & "<td class='txtnormal'>" & Request.Form("cidade") & if Assunto = "Ceará" then
$para = "ceara@hotmail.com" : Ceará
elseif Assunto = "Recife" then
$para = "recife@hotmail.com" : Recife
elseif Assunto = "João Pessoa" then
$para = "joaopessoa@hotmail.com" : João Pessoa"</td>"
corpo = corpo & "</tr>"</b>
corpo = corpo & "<tr>"
corpo = corpo & "<td class='txtnormal'>&nbsp;</td>"
corpo = corpo & "<td class='txtnormal'>Estado:</td>"
corpo = corpo & "<td class='txtnormal'>" & Request.Form("estado") & "</td>"
corpo = corpo & "</tr>"
corpo = corpo & "<tr>"
corpo = corpo & "<td class='txtnormal'>&nbsp;</td>"
corpo = corpo & "<td class='txtnormal'>Telefone Fixo:</td>"
corpo = corpo & "<td class='txtnormal'>" & Request.Form("telefone") & "</td>"
corpo = corpo & "</tr>"
corpo = corpo & "<tr>"
corpo = corpo & "<td class='txtnormal'>&nbsp;</td>"
corpo = corpo & "<td class='txtnormal'>Celular:</td>"
corpo = corpo & "<td class='txtnormal'>" & Request.Form("celular") & "</td>"
corpo = corpo & "</tr>"
corpo = corpo & "<tr>"
corpo = corpo & "<td class='txtnormal'>&nbsp;</td>"
corpo = corpo & "<td class='txtnormal'>Email:</td>"
corpo = corpo & "<td class='txtnormal'>" & Request.Form("email") & "</td>"
corpo = corpo & "</tr>"
corpo = corpo & "<tr>"
corpo = corpo & "<td class='txtnormal'>&nbsp;</td>"
corpo = corpo & "<td class='txtnormal'>Escolaridade:</td>"
corpo = corpo & "<td class='txtnormal'>" & Request.Form("escolariade") & "</td>"
corpo = corpo & "</tr>"
corpo = corpo & "<tr>"
corpo = corpo & "<td class='txtnormal'>&nbsp;</td>"
corpo = corpo & "<td class='txtnormal'>Cargo Pretendido:</td>"
corpo = corpo & "<td class='txtnormal'>" & Request.Form("pretendido") & "</td>"
corpo = corpo & "</tr>"
corpo = corpo & "<tr>"
corpo = corpo & "<td class='txtnormal'>&nbsp;</td>"
corpo = corpo & "<td class='txtnormal'>Experiência Profissional:</td>"
corpo = corpo & "<td class='txtnormal'>" & Request.Form("mensagem") & "</td>"
corpo = corpo & "</tr>"
corpo = corpo & "<tr>"
corpo = corpo & "<td>&nbsp;</td>"
corpo = corpo & "<td>&nbsp;</td>"
corpo = corpo & "<td>&nbsp;</td>"
corpo = corpo & "</tr>"
corpo = corpo & "</table>"

Mail.Body = corpo

Mail.IsHTML = True

On Error Resume Next
Mail.Send
If Err <> 0 Then
   Response.Write "An error occurred: " & Err.Description
   Response.End()
End If
%>
     </p><style type="text/css">
<!--
body {
     background-color: #FFFFFF;
}
.style1 {font-family: Arial, Helvetica, sans-serif}
.style37 {font-family: Verdana;
     font-size: 10px;
     font-weight: bold;
}
a:link {
     color: #006633;
}
a:visited {
     color: #006633;
}
a:hover {
     color: #00CC33;
}
a:active {
     color: #006633;
}
-->
     </style>
     <p>&nbsp;</p>
     <p align="center" class="style1"><strong>MENSAGEM ENVIADA COM SUCESSO!!!</strong></p>
     <p align="center" class="style1">&nbsp;</p>
  <p align="center" class="subtitulo style3"><a href="inicial.html" target="principal"><span class="style37">voltar</span></a></p>

</body>
</html>

Pronto! estou até aqui no código... :blink:

O que eu quero: quando o usuário escolher a cidade, o formulario vai p o email correspondente a cidade.

Espero q possa me ajudar. :blush:

brigada.

Link para o comentário
Compartilhar em outros sites

  • 0

A página enviasr.asp esta sendo chamada?

Se estiver tenta assim:

<%

'--Recupera o valor do combo e dai é só utilizar montagem do e-amil.
valor = request.form("cidade")


Set Mail = Server.CreateObject("Persits.MailSender")

Mail.Host = "000.000.00.00"
Mail.Port = 25
Mail.From = Request.Form("email")
Mail.FromName = Request.Form("nome")
Mail.AddAddress "teste@gmail.com", "Teste"

Link para o comentário
Compartilhar em outros sites

  • 0

Eu tentei colocar:

Set Mail = Server.CreateObject("Persits.MailSender")

Mail.Host = "000.000.00.00"

Mail.Port = 25

Mail.From = Request.Form("email")

valor = request.form("cidade")

Mail.FromName = Request.Form("nome")

Mail.AddAddress "teste@gmail.com", "Teste"

Só que deu esse erro:

An error occurred: 511 sorry, can't find a valid MX for sender domain (#5.1.1 - chkuser)

O que é?

E esta variavel "valor" tá certo???

brigadaaa

Link para o comentário
Compartilhar em outros sites

  • 0

Pelo visto é algum problem com o objeto de envio de e-mail Persits.MailSender.

Isto esta sendo enviado local ou através de um servidor?

Se for em um provredor verifique que erro é este: An error occurred: 511 sorry, can't find a valid MX for sender domain (#5.1.1 - chkuser)

Pelo visot é me parece problema com usuário (#5.1.1 - chkuser)

Para verificar se o coneteudo do controle esta certo:

Set Mail = Server.CreateObject("Persits.MailSender")

Mail.Host = "000.000.00.00"
Mail.Port = 25
Mail.From = Request.Form("email")
valor = request.form("cidade")

response.write "valor = " & valor & "<br>"
response.end

O response.end interrompe o processamento e não retorna o erro. Dai verifique o conteúdo da variavel valor.

Link para o comentário
Compartilhar em outros sites

  • 0

Pelo visto você está usando um componente "aspmail" para mandar estes e-mails...

Existem outras formas de enviar um e-mail, por exemplo, utilizando cdo.sys cdo.nts e assim por diante....

A minha pergunta é:

você já checou junto ao seu servidor qual o componente deve ser utilizado para enviar e-mails?

porque daqui a pouco você está tentando enviar e-mails com um componente que eles nem tenham instalado... então sugiro... da uma verificada junto ao server e depois retorna a resposta aqui no forum!

[]'s Notax

Link para o comentário
Compartilhar em outros sites

  • 0
Pronto fiz o que você pediu e deu isso na tela:

valor=

.. pronto só isso...

o que significa!

Isto é o resultado do comando:

response.write "valor = " & valor & "<br>"

Bom pelo visto o valor esta vindo em branco, mas este é o menor dos problemas.

Como eu disse anteriormente e o Notax deixou muito mais claro entre em contato com o seu provedor e procure se informa de qual componente deverá ser usado. Esxitem vários: cdonts, aspmail, cdsys e outros.

Quanto ao modelo não vai fuguir do que você têm não. Em quase todas a linguagens só muda a forma de instancir/criar o objeto o resto e igual.

Verifique com provedor com relação ao componete para envio de e-mail depois resolveremos o proble com o valor do combo.

Ok?

Link para o comentário
Compartilhar em outros sites

  • 0

Tipo... antes de colocar essa condição de escolher a cidade (menu list) que vai ser enviado o formulario, estava funcionando normalmente.

Quando eu adicionei o combo cidade e o valor = request.form("cidade") é que começou a dá esses erros.

Então será q é mesmo o componente ou só código mesmo??

Será que ão tenho que usar o comando IF??

Tipo esse comando:

<%

Assunto = Request("Assunto")

if Assunto = "suporte" then

'Aqui vem o que acontece se o cara escolher o assunto : Suporte

elseif Assunto = "Sugestao" then

'Aqui vem o que acontece se o cara escolher o assunto : Sugestão

elseif Assunto = "Reclamacao" then

'Aqui vem o que acontece se o cara escolher o assunto : Reclamação

end if

%>

brigadaaaaa

Link para o comentário
Compartilhar em outros sites

  • 0

Se funcionava antes do combo não têm porque ser o componente.

Agora desde que você garanta que não alerou nada relativo ao componente.

Vamos o que esta chegando na página excute este codigo e post o resultado:

<%
Mail.Host = "000.000.00.00"
Mail.Port = 25
Mail.From = Request.Form("email")
valor = request.form("cidade")

response.write "QueryString = " & request.querystring & "<br><br>"
response.write "Form = " & request.form & "<br><br>"
response.end

%>

Favor postar o resultado dos comando acima.

Link para o comentário
Compartilhar em outros sites

  • 0

Pronto...

coloquei o código e saiu esse resultado na tela:

QueryString =

Form = nome=tese&dtnasc=&endereco=&complemento=&cep=&select=leilanev@bol.com.br&estado=&telefone=&celular=&email=ss@sdd&escolaridade=&pretendido=Vendedor%28a%29&mensagem=xfdzf&Submit=Enviar

brigadaa...

Link para o comentário
Compartilhar em outros sites

  • 0

Este são os campos passados vai form com seu respectivos valores:

Form =

nome=tese

&dtnasc=

&endereco=

&complemento=

&cep=

&select=leilanev@bol.com.br

&estado=

&telefone=

&celular=

&email=ss@sdd

&escolaridade=

&pretendido=Vendedor%28a%29

&mensagem=xfdzf

&Submit=Enviar

Qual dele você quer recuperar?

você notou q a maioria vem em branco? Isso é normal?

O campo ciade que q você mencionou no outro post nem existe.

Link para o comentário
Compartilhar em outros sites

  • 0

Estão em branco porque não completei todos.

Agora olha todos preenchidos:

QueryString =

Form = nome=Leiliane&dtnasc=04%2F02%2F1985&endereco=Av.A&complemento=farmacia&cep=30525190&select=leilanev@bol.com.br&estado=Qualquer&telefone=9999-9999&celular=9999-9999&email=bla@bla&escolaridade=superior&pretendido=Fiscal+de+Loja&mensagem=blablabla&Submit=Enviar

Eu quero recuperar todos... :mellow:

POisé a cidade seria o email: &select=leilanev@bol.com.br

Mas era p aparece o nome da cidade e enviar p o email relacionado a cidade.

e agora??

brigadaaaaa

Link para o comentário
Compartilhar em outros sites

  • 0

O combo esta sendo criado nesta linha?

<select name="cidade" class="style19 style45" id="cidade">
             <option>---- SELECIONE ---</option>
             <option value="ceara@hotmail.com">Ceará</option>
             <option value="recife@hotmail.com">Recife</option>
             <option value="joaopessoa@hotmail.com">João Pessoa</option>
           </select>
Porque não vejo motivo para o nome não vir como cidade. Mas você pode utilizar:
valor = request.form("select")

Link para o comentário
Compartilhar em outros sites

  • 0

Pronto eu corrigir e ficou assim na página:

QueryString =

Form = nome=teste&dtnasc=&endereco=&complemento=&cep=&cidade=leilanev@bol.com.br&estado=&telefone=&celular=&email=bla@bla&escolaridade=&pretendido=Recepcionista&mensagem=teste&Submit=Enviar

Lembre-se alguns estão em branco porque não preenchi todos.

E agora?? Como faço para envia p o email(cidade) escolhido. Não está chegando. :blink:

brigadaaaaa

Link para o comentário
Compartilhar em outros sites

  • 0

Pelo visto agora esta vindo o conteúdo do combo em cidade=leilanev@bol.com.br.

Agora ve pode obter o conteúdo assim:

<%
Mail.Host = "000.000.00.00"
Mail.Port = 25
Mail.From = Request.Form("email")


'--Não sei se é este o comando (Mail.To) pois não trablhei com este componente é só um exemplo.
Mail.To = request.form("cidade") 


%>

E use o controle request.form("cidade") recebida via queryString para atribuir ao Destinatário.

Editado por jothaz
Link para o comentário
Compartilhar em outros sites

  • 0

Eu coloquei assim:

Set Mail = Server.CreateObject("Persits.MailSender")

Mail.Host = "000.000.00.00"

Mail.Port = 25

valor = request.form("cidade")

Mail.From = Request.Form("cidade")

Mail.FromName = Request.Form("nome")

Mail.AddAddress "leiliane.v.a@gmail.com", "Teste"

Mail.Subject = "Teste"

Está enviando, mas só envia p este email Mail.AddAddress "leiliane.v.a@gmail.com", "Teste" e não para o que foi selecionado no combo.

porque??

Qualquer coisa mando meu código dnovo.

brigadaaa pela paciência.

AHH o modo como você pediu p fazer está dando erro de sintaxe. :huh:

brigadaaa

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,1k
    • Posts
      651,8k
×
×
  • Criar Novo...