<% '****************************** '函数：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

 1/2    1