Form-E-mail em ASP - Completo... e funcionando Bem são dois arquivos necessarios para o envio do e-mail... FALE_CONOSCO.ASP - Este Formulario que o usuario preenche ENVIA.ASP - Funcoes que vao tratar as variaveis e enviar o e-mail para o destino Na forma que esta o Formulario funciona 100% já testei, as unicas linhas que necessita de alteração são: sEmailTo = "EMAIL@DOMINIO.COM.BR" 'E-MAIL QUE O FORMULARIO SERA ENVIADO(cola-se o e-mail que recebera o formulario preenchido sNameTo = "Nome da Empresa" ´Seu Nome ou da Empresa que esta recebendo o formulario(Apenas um nome para referencia) Mailer.RemoteHost = "127.0.0.1" (Seu Host smtp.. dependendo do provedor pode-se utilizar o que esta ai mesmo, sem problemas A mensagem de agradecimento esta no proprio Formulario ENVIA.ASP, se quiser pode criar uma outra pagina.. ou redirecionar para onde quiser Qualquer duvida ou problema, Poste aqui: Bos Sorte Segue os Fontes: FALE_CONOSCO.ASP ****************------------- INICIA AQUI --------------------*************** Por Favor não Remova os creditos, nem do ScriptBrasil, nem os Meus - Obrigado****************************************************************************** <!-- FALE_CONOSCO.ASP - Exemplo de Form-mail para www.scriptbrasil.com.br --> <!-- Autor : Jair Issa - jair.issa@linksat.com.br --> <% Response.addHeader "pragma", "no-cache" Response.CacheControl = "Private" Response.Expires = 0 %> <% '------------------------------------------- ' Aqui está o código para que apareça uma ' mensagem de erro quando um dos campos ' não for preenchido corretamente Dim ErroMsg Dim strMsg ErroMsg = cstr(Request.QueryString ("erro")) msg = "" Select case ErroMsg case "1" msg = "Digite um nome para contato !" case "2" msg = "Digite um email válido!" case "3" msg = "Digite um texto !" end select if msg <> "" then Response.Write "<p align=""center""><font face=""verdana"" color=" & DefaultColor & " size=""1""><b>" & msg & "</b></font></p>" end if ' Fim do código de erro '------------------------------------------- %> <% '------------------------------------------- ' Esta área você poderá configurar ' ao seu gosto. Anexe as folhas de estilos ' mas respeitando os nomes dos campos. '------------------------------------------- %> <HTML> <HEAD> <title>Form-E-mail - Exemplo para www.scriptbrasil.com.br By jair.issa@linksat.com.br</title> <body> <form action="enviar.asp" method="POST"> <center> <span style="height:1; Filter: Blur(Direction=50, Strength=8); font-weight:700; font-style:italic"> <font size="5" face="Verdana"> <font color="#6699FF"> </font></font> </span> <span style="height:1; Filter: Blur(Direction=50, Strength=8); font-weight:700; "> <b><font face="Verdana" size="5">Fale Conosco</a></font></b></span></P> <font face="Verdana">Faça sua consulta sobre nossos serviços ou dê a sua opinião sobre qualquer coisa que desejar.<br><b><br>Seus comentários e sugestões ou criticas são muito importantes<br></b></font> </p> <table cellpadding="3" cellspacing="0" width="686"> <tr><td align="center" width="680"> <p> </td></tr><tr><td align="right" width="680"> <p align="left"><font face="Verdana"><strong>Que tipo de comentários gostaria de enviar?</strong></font></p> <p align="left"><font face="Verdana"> <input type="radio" name="TipoMensagem" value="Consulta" checked></font><font face="Verdana">Consulta <input type="radio" name="TipoMensagem" value="Reclamação">Reclamação <input type="radio" name="TipoMensagem" value="Sugestão">Sugestão</font></p> <p align="left"><font face="Verdana"><strong>Sobre que área deseja fazer um comentário?</strong></font></p> <p align="left"><font face="Verdana"><strong> </strong><select name="Assunto" size="1"> <option>Desenvolvimento</option> <option>Empresa</option> <option>Funcionário</option> <option>Serviços</option> <option>Site da Web</option> <option>Suporte</option> <option selected>(Outro)</option> </select></font><font face="Verdana"> Outro: <input type="text" size="26" maxlength="100" name="OutroAssunto"></font></p> <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse; border-width: 0" bordercolor="#111111" width="100%" id="AutoNumber1"> <tr> <td width="21%" style="border-style: none; border-width: medium"> <font face="Verdana" size="1">Empresa:</font></td> <td width="79%" style="border-style: none; border-width: medium"> <font face="Verdana" size="1"> <input type="text" name="name" size="50"></font></td> </tr> <tr> <td width="21%" style="border-style: none; border-width: medium"> <font face="Verdana" size="1">E-mail:</font><font color="#FF0000" face="Verdana"> </font></td> <td width="79%" style="border-style: none; border-width: medium"> <font face="Verdana" size="1"> <input type="text" name="email" size="50"></font></td> </tr> <tr> <td width="21%" style="border-style: none; border-width: medium"> <font face="Verdana" size="1">Telefone:</font><font face="Verdana">:</font></td> <td width="79%" style="border-style: none; border-width: medium"> <font face="Verdana" size="1"> <input type="text" name="telefone" size="20"> Fax :</font><font face="Verdana" size="1"><input type="text" name="fax" size="20"></font></td> </tr> <tr> <td width="21%" style="border-style: none; border-width: medium"> <font face="Verdana" size="1">Contato: </font> <font face="Verdana"> </font></td> <td width="79%" style="border-style: none; border-width: medium"> <font face="Verdana" size="1"> <input type="text" name="contato" size="50"></font></td> </tr> </table> <p align="left"> <font face="Verdana" size="1"> <br></font> <font face="Verdana" color="#FF0000"> </font><font face="Verdana" size="1">Mensagem<br> <textarea name="text" rows="5" cols="66" ></textarea></p> </font><font face="Verdana" size="1"> <center><input type="submit" value="Enviar Formulário"></center></font></td></table></center> </BODY> </HTML> ENVIAR.ASP ****************------------- INICIA AQUI --------------------*************** Por Favor não Remova os creditos, nem do ScriptBrasil, nem os Meus - Obrigado ****************************************************************************** <!-- ENVIAR.ASP - Exemplo de Form-mail para www.scriptbrasil.com.br --> <!-- Autor : Jair Issa - jair.issa@linksat.com.br --> <% 'Declarando variveis Dim sNameTo, sNameFrom, sEmailFrom, sText, sEmailTo, sAssunto Dim contato, tipomensagem, outroservico, name, telefone, fax 'Pegando os dados digitados nos campos e colocando em variaveis contato = Request.form("contato") name = Request.form("name") telefone = Request.form("telefone") fax = Request.form("telefone") tipomensagem = Request.form("TipoMensagem") outroassunto = Request.form("OutroAssunto") sNameFrom = Request.Form("name") sEmailFrom = Request.Form("email") sEmailTo = "EMAIL@DOMINIO.COM.BR" 'E-MAIL QUE O FORMULARIO SERA ENVIADO sNameTo = "Nome da Empresa" ´Seu Nome ou da Empresa que esta recebendo o formulario sText = Request.Form("text") sAssunto = Request.Form("Assunto") 'Cria o objeto set mailer = server.createobject("SMTPsvg.Mailer") Mailer.FromName = sNameFrom Mailer.FromAddress = sEmailFrom 'Host para envio de emails Mailer.RemoteHost = "127.0.0.1" Mailer.AddRecipient sEmailTo, sNameTo Mailer.Subject = "Fale Conosco" & " / " & SEmailFrom & " / " & name Mailer.AddBCC "Nome 2", "EMAIL@DOMINIO.COM.BR" 'e-MAIL QUE O fORMULARIO SERA ENVIADO 'Monta a texto para o envio strMsgHeader = "Data/Horario do Envio :" & date() & " / " & time() & vbCrLf & "DADOS ENVIADOS: " & vbCrLf & "Seu e-mail : (" & sEmailFrom & ") " & vbCrLf & "Empresa : " & name & vbCrLf & "Contato : " & contato & vbCrLf & "Tipo : " & tipomensagem& "/" & "Assunto :" & sAssunto & "/" & outroassunto & vbCrLf & "Telefone :" & telefone & " / " & "Fax: " & fax & vbCrLf & vbCrLf strMsgFooter = vbCrLf & "Mensagem: " & vbCrLf &sText Mailer.BodyText = strMsgHeader & strMsgFooter ' Se for enviado redirecionar para obrigado.asp if Mailer.SendMail then ' Response.Redirect "obrigado.asp" response.write ("<center>") response.write ("<table border='0' width='439'>") response.write ("<tr>") response.write ("<h2>") response.write ("<font color='#00B0FF'><b>Obrigado por utilizar nosssos Serviços!!</b></font>") response.write ("</h2>") response.write ("<h3>") response.write ("<p>Sua Mensagem foi enviada com sucesso. <p></font>") response.write ("</h3>") response.write ("</center>") 'Monta a texto para o envio response.write ("<br><h4><b><i>DADOS ENVIADOS: </i>") response.write ("<br>Data/Horario do Envio :" & date() & " / " & time()) response.write ("<br>Seu e-mail : " & sEmailFrom) response.write ("<br>Empresa : " & name) response.write ("<br>Contato : " & contato) response.write ("<br>Tipo : " & tipomensagem& "/" & "Assunto :" & sAssunto & "/" & outroassunto) response.write ("<br>Telefone :" & telefone & " / " & "Fax: " & fax) response.write ("<br>Mensagem Enviada : " &sText) response.write ("<p><p><h3>") response.write ("<p>Em breve entraremos em contato.</font>") response.write ("</h3>") else ' Se não for enviado mostra o erro que ocoreu Response.Write ("Ocorreu um erro.<BR>") Response.Write ("O Erro é " & Mailer.Response) end if %>