<%
Set oMail = Server.CreateObject("SMTPsvg.Mailer")
oMail.RemoteHost = "localhost"
oMail.FromName = "Nome do Remetente"
oMail.FromAddress = "remetente@dominio.com.br"
oMail.AddRecipient "Nome do Destinatario", "destinatario@dominio.com.br"
oMail.Subject = "Assunto da mensagem"
oMail.BodyText = "Texto da Mensagem."
oMail.SendMail
Set oMail = Nothing
%>
|