USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  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+,
 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página