0

我现在的位置：

知识分享

完善时间：2018-10-30 10:34:55会员：bekda目录：电脑网络 - 网站建设浏览：4944 次

JMail 邮件收发组件函数（ASP代码）：

<%
'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格式
	JMail.From=abc@bekda.com '发件人的E-MAIL地址
	Jmail.MailServerUserName=abc@bekda.coabcm '登录邮件服务器的用户名，请自行设置
	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.bekda.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="123@163.com"	'收件人地址
MailTitle="邮件标题" '邮件标题
MailBody="邮件内容，可包含HTML代码" '邮件正文

'调用Jmail邮件发送函数
SendStaus=SendMail(Email,MailTitle,MailBody)

'Jmail邮件是否发送成功判断
if SendStaus="Y" then
	'发送成功执行操作
else
	'发送失败执行操作
end if
%>

有关Jmail组件更多的功能及参数，请参照Jmail组件手册：

Jmail 4.5 英文版完整手册下载（PDF格式，点击下载）

典型用户：

新闻与公告：