'函数名：MSMail

'作 用：通过JMAIL发信

'参 数：subject ---- 邮件的标题

'参 数：mailaddress ---- 邮件服务器地址

'参 数：senderName ---- 发件人名称

'参 数：email ---- 收件人E-MAIL地址

'参 数：content ---- 邮件内容

'参 数：fromer ---- 发件人E-MAIL地址

'参 数：serEmailUser ---- 邮件服务器权限用户名

'参 数：serEmailPass ---- 邮件服务器权限用户密码

'返回值：发送成功返回 True 否则 False

'示 例：MSMail("test","smtp.163.com","mzy","mzymcm@yahoo.com.cn","test","mzymcm@163.com","mzymcm","abcmzy1029abc")

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

Public Function MSMail(ByVal subject, ByVal mailaddress, ByVal senderName, ByVal email, ByVal content, ByVal fromer, ByVal serEmailUser, ByVal serEmailPass)

dim JmailMsg

MSMail=False

set JmailMsg=server.createobject("jmail.message")

JmailMsg.mailserverusername=serEmailUser

JmailMsg.mailserverpassword=serEmailPass

JmailMsg.addrecipient email

JmailMsg.from=fromer

JmailMsg.fromname=senderName

JmailMsg.charset="gb2312"

JmailMsg.logging=true

JmailMsg.silent=true

JmailMsg.subject=Subject

JmailMsg.body=Server.HTMLEncode(content)

JmailMsg.htmlbody=content

if not JmailMsg.send(mailaddress) then

MSMail=False

else

MSMail=True

end if

JmailMsg.close

set JmailMsg=nothing

End function