Criando um FormMail em ASP

[fernandosena]

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 .

Abaixo está o Código do script enviar.asp ::

<%
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 &amp; email &amp; 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 &amp; email &amp; 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