[ASP] Common Email components send functions

 & lt;%Sub Jmail (email)Dim JMail,SendMailSet JMail=Server.CreateObject & quot;JMail.SMTPMail")JMail.Logging=TrueJMail.Charset="gb2312"JMail.ContentType = & quot;text/html"JMail.ServerAddress=SMTPServerJMail.Sender=SystemEmailJMail.Subject=topicJMail.Body=mailbodyJMail.AddRecipient emailJMail.Priority=3JMail.ExecuteSet JMail=nothingIf err thenSendMail=err.descriptionErr.clearElseSendMail="OK"End ifEnd subSub Cdonts (email)Dim objCDOMailSet objCDOMail = Server.CreateObject (& quot;CDONTS.NewMail")ObjCDOMail.From = SystemEmailObjCDOMail.To = emailObjCDOMail.Subject = topicObjCDOMail.Body = mailbodyObjCDOMail.SendSet objCDOMail = NothingIf err thenSendMail=err.descriptionErr.clearElseSendMail="OK"End ifEnd subSub aspemail (email)Set mailer=Server.CreateObject & quot;ASPMAIL.ASPMailCtrl.1")Recipient=emailSender=SystemEmailSubject=topicMessage=mailbodyMailserver=SMTPServerResult=mailer.SendMail (mailserver, recipient, sender, subject, message)If err thenSendMail=err.descriptionErr.clearElseSendMail="OK"End ifEnd sub% & gt

--
from: knowsky