明辉手游网中心:是一个免费提供流行视频软件教程、在线学习分享的学习平台!

Jmail发信的案例,模块化随时调用

[摘要]一个用jmail发信的过程,及使用方法.发信时,直接调用这个过程就行了。"hello","smtp.sina.com.cn","hello"...

一个用jmail发信的过程,及使用方法.
发信时,直接调用这个过程就行了。

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

if str="Y" then
  response.write("发送成功")
else
  response.write("发送失败!请重试!")
end if
'=================================================
'函数名:JmailSend
'作  用:用Jmail发送邮件
'参  数:Subject  邮件标题
'        Body     邮件内容
'        Body     邮件内容
'        isHtml   是否发送Html格式邮件 (true 是)
'        HtmlBody Html格式邮件内容
'    MailTo   收件人Email
'        From     发件人Email
'        FromName 发件人姓名
'        Smtp     smtp服务器
'        Username 邮箱用户名
'        Password 邮箱密码
'返回值:JmailSend="N" 发送失败 JmailSend="Y" 发送成功
'~~~~~~~~~~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
 
%>