Shopping Hospedagem Fórum Contato
     
   O portal do desenvolvedor ASP Florianópolis-SC, Segunda-feira - 22 de Outubro de 2018  
Busca

Menu do site
Efetuar Login
Usuário:

Senha:

 Esqueceu a senha?
Login automático

 Cadastre-se
Criando autoresponder para seus formulários
Avaliações: 4   -   Minha nota: Média Geral: 26  
 

Para que específicamente utilizaremos autoresponders ?
A príncipio você pode até achar que não há utilidade, mas na verdade autoresponder
são úteis e muito.

Digamos que você possua uma loja de venda de produtos on-line, qual a melhor maneira
de confirmar a compra do cliente?

Ou então você possui uma área restrita no site onde somente usuários cadastrados
podem entrar, qual a melhor maneira do usuário não esquecer sua senha, avisando para
ele anotar em um papel e não perder ?

Além de todas estas condições, os autoresponder dão as pessoas mais tranquilidade de que
seus dados, suas compras ou etc... realmente foram submetidos com êxito.

OBS: Utilizarei o componente CDONTS do IIS como exemplo.

Vou mostrar agora a vocês um exemplo de um script que recupera dados
de um formulário Html com o campo "Nome" e "Email" e envia-os dados
para o webmaster por email e ao mesmo tempo envia um email de agradecimento
para o usuário que se cadastrou.

<%

'   Atribuindo os dados do formulário submetido as váriveis strNome e strEmail
'
strNome = Trim(Request.Form("nome"))
strEmail = Trim(Request.Form("email"))
     
'   Agora vamos criar uma conexão com o CDONTS para enviar os dados
'   submetidos para o webmaster do site.

'
  O Email será enviado pelo usuário recém cadastrado

   Set objMail = Server.CreateObject("CDONTS.NewMail")
   objMail.To = "email@do.webmaster.do.site"
   objMail.From = strEmail      
   objMail.Subject = "Solicito cadastro no site!"

' Vamos criar agora uma mensagem padrão a ser enviado para o webmaster
' vbcrlf = quebra de linha

strMsgParaCadastro = "Nome: " & strNome & vbcrlf
strMsgParaCadastro = strMsgParaCadastro & "Email: " & strEmail & vbcrlf
strMsgParaCadastro = strMsgParaCadastro & "-----------------------------"

   objMail.Body = strMsgParaCadastro
   objMail.Send

'
Email para o webmaster enviado, portanto fechamos a conexão com o CDONTS

   Set objMail = nothing

' Agora imediatamente, criamos a mensagem padrão que será enviada de agradecimento
' ao usuário recém cadastrado.

strMsgObrigado = "Olá " & strNome & vbcrlf
strMsgObrigado = strMsgObrigado & "Obrigado por se cadastrar em nosso site" & vbcrlf
strMsgObrigado = strMsgObrigado & "Breve você receberá mais informações." & vbcrlf & vbcrlf
strMsgObrigado = strMsgObrigado & "Abraços," & vbcrlf
strMsgObrigado = strMsgObrigado & "Webmaster"

' Criando novamente outra conexão com o CDONTS para enviar o email ao usuário.

      Set objMail = Server.CreateObject("CDONTS.NewMail")
      objMail.From = "email@do.webmaster.do.site"
      objMail.To = strEmail    ' observe
      objMail.Subject = "Seu cadastro em nosso site!"
      objMail.Body = strMsgObrigado
      
      objMail.Send

' Pronto. Um email de agradecimento com uma mensagem personalizada com o nome
' de cada usuário foi enviado por email.
' Simples e muito eficiente

%>

 
 
 





SuperASP do Brasil Ltda

03.066.522/0001-84
Av. Rio Branco 433 - Centro - Florianopolis - SC
Contato

© 2001/2008 - Superasp do Brasil Ltda. Todos os direitos reservados