Les instructions d'utilisation sont les suivantes :
<%@LANGUAGE="VBSCRIPT"%>
<%
option explicite
faible DbConn,connstr,db
Informations de configuration de messagerie
dim SmtpHost, AdminName, AdminEmail, NeedAuth, EmailAccount, EmailPW
SmtpHost="smtp.263.net"
AdminEmail="[email protected]"
NeedAuth=true si l'authentification est requise
EmailAccount="hubdog"
E-mailPW="XXXX"
AdminName="Administrateur"
Envoyer un e-mail
fonction SendMail (Email, Objet, Corps)
set MailSender=Server.CreateObject("IndyMail.MailSender")
Corps de MailSender.SetBody
MailSender.SetFrom """"+AdminName+""" <"+AdminEmail+">"
MailSender.SetHost SmtpHost
MailSender.SetAuth NeedAuth
MailSender.SetSenderName EmailAccount
MailSender.SetSenderPW EmailPW
Objet MailSender.SetSubject
MailSender.SetTo Email
SendMail=MailSender.Envoyer
fonction de fin
%>