Asp常用通用函数之通过JMAIL发信

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