[Tutorial]Criando um formMail em ASP

[Be.Cool]

Bem nesse tuto eu irei falar sobre formMail em ASP.
Continuando o meu aprendizado em ASP eu irei postar um materia muito facil de ser aprendida!
Estou usando o objeto CDONTS do IIS mas tem muito mais por ai.

Bom para começar vamos criar um formulário chamado de contato.asp, onde conterá os campos Nome, E-mail, Mensagem; e na ação do formulário coloque a página enviar.asp, essa será a responsável pelo envio do FormMail .

Enviar.asp

Código Selecionar Expandir

<%
Dim nome, email, mensagem, msg
Set msg=Server.CreateObject("CDONTS.NewMail")
nome=request.Form("Nome")
email=request.Form("E-mail")
mensagem=request.Form("Mensagem")
msg.BodyFormat=0
msg.MailFormat=0
msg.From=nome
msg.To="email@seusite.com.br"
msg.Subject="Titulo do Formulário"
msg.Body=nome & email & mensagem
msg.Send
Set msg=Nothing
Response.Redirect "obrigado.asp"
%>
Logo depois crie uma página de resposta, agradecendo o usuário pelo envio do Form como obrigado.asp

Explicando o Código - enviar.asp

No começo declaramoas as variavies que receberão os valores do formulário,
nome , email, mensagem, a variável msg será nossa instância do objeto CDONTS.

Set msg=Server.CreateObject("CDONTS.Newmail")

nome=Request.Form("Nome")
email=Request.Form("E-mail")
mensagem=Request.Form("Mensagem")

Nas 3 linhas de cima recuperamos os valores dos campos do nosso formulário,
e logo abaixo começamos montar a mensagem a ser enviado.

msg.BodyFormat=0
msg.MailFormat=0

Acima enviamos um e-mail no formtado HTML, quando for 0 o formatdo é HTML, 1 o formato é texto.

1 - msg.From=nome
2 - msg.To="email@seusite.com.br"
3 - msg.Subject="Titulo do Formulário"
4 - msg.Body=nome & email & mensagem
5 - msg.Send
6 - Set msg=Nothing
7 - Response.Redirect "obrigado.asp"

Usando nosso objeto do envio de e-mail o msg onde:
1 - Vai o nome de quem ou qual usuário que está enviando a mensagem.
2 - Para qual e-mail vai a mensagem.
3 - Título, assunto da Mensagem
4 - Esse é o Corpo da mensagem, onde ele recebe as variaveis nome, email e mensagem
5 - Enviamos a Mensagem!!!!!
6 - Destruímos nosso objeto
7 - Redirecionamos o usuário para a página de agradecimento obrigado.asp

Bom isso, tuto bem simples e explicativo!


fonte:CodigoFonte.Net


fui.

[branco]

"How about CDONTs?

Microsoft has discontinued the use of CDONTs on Windows 2000, Windows XP and Windows 2003. If you have used CDONTs in your ASP applications, you should update the code and use the new CDO technology."

recomendo http://www.w3schools.com/asp/asp_send_email.asp


vlw pelo conteudo Be.Cool