AspMail - Componentes para envio de E-mails
Utilize o exemplo abaixo como referência para uso do AspMail (o parâmetro "RemoteHost" não deve ser alterado):
<%
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.FromName = "Meu Nome"
Mailer.FromAddress= "eu@dominio.com.br"
Mailer.RemoteHost = "localhost"
Mailer.AddRecipient "João da Silva", "joao@provedor.com.br"
Mailer.ContentType = "text/html" ' formatação html
Mailer.Subject = "Seu pedido foi recebido"
Mailer.BodyText = "Prezado João, seu pedido será entregue em breve, obrigado pela visita."
If Mailer.SendMail Then
Response.Write "Mensagem enviada com sucesso"
Else
Response.Write "Erro " & Mailer.Response
End If
%>
Obs: No final do script é necessário atribuir o valor "Nothing" para os objetos criados. Para o exemplo acima ficaria assim:
<%Set Mailer = Nothing %>
|