Seções iMasters
Linguagens

Colocando auto-responder em formulários

Para  que específicamente
utilizaremos auto-responders?
 
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

Qual a sua opinião?