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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Visitante
Responder

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Processando...
Entre para seguir isso  

×
×
  • Criar Novo...