|
|
|
|
|
|
|
|
Dicas
|
|
|
ASP - Active Server Page (Miscelâneas)
|
|
 |
Título da Dica: Criando autoresponder para seus formulários
|
 |
|
|
|
Postada em 7/10/2003 por ^HEAVY-METAL^
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
Escrito por Fernando D'angelo
Todos os direitos autorais dos artigos pertencem ao seu autor.
T+,
|
|
|
|
|
