常用Email组件发送函数 - 中国WEB开发者网络 (http://www.webasp.net) -- 技术教程 (http://www.webasp.net/article/) --- 常用Email组件发送函数 (http://www.webasp.net/article/2/1725.htm)

-- 作者：未知 -- 发布日期： 2003-07-05

<% sub Jmail(email) Dim JMail,SendMail Set JMail=Server.CreateObject("JMail.SMTPMail") JMail.Logging=True JMail.Charset="gb2312" JMail.ContentType = "text/html" JMail.ServerAddress=SMTPServer JMail.Sender=SystemEmail JMail.Subject=topic JMail.Body=mailbody JMail.AddRecipient email JMail.Priority=3 JMail.Execute Set JMail=nothing if err then SendMail=err.description err.clear else SendMail="OK" end if end sub sub Cdonts(email) dim objCDOMail Set objCDOMail = Server.CreateObject("CDONTS.NewMail") objCDOMail.From =SystemEmail objCDOMail.To =email objCDOMail.Subject =topic objCDOMail.Body =mailbody objCDOMail.Send Set objCDOMail = Nothing if err then SendMail=err.description err.clear else SendMail="OK" end if end sub sub aspemail(email) Set mailer=Server.CreateObject("ASPMAIL.ASPMailCtrl.1") recipient=email sender=SystemEmail subject=topic message=mailbody mailserver=SMTPServer result=mailer.SendMail(mailserver, recipient, sender, subject, message) if err then SendMail=err.description err.clear else SendMail="OK" end if end sub %>

webasp.net