Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

ninho09

Email com Resposta automatica

Por , em ASP Clássico

Recommended Posts

ninho09    0

ninho09
Postado
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 = Nothing

url = "http://www.bsplasticos.com.br"
response.Redirect(url)

 
 
 %>
</body>
</html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

procure por auto-responder eu coloquei um code para isso

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

qual erro ele gera.



um auto-responder é simples, abaixo do code original que envia o email do user para o destinatário, vc copia o mesmo code , somente invertendo o remetente seu email e destinatário o email do user

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito