O ASPMail é um componente que possibilita enviar e-mails por páginas Web. Esse objeto é normalmente utilizado para desenvolvimento de formulários. O Aspmail só está disponível para conta Windows/SQL.
Disponibilizamos um exemplo do AspMail* para envio de e-mail por páginas Web. Em <--Início ASP--> estão os códigos ASP para envio do e-mail e em <--Início HTML--> está a parte responsável por chamar os códigos ASP para o envio do e-mail.
Copie os códigos do exemplo abaixo e crie uma página ASP com o nome de aspmail.asp.
Este arquivo deve conter as partes <--Início ASP--> e <--Início HTML--> juntas, uma abaixo da outra. Faça o upload do arquivo aspmail.asp no diretório de sua preferência (dentro do htdocs).
Para o funcionamento correto do script, em <--Início ASP-->, altere apenas os campos abaixo:
" Em Mailer.FromName = "Seu_Nome", substitua a parte "Seu_Nome" pelo nome do Remetente do E-mail (seu nome).
" Na linha Mailer.FromAddress = "seu_nome@seudominio.com.br" substitua o endereço de e-mail "seu_nome@seudominio.com.br" pelo endereço de e-mail remetente (seu e-mail).
" Na linha Mailer.RemoteHost = "smtp.seudominio.com.br" substitua a parte "seudominio.com.br" pelo endereço de seu web site.
Copie os códigos aqui:
<--Início ASP--> (não copie essa linha)
<% if request("botao") = "enviar" then
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.FromName = "Seu_Nome"
Mailer.FromAddress= "seu_nome@seudominio.com.br"
Mailer.RemoteHost = "smtp.seudominio.com(.br)"
Mailer.AddRecipient "teste", request.form("para")
Mailer.Subject = request.form("assunto")
Mailer.BodyText = request.form("mensagem")
if Mailer.SendMail then
Response.Write "E-MAIL ENVIADO COM SUCESSO!"
else
Response.Write mailer.response
end if
response.end
end if
%>
<--Fim ASP--> (não copie essa linha)
<--Início HTML--> (não copie essa linha)
<html>
<head>
<title>Digiweb - Exemplo de AspMail</title>
<head>
<body>
<form method="POST" action="aspmail.asp">
<p>AspMail - Envio de E-mail através de página Web</p>
<table border="0" width="100%">
<tr>
<td width="14%">Para :</td>
<td width="86%"><input type="text" name="para" size="20"></td>
</tr>
<tr>
<td width="14%">Assunto :</td>
<td width="86%"><input type="text" name="assunto" size="20"></td>
</tr>
<tr>
<td width="14%">Mensagem :</td>
<td width="86%"><textarea rows="2" name="mensagem" cols="20"></textarea></td>
</tr>
<tr>
<td width="14%"></td>
<td width="86%"><input type="submit" value="enviar" name="botao"></td>
</tr>
</table>
</form>
</body>
</html>
<--Fim HTML--> (não copie essa linha)
* Por se tratar de programação ASP, não ofereceremos suporte se os códigos do exemplo forem alterados para inclusões de campos adicionais ou demais alterações.