Exemplos
do componente ASPEMAIL (Persits.MailSender)
Utilizando o AspEmail para Enviar Mensagens (somente para
utilização das funçoes GRATUITAS)
(o parâmetro "Mail.Host" não
deve ser alterado):
<%
Set Mail = Server.CreateObject("Persits.MailSender")
’Servidor de SMTP
Mail.Host = "localhost"
’E-mail do remetente
Mail.From = "eu@meuDominio.com.br"
’Remetente
Mail.FromName = "Eu"
Mail.AddAddress "destinatario@dominio.com.br",
"Nome do Destinatário"
’Assunto da mensagem
Mail.Subject = "TESTE DO ASPEMAIL"
’Corpo da mensagem
Mail.Body = "Olá!" & Chr(13)
& Chr(10) & "Isso é apenas um
teste do componente ASPEmail"
’Utilize este código caso o formato do e-mail
seja HTML
’ Mail.IsHTML = True
’Utilize este código caso for enviar anexo.
’Mail.AddAttachment("E:\vhosts\SEU_DOMINIO_COMPLETO\httpdocs\o-arquivo"),
On Error Resume Next
Mail.Send
If Err <> 0 Then
Response.Write "Error encountered: " &
Err.Description
End If
%>
Obs: No final do script é necessário
atribuir o valor "Nothing" para os objetos
criados. Para o exemplo acima ficaria assim:
<%Set Mail = Nothing%>
Lembramos que o código informado acima é
um simples exemplo de implementação
utilizando o componente ASPEmail. Para maiores detalhes
referente a programação, sugerimos
que verifique no próprio site do fabricante:
http://www.aspemail.com/
[Voltar para o topo da página]