Este es un ejemplo básico:
<% Set Mailer = Server.CreateObject("SoftArtisans.SMTPMail")'por lo general se usa cdo
Mailer.FromName = "dominio.com"
Mailer.FromAddress= "cuenta@dominio.com"
Mailer.RemoteHost = "mail.dominio.com"
Mailer.AddBCC "", "" & request.form("para") & ""
Mailer.Subject = "Un amigo te recomienda este sitio !"
Mailer.BodyText = "La familia xxxx te desea Felíz Navidad y Próspero Año Nuevo."
if Mailer.SendMail then
Response.Write "enviado"
else
Response.Write "Mail send failure. Error es " & Mailer.Response
end if
Response.Redirect "default.asp" %>