E-mail Resposta

[Superwagtel 1]

Tenho um formulário que insere dados no DB do access

 

Inseri um script que avisa o administrador do site enviando um alerta para sua conta de e-mail.

Quero fazer com que este mesmo formulário envie um e-mail resposta para quem preencheu o formulário

 

Para isto inseri o seguinte script no código da página

 

  'collect data from form
  
nome = UploadFormRequest("nome")
empresa = UploadFormRequest("empresa")
email = UploadFormRequest("email")
obs = UploadFormRequest("obs")

Set cdoMessage = CreateObject("CDO.Message")
With cdoMessage
.From = "Cliente"
.To = "wagner.ramos@superig.com.br"
.Subject = "Formulário Orçamento"
.HtmlBody = "================================<br><br><b>Cliente:</b> "&nome&"<br><b>Empresa:</b> "&empresa&"<br><b>E-mail:</b> "&email&"<br><b>Mensagem:</b><br> "&obs&"<br><br>================================"
.Send
End with

No caso o asp tem que coletar a variável inserida no campo "email"

E depois enviar uma mensagem de confirmação para este mesmo endereço

 

Alguém sabe como posso fazer isto?

[xanburzum 169]

você quer recuperar o conteudo de

email = UploadFormRequest("email")

e enviar a confirmação para este email !!!

no .To coloque

.To=email

 

ou você quer fazer um auto responder ?

[Superwagtel 1]

Sim Um Auto Responder

 

Estou conseguindo capturar as informações do formulário, que são enviadas para o e-mail "Determinado"

 

.To = "wagner.ramos@superig.com.br"

Porém preciso que o cliente receba uma confirmação em sua conta, no endereço preenchido no campo (email) do formulário:

"auto-responder"

 

O que devo acrescentar então neste código?

 

 

'collect data from form
  
nome = UploadFormRequest("nome")
empresa = UploadFormRequest("empresa")
email = UploadFormRequest("email")
obs = UploadFormRequest("obs")

Set cdoMessage = CreateObject("CDO.Message")
With cdoMessage
.From = "Cliente"
.To = "wagner.ramos@superig.com.br"
.Subject = "Formulário Orçamento"
.HtmlBody = "================================<br><br><b>Cliente:</b> "&nome&"<br><b>Empresa:</b> "&empresa&"<br><b>E-mail:</b> "&email&"<br><b>Mensagem:</b><br> "&obs&"<br><br>================================"
.Send
End with

Agradeço MUITO à quem puder me ajudar

[hargon 64]

Dê uma pesquisada aqui no Fórum sobre CDOSYS. O problema aí é que está faltando vários campos na configuração do envio.

 

Para fazer o "auto responder" basta repetir o código de envio e alterar os campos para e de.