MrYang's Blog

版权声明：转载时请以超链接形式标明文章原始出处和作者信息及本声明
http://www.mryang.org/logs/16101480.html

　　JMail组件是Dimac 公司的邮件收发组件，这是一个非常成熟和强大的邮件组件。它不但可以完成发邮件的工作，还可以POP收信，并支持收发邮件时的PGP加密，内置一个群发邮件的对象，可以使群发编程更简单。

即使是很多其他组件也都能完成的发邮件功能，JMail 的完成也可以称得上最出色的，除了常见的抄送暗送等多收件人功能外，它还支持添加嵌入式图片附件，并且可以从URL读取文件作为附件。

现在的很多ASP的虚拟主机都提供了JMail组件，您可以利用它开发自己的邮件程序，而且很容易就实现了。 我很早就使用过JMail，但当时的资料之来自于虚拟主机提供商，在线的邮件发送只能发送给提供商的提供的邮箱，想要发送给其他的邮箱（如163.com,sina.com）就不能实现，最近在仔细查找资料后发现，可以实现这个功能，而且实现也很简单。

关于JMail的中文手册可以到这里下载：http://www.ajiang.net/products/aspcheck/coms.asp

以下代码检测你的主机是否安装了JMail组件：
<%
'检测是否支持jmail组件
if session("jiance_jmail")<>"1" then
session("jiance_jmail")="1"
on error resume next
Dim JMail
Set JMail=Server.CreateObject("JMail.Message")
if err then
session("jiance_jmail")="2"
call cuowu()
err.clear
end if
JMail.Close()
Set JMail = Nothing

end if
%>

以下代码发送邮件：
Set JMail=Server.CreateObject("JMail.Message")
JMail.Charset="gb2312" '邮件编码
JMail.silent=true
JMail.ContentType = "text/html" '邮件正文格式
JMail.MailServerUserName = "webmaster" '登录用户名
JMail.MailServerPassWord = "××××××" '登录密码
JMail.MailDomain = "stumental.com" '域名
JMail.AddRecipient "abc@yahoo.com","abc" '收信人
JMail.Subject="Jmail Test" '主题
JMail.Body="This is a Jmail Test" '邮件正文（纯文本格式）
JMail.FromName="Jmail" '发信人姓名
JMail.From = "abcl@stumental.com" '发信人Email
JMail.Priority=1 '邮件等级，1为加急，3为普通，5为低级
JMailerror=JMail.Send(MailServer)
if JMailerror then
response.write"发送成功！"
else
response.write”发送失败！”
end if
JMail.Close()
Set JMail = Nothing
%>