Jmail发信的实例,模块化随时调用
来源:百度文库 编辑:神马文学网 时间:2024/03/29 19:20:56
一个用jmail发信的过程,及使用方法.
发信时,直接调用这个过程就行了。
<%
dim str,HtmlBody
HtmlBody="
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
%>资料引用:http://www.knowsky.com/3133.html
发信时,直接调用这个过程就行了。
<%
dim str,HtmlBody
HtmlBody="
I Love 2Yup!
"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
%>资料引用:http://www.knowsky.com/3133.html
Jmail发信的实例,模块化随时调用
JMail的使用
html在线编辑器的调用方法---原理和实例
关于如何调用google提供的web服务的的一个实例-中国DotNet俱乐部[http:/...
从Spring实例入手谈SCA Component的创建和调用
表单的调用问题
程序为什么要模块化 - dadalan的专栏 - CSDN博客
模块化设计
天气的JS左右调用
EJB调用的原理分析
Jquery的跨域调用
vbscript事件过程的调用
天气的JS左右调用
opencore Init的调用流程
帝国调用图片集的方法
能随时聊天的人
随时保持头脑的清醒
产品模块化设计与生产的优点和方法 - 爱论
Jmail发邮件出现乱码
Jmail发邮件出现乱码
delphi中调用另外的exe程序
深入理解Linux的系统调用
使用 Linux 系统调用的内核命令
Java Web Services的远端调用[图]