Jmail发信的实例,模块化随时调用
2018-09-06 12:30
一个用jmail发信的过程，及使用方法.
发信时，直接调用这个过程就行了。
<%
dim str,HtmlBody
HtmlBody=<html><body bgcolor=red topmargin=40><p align=center>I Love 2Yup!</p></html>
str=JmailSend( hello,ILoveYou,true
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.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
%>
上一篇：如何通过ASP管理NT帐号
文章标题：Jmail发信的实例,模块化随时调用
文章链接：http://soscw.com/index.php/essay/10392.html