现在的位置: 网页制作教程网站制作教程 >正文
代码插件

Jmail邮件发送组件详解(ASP)

发表于2017/1/16 网站制作教程 0条评论 ⁄ 热度 2,295℃

本文主要介绍Jmail邮件发送组件的详细使用方法。下面是ASP jmail邮件发送组件函数:

<%
'Jmail发送邮件函数:SendMail(收件人地址,邮件标题,邮件正文),发送成功返回"Y",反之"N"
Function SendMail(Email,MailTitle,MailBody)
dim JMail,MailTxt
MailTxt="<style></style><body>"&MailBody&"</body>" '自定义邮件样式
Set JMail=Server.CreateObject("JMail.Message") '创建JMAIL对象
Jmail.silent=true '忽略所有错误代码,只返回:失败FALSE、成功TRUE
Jmail.logging=false '是否启用邮件日志Jmail.log
JMail.Charset="GB2312" '邮件的文字编码GB2312/UTF-8
JMail.ContentType="text/html" '邮件的格式为HTML格式
[email protected] '发件人的E-MAIL地址
[email protected] '登录邮件服务器的用户名,请自行设置
Jmail.MailServerPassword="******" '登录邮件发送服务器的密码,请自行设置
JMail.FromName="贝加达电子科技" '发件人名称,请自行设置
JMail.Pabcrity=1 '邮件的紧急程度:3、中等(默认值),1、最快,5、最慢
JMail.AddRecipient(Email)
JMail.Subject=MailTitle
JMail.Body=MailTxt
SendMail="N"
if JMail.Send("smtp.domain.com") then SendMail="Y" end if '邮件发送服务器,请自行设置
JMail.Close()	'关闭邮件对象
Set JMail=nothing
End Function
%>

调用Jmail邮件发送函数ASP实例:

<%
dim SendStaus:SendStaus="N" '初始化邮件发送状态
'设置Jmail邮件发送函数参数
dim Email,MailTitle,MailBody
Email="[email protected]"	'收件人地址
MailTitle="邮件标题" '邮件标题
MailBody="邮件内容,可包含HTML代码" '邮件正文
'调用Jmail邮件发送函数
SendStaus=SendMail(Email,MailTitle,MailBody)
'Jmail邮件是否发送成功判断
if SendStaus="Y" then
'发送成功执行操作
else
'发送失败执行操作
end if
%>

Jmail邮件发送组件ASP版详解就介绍到这。

  • 暂无评论