ASPECTO.Net – Notícias

O código abaixo é um modelo de página de contato que faz uso do componente AspEmail, cujo manual pode ser encontrado aqui, e não deve ser confundido com o AspMail, da ServerObjects!

Como estamos considerando e exigência de autenticação, o remetente não pode ser o usuário que preencheu o formulário. Para contornar o problema e permitir que seja possível responder diretamente por um cliente de correio, um endereço do próprio domínio do site é utilizado como remetente e ao mesmo tempo destinatário. O endereço do solicitante é utilizado como ReplyTo.

É importante lembrar que nesse exemplo não há nenhum teste de consistência. Para uso realmente profissional o desenvolvedor precisa considerar que campos devem ser obrigatórios e se o endereço preenchido é coerente. Isso pode ser feito facilmente usando-se funçôes JavaScript.

<% if Request.Form(”botao”) = “” then %>
<form method=”post”>
<table border=”1″ align=”center” cellPadding=”5″ cellSpacing=”0″>
<tr>
<td>Seu nome
<input name=”nome” /></td>
</tr>
<tr>
<td>Seu email
<input name=”email” /></td>
</tr>
<tr>
<td>Mensagem
<textarea cols=”60″ rows=”6″ name=”mensagem”></textarea></td>
</tr>
<tr>
<td><input name=”botao” type=”submit” /></td>
</tr>
</table>
</form>
<%
else
Set oMail = Server.CreateObject(”Persits.MailSender”)
oMail.Host = “mail.dominio.com.br”
oMail.From = “contato@dominio.com.br”
oMail.UserName = “contato@dominio.com.br”
oMail.PassWord = “senha”
oMail.FromName = Request.Form(”nome”)
oMail.AddAddress “contato@dominio.com.br”, “Página de contato”
oMail.AddReplyTo Request.Form(”email”), Request.Form(”nome”)
oMail.Subject = “Contato pelo site”
oMail.Body = Request.Form (”mensagem”)
oMail.Send

If Err <> 0 Then
Response.Write “<H2>Ocorreu um erro: ” & Err.Description & “</h2>”
else
Response.Write(”<H2>Obrigado, seu e-mail foi enviado com sucesso!</H2>”)
End If
Set oMail = Nothing
end if %>

O código-fonte está em http://noticias.aspecto.net/asp/contato.txt.