作家
登录

asp通过JMAIL实现通用发送函数

作者: 来源:www.28hudong.com 2013-03-30 08:37:50 阅读 我要评论

<% '****************************** '函数:SendMail(MailtoAddress,MailtoName,Subject,MailBody,FromName,MailFrom,Priority) '参数:MailtoAddress,接收邮件地址;MailtoName,接收者姓名;ubject,主题;ailBody,邮件内容;FomName,主送姓名;ailFrom,主送邮件地址;riority,邮件等级 '作者:阿里西西 '日期:2007/7/13 '描述:JMAIL通用发送函数 '示例:<%=SendMail(MailtoAddress,MailtoName,Subject,MailBody,FromName,MailFrom,Priority)%> '****************************** function SendMail(MailtoAddress,MailtoName,Subject,MailBody,FromName,MailFrom,Priority) on error resume next Dim JMail Set JMail=Server.CreateObject("JMail.Message") if err then SendMail= "<br><li>没有安装JMail组件</li>" err.clear exit function end if JMail.Charset="gb2312" JMail.silent=true JMail.ContentType = "text/html" JMail.MailServerUserName = MailServerUserName JMail.MailServerPassWord = MailServerPassword JMail.MailDomain = MailDomain JMail.AddRecipient MailtoAddress,MailtoName JMail.Subject=Subject JMail.HMTLBody=MailBody JMail.Body=MailBody JMail.FromName=FromName JMail.From = MailFrom JMail.Priority=Priority JMail.Send(MailServer) SendMail =JMail.ErrorMessage JMail.Close Set JMail=nothing end function%>

  推荐阅读

  asp下返回以千分位显示数字格式化的数值

<% '****************************** '函数:comma(str) '参数:str,待处理的数字 '作者:阿里西西 '日期:2007/7/12 '描述:返回以千分位显示数字格式化的数值 '示例:<%=comma("120300")%> '******************>>>详细阅读


本文标题:asp通过JMAIL实现通用发送函数

地址:http://www.17bianji.com/kaifa2/ASP/32487.html

关键词: 探索发现

乐购科技部分新闻及文章转载自互联网,供读者交流和学习,若有涉及作者版权等问题请及时与我们联系,以便更正、删除或按规定办理。感谢所有提供资讯的网站,欢迎各类媒体与乐购科技进行文章共享合作。

网友点评
自媒体专栏

评论

热度

精彩导读
栏目ID=71的表不存在(操作类型=0)