Ir para conteúdo
Fórum CódigoFonte.net
Entre para seguir isso  
ninho09

E-mail com Resposta automatica

Recommended Posts

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>

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
Entre para seguir isso  

×
×
  • Criar Novo...