Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
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 = "pedidos@bsplasticos.com.br"
destinatario = "pedidos@bsplasticos.com.br"
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: </b> " & id & vbcrlf&_
"<br><br><b>E-mail: </b> " & mail & vbcrlf&_
"<br><br><b>Setor: </b> " & setor & vbcrlf&_
"<br><br><b>Matricula: </b> " & matricula & vbcrlf&_
"<br><br><b>Telefone Institucional: </b> " & telefone & vbcrlf&_
"<br><br><b>Material: </b> " & var_pedidos & vbcrlf&_
" <b>Quantidade: </b> " & var_quantidade & vbcrlf&_
"<br><br><b> </b> " & var_pedidos1 & vbcrlf&_
" <b> </b> " & var_quantidade1 & vbcrlf&_
"<br><br><b> </b> " & var_pedidos2 & vbcrlf&_
" <b> </b> " & var_quantidade2 & vbcrlf&_
"<br><br><b> </b> " & var_pedidos3 & vbcrlf&_
" <b> </b> " & var_quantidade3 & vbcrlf&_
"<br><br><b> </b> " & var_pedidos4 & vbcrlf&_
" <b> </b> " & var_quantidade4 & vbcrlf&_
"<br><br><b> </b> " & var_pedidos5 & vbcrlf&_
" <b> </b> " & var_quantidade5 & vbcrlf&_
"<br><br><div align='center'><br><br><b> <br>"
msg.Send
Set msg = Nothingurl = "http://www.bsplasticos.com.br"
response.Redirect(url)
%>
</body>
</html>Carregando comentários...