<%
sub Jmail (e-mail)
Dim JMail,SendMail
Definir JMail=Server.CreateObject("JMail.SMTPMail")
JMail.Logging = Verdadeiro
JMail.Charset="gb2312"
JMail.ContentType = "texto/html"
JMail.ServerAddress=ServidorSMTP
JMail.Sender=E-mail do Sistema
JMail.Subject=tópico
JMail.Body = corpo do correio
E-mail JMail.AddRecipient
JMail.Priority=3
JMail.Execute
Definir JMail = nada
se errar então
SendMail=err.descrição
err.claro
outro
EnviarMail="OK"
terminar se
end sub
sub Cdonts (e-mail)
dim objCDOMail
Definir objCDOMail = Server.CreateObject("CDONTS.NewMail")
objCDOMail.From =SystemEmail
objCDOMail.To =e-mail
objCDOMail.Subject =tópico
objCDOMail.Body =corpo do correio
objCDOMail.Enviar
Definir objCDOMail = Nada
se errar então
SendMail=err.descrição
err.claro
outro
EnviarMail="OK"
terminar se
end sub
sub aspemail(e-mail)
Definir mailer=Server.CreateObject("ASPMAIL.ASPMailCtrl.1")
destinatário=e-mail
sender=E-mail do sistema
assunto=tópico
mensagem = corpo do correio
servidor de correio=servidorSMTP
resultado=mailer.SendMail(servidor de correio, destinatário, remetente, assunto, mensagem)
se errar então
SendMail=err.descrição
err.claro
outro
EnviarMail="OK"
terminar se
final sub
%>