Las instrucciones de uso son las siguientes:
<%@LANGUAGE="VBSCRIPT"%>
<%
opción explícita
tenue DbConn,connstr,db
Información de configuración de correo electrónico
dim SmtpHost, AdminName, AdminEmail, NeedAuth, EmailAccount, EmailPW
SmtpHost="smtp.263.net"
Correo electrónico de administración="[email protected]"
NeedAuth=true si se requiere autenticación
Cuenta de correo electrónico="hubdog"
Correo electrónicoPW="XXXX"
AdminName="Administrador"
Enviar correo electrónico
función EnviarMail(Correo electrónico, Asunto, Cuerpo)
establecer MailSender=Server.CreateObject("IndyMail.MailSender")
MailSender.SetBody Cuerpo
MailSender.SetFrom """"+AdminName+""" <"+AdminEmail+">"
MailSender.SetHost SmtpHost
MailSender.SetAuth NecesitaAuth
MailSender.SetSenderName Cuenta de correo electrónico
MailSender.SetSenderPW Correo electrónicoPW
Asunto MailSender.SetSubject
MailSender.SetTo Correo electrónico
EnviarMail=MailSender.Enviar
función final
%>