Ir para conteúdo
Fórum CódigoFonte.net

ninho09

Membros
  • Total de itens

    1
  • Registro em

  • Última visita

  1. ninho09

    E-mail com Resposta automatica

    Boa noite Galera, Seguinte eu estou com uma master duvida e espero que alguém possa me ajudar, não saco nada de ASP, meu negocio é PHP e eu acabei pegando um pequeno serviço para fazer e estou tomando uma surra rs O negocio é o seguinte eu tenho um formulário só que a pessoa quer que esse formulário tenha uma auto resposta, explicando... ela mande uma mensagem para quem enviou o e-mail e ai esta o problema, o meu formulário esta enviando perfeitamente só não estou conseguindo implementar essa parte do código. ai esta o código. e espero que alguém possa me ajudar <%session.LCID = 1046%> <html> <head> <title></title> </head> <body> <% remetente = "[email protected]" destinatario = "[email protected]" assunto = "Pedido de materiais " id = Request("id") mail = Request("mail") setor = Request("setor") matricula = Request("matricula") telefone = Request("telefone") var_pedidos = request("pedidos") var_quantidade = request("quantidade") var_pedidos1 = request("pedidos1") var_quantidade1 = request("quantidade1") var_pedidos2 = request("pedidos2") var_quantidade2 = request("quantidade2") var_pedidos3 = request("pedidos3") var_quantidade3 = request("quantidade3") var_pedidos4 = request("pedidos4") var_quantidade4 = request("quantidade4") var_pedidos5 = request("pedidos5") var_quantidade5 = request("quantidade5") data = now() Set msg = CreateObject("CDO.Message") msg.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1 msg.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="smtps.bsdplasticos.com.br" msg.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465 msg.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True 'Ativa/Desativa conexao SSL (True ou False) msg.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30 msg.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'Ativa autenticacao em texto plano (clear-text) msg.Configuration.Fields.Update msg.To = destinatario msg.Subject = assunto msg.From = remetente 'msg.HTMLBody = "opcao para ter o corpo de texto em formato html" msg.HTMLBody = "<br><b>IP de Origem:</b> " & Request.ServerVariables("REMOTE_ADDR") & vbcrlf&_ "<br><b>Data:</b>" & data & vbcrlf&_ "<br><b>Protocolo:</b>" & protocolo & vbcrlf&_ "<br>----------------------------" & vbcrlf&_ "<br><b>Nome:&nbsp;&nbsp;</b> " & id & vbcrlf&_ "<br><br><b>E-mail:&nbsp;&nbsp;</b> " & mail & vbcrlf&_ "<br><br><b>Setor:&nbsp;&nbsp;</b> " & setor & vbcrlf&_ "<br><br><b>Matricula:&nbsp;&nbsp;</b> " & matricula & vbcrlf&_ "<br><br><b>Telefone Institucional:&nbsp;&nbsp;</b> " & telefone & vbcrlf&_ "<br><br><b>Material:&nbsp;&nbsp;</b> " & var_pedidos & vbcrlf&_ "&nbsp;&nbsp;<b>Quantidade:&nbsp;&nbsp;</b> " & var_quantidade & vbcrlf&_ "<br><br><b>&nbsp;&nbsp;&nbsp;&nbsp&nbsp;&nbsp&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</b> " & var_pedidos1 & vbcrlf&_ "&nbsp;&nbsp;<b>&nbsp;&nbsp;</b> " & var_quantidade1 & vbcrlf&_ "<br><br><b>&nbsp;&nbsp;&nbsp;&nbsp&nbsp;&nbsp&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</b> " & var_pedidos2 & vbcrlf&_ "&nbsp;&nbsp;<b>&nbsp;&nbsp;</b> " & var_quantidade2 & vbcrlf&_ "<br><br><b>&nbsp;&nbsp;&nbsp;&nbsp&nbsp;&nbsp&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</b> " & var_pedidos3 & vbcrlf&_ "&nbsp;&nbsp;<b>&nbsp;&nbsp;</b> " & var_quantidade3 & vbcrlf&_ "<br><br><b>&nbsp;&nbsp;&nbsp;&nbsp&nbsp;&nbsp&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</b> " & var_pedidos4 & vbcrlf&_ "&nbsp;&nbsp;<b>&nbsp;&nbsp;</b> " & var_quantidade4 & vbcrlf&_ "<br><br><b>&nbsp;&nbsp;&nbsp;&nbsp&nbsp;&nbsp&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</b> " & var_pedidos5 & vbcrlf&_ "&nbsp;&nbsp;<b>&nbsp;&nbsp;</b> " & var_quantidade5 & vbcrlf&_ "<br><br><div align='center'><br><br><b>&nbsp;&nbsp;<br>" msg.Send Set msg = Nothing url = "http://www.bsplasticos.com.br" response.Redirect(url) %> </body> </html>
×
×
  • Criar Novo...