<%
subJmail(correo electrónico)
Atenuar JMail,EnviarMail
Establecer JMail=Server.CreateObject("JMail.SMTPMail")
JMail.Logging=Verdadero
JMail.Charset="gb2312"
JMail.ContentType = "texto/html"
JMail.ServerAddress=Servidor SMTP
JMail.Sender=Correo electrónico del sistema
JMail.Subject=tema
JMail.Body=cuerpo del correo
JMail.AddRecipient correo electrónico
JMail.Prioridad=3
JMail.Ejecutar
Establecer JMail = nada
si te equivocas entonces
EnviarMail=err.descripción
errar.claro
demás
EnviarCorreo="OK"
terminar si
end sub
sub Cdonts(correo electrónico)
objeto oscuroCDOMail
Establecer objCDOMail = Server.CreateObject("CDONTS.NewMail")
objCDOMail.From =Correo electrónico del sistema
objCDOMail.To =correo electrónico
objCDOMail.Asunto =tema
objCDOMail.Body =cuerpo del correo
objCDOMail.Enviar
Establecer objCDOMail = Nada
si te equivocas entonces
EnviarMail=err.descripción
errar.claro
demás
EnviarCorreo="OK"
terminar si
end sub
sub aspemail(correo electrónico)
Establecer correo=Server.CreateObject("ASPMAIL.ASPMailCtrl.1")
destinatario=correo electrónico
remitente=Correo electrónico del sistema
asunto=tema
mensaje=cuerpo del correo
servidor de correo = servidor SMTP
resultado=mailer.SendMail(servidor de correo, destinatario, remitente, asunto, mensaje)
si te equivocas entonces
EnviarMail=err.descripción
errar.claro
demás
EnviarCorreo="OK"
terminar si
sub final
%>