Nesse Artigo irei mostrar como montar um simples formulario de envio de email em ASP utilizando o componente CDONTS
Primeiro crie um formulario com os Campos que desejar.
No nosso exemplo irei colocar Apenas Nome, Email e Mensagem, como mostra figura abaixo
Codigo HTML
<HTML>
<HEAD>
<title>Enviando Email por ASP</title>
</HEAD>
<BODY>
<link href="stilo.css" mce_href="stilo.css" rel="stylesheet" type="text/css">
<form name="frmContato" method="post" action="EnvioEmail.asp">
<table>
<tr>
<td align="right">Nome:</td>
<td><input type="text" name="txtNome"></td>
</tr>
<tr>
<td align="right">Email:</td>
<td><input type="text" name="txtEmail"></td>
</tr>
<tr>
<td align="right" valign="top">Mensagem:</td>
<td><textarea name="txtMensagem" rows="5"></textarea></td>
</tr>
<tr>
<td></td>
<td><input type="submit" value="Enviar"></td>
</tr>
</table>
</form>
</BODY>
</HTML>
Importante!
Os campos do formulario devem estar entra a tag <form>
Repare que o formulario tem o action para uma pagina asp EnvioEmail.asp, nessa pagina onde iremos pegar os dados do Formulario e enviar um email.
Codigo EnvioEmail.asp:
nome = request.Form("txtNome")
email = request.Form("txtemail")
mensagem = request.Form("txtMensagem")
'Cria O Objeto de email
set mailer = createobject("cdonts.newmail")
'email preenchido na Pagina HTML
mailer.from = email
'e-mail de destinatario
mailer.to = "[email protected]"
'parametro de formatação
'0 para email em HTML
'1 para email em texto
mailer.bodyformat = 0
'Titulo do Email
mailer.subject = "Contato site"
'Corpo do Email
mailer.body = mensagem
'envia o e-mail
mailer.send
'Fecha o Objeto
set mailer = nothing
'mostra uma mensagem para o Usuario
Response.Write("Mensagem Enviada")
Espero ter ajudado e até a próxima
Henrique
www.urbanmotion.com.br