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 WWW).
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
%>
