As instruções de uso são as seguintes:
<%@LANGUAGE="VBSCRIPT"%>
<%
opção explícita
dim DbConn,connstr,db
Informações de configuração de e-mail
dim SmtpHost, AdminName, AdminEmail, NeedAuth, EmailAccount, EmailPW
SmtpHost="smtp.263.net"
AdminEmail="[email protected]"
NeedAuth=true se a autenticação é necessária
EmailAccount = "hubdog"
E-mailPW="XXXX"
AdminName="Administrador"
Enviar e-mail
função SendMail(E-mail, Assunto, Corpo)
definir MailSender=Server.CreateObject("IndyMail.MailSender")
MailSender.SetBody Corpo
MailSender.SetFrom """"+AdminName+""" <"+AdminEmail+">"
MailSender.SetHost SmtpHost
MailSender.SetAuth NeedAuth
MailSender.SetSenderName EmailAccount
MailSender.SetSenderPW EmailPW
MailSender.SetSubject Assunto
MailSender.SetTo E-mail
SendMail=MailSender.Enviar
função final
%>