<%

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

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

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

functionSendMail(MailtoAddress,MailtoName,Subject,MailBody,FromName,MailFrom,Priority)

onerrorresumenext

DimJMail

SetJMail=Server.CreateObject("JMail.Message")

iferrthen

SendMail="<br><li>没有安装JMail组件</li>"

err.clear

exitfunction

endif

JMail.Charset="gb2312"

JMail.silent=true

JMail.ContentType="text/html"

JMail.MailServerUserName=MailServerUserName

JMail.MailServerPassWord=MailServerPassword

JMail.MailDomain=MailDomain

JMail.AddRecipientMailtoAddress,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

SetJMail=nothing

endfunction%>