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

　　<%

　　'******************************

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