<%
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.FromName = "Status Update Report"
Mailer.FromAddress = "useyour@isphostnamehere.com"
Mailer.RemoteHost = "smtp.esope.com.br"
Mailer.AddRecipient "Your Recipient", "leonatu1@yahoo.com.br"
Mailer.Subject = "Teste"
Mailer.ContentType = "text/html"
Mailer.BodyText = "Here's some info"
if Mailer.SendMail then
Response.Write "Mail sent..."
else
Response.Write "Mail failure. Check mail host server name and tcp/ip connection..."
Response.Write "" & Mailer.Response
end if
%>