» 网友学堂 » JSP教程 » Jmail发信的实例,模块化随时调用
Jmail发信的实例,模块化随时调用
作者：啦啦 发表时间：2008-6-19 02:24 阅读：48次 在百度搜索相关内容
一个用jmail发信的过程，及使用方法.
发信时，直接调用这个过程就行了。
<%
dim str,HtmlBody
HtmlBody="<html><body bgcolor="red" topmargin="40"><p align="center">I Love 2Yup!</p></html>"
str=JmailSend( "hello","ILoveYou",true,HtmlBody,"youname@domain.com",youname@sina.com,
"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
%>
#Advertisement