Jmail發(fā)信的案例,模塊化隨時(shí)調(diào)用

"hello","smtp.sina.com.cn","hello","Password")

if str="Y" then
  response.write("發(fā)送成功")
else
  response.write("發(fā)送失敗!請(qǐng)重試!")
end if
'=================================================
'函數(shù)名：JmailSend
'作  用：用Jmail發(fā)送郵件
'參  數(shù)：Subject  郵件標(biāo)題
'        Body     郵件內(nèi)容
'        Body     郵件內(nèi)容
'        isHtml   是否發(fā)送Html格式郵件 (true 是)
'        HtmlBody Html格式郵件內(nèi)容
'　　　　MailTo   收件人Email
'        From     發(fā)件人Email
'        FromName 發(fā)件人姓名
'        Smtp     smtp服務(wù)器
'        Username 郵箱用戶名
'        Password 郵箱密碼
'返回值：JmailSend="N" 發(fā)送失敗　JmailSend="Y" 發(fā)送成功
'~~~~~~~~~~suercool~~~~~

'=================================================

function JmailSend(Subject,Body,isHtml,HtmlBody,MailTo,From,FromName,Smtp,Username,Password)
  dim JmailMsg
  set JmailMsg=server.createobject("jmail.message")
  JmailMsg.mailserverusername=Username
  JmailMsg.mailserverpassword=Password
 
  JmailMsg.addrecipient MailTo
  JmailMsg.from=From
  JmailMsg.fromname=FromName
 
  JmailMsg.charset="gb2312"
  JmailMsg.logging=true
  JmailMsg.silent=true
 
  JmailMsg.subject=Subject
  JmailMsg.body=Body
  if isHtml=true then JmailMsg.htmlbody=HtmlBody
 
  if not JmailMsg.send(Smtp) then
      JmailSend="N"
  else
      JmailSend="Y"
  end if
  JmailMsg.close
  set JmailMsg=nothing
end function  
%>