IDC资讯中心
（接上篇）
8、 attachment对象
属性（或方法）
描述
new(filename,contenttype,data):pointer
创建一个可以加入到attachments集合的附件。如果指定data的值，那么jmail将创建一个以data参数为内容的自定义附件。
savetofile(filename)
保存附件到硬盘。
contenttype():string
返回附件类型（contenttype）
data():string
返回附件的内容。
binarydata():string
以二进制模式返回附件的内容。
isinline():boolean
如果附件被设置为可嵌入（inline）,则返回true。
name():string
返回附件的文件名称。
size():integer
返回附件的大小。
9、 mailmerge对象
属性（或方法）
描述
bulkmerge(recordset,enque,maildestination)
参照邮件模板合并所有记录，要指定使用的pickuo文件夹或邮件服务器。
expand():pointer
参照用户指定的方式合并邮件模板（mailtemplate）。
expandfromrecordset(recordset):pointer
参照邮件模板（mailtemplate）合并ado对象中的一例。
setdebugmode(testmailaddress,testcount)
将邮件合并（mailmerge）设置为测试模式。
item(variablenmae):string
手工设置合并参数。注意：该功能不使用于ado数据例的合并。
mailtemplate():pointer
设置一个创建好的message对象，这个对象将被作为邮件合并的模板。
mergeattachments():boolean
当该属性设置为 true时，附件被作为邮件合并的一个选项。
10、 pgpkeys对象
属性（或方法）
描述
count():integer
返回密码的总数。
item(index):pointer
返回pgpkey信息对象。
11、 pgpkeyinfo对象
属性（或方法）
描述
keycreatedate():string
返回邮件密码创建的时间。
keyid():string
返回密码的id号。
keyuser():string
返回创建密码的用户名。
12、 speedmailer对象
属性（或方法）
描述
enquemail(fromemail,recipientemails,
subject,body,mspickupdirectory)
添加一个邮件到发送队列。内容、主题等数据通过该方法的参数传递。
sendmail(fromemail,recipientemails,
subject,body,mailservers)
通过smtp发送一封邮件。内容、主题等数据通过该方法的参数传递。
sendxmlmail(xml)
关于该函数的用法请访问：http://xml.dimac.net/namespace/jmail
四、利用jmail4.3邮件组件发送邮件示例：
通过以上的介绍，相信读者对dimac w3 jmail及其一些常用的对象已有了比较全面的了解。下面将通过一个例子来讲解如何创建w3 jmail对象，并使用它来创建一个新邮件，设置邮件的标题、内容等并发送该邮件。
jmailsend.asp
<%@language=”vbscript”%>
<%
response.buffer=true
‘创建jmail.message对象实例ojmail
set ojmail=server.createobject(“jmail.message”)
‘启动日志功能
ojmail.logging=true
‘不将错误返回给操作系统
ojmail.silent=true
‘设置邮件发送者的邮件地址
ojmail.from=”jackywen01@163.com”
‘设置邮件发送者的姓名
ojmail.fromname=”小虎”
‘设置接收邮件人的邮箱地址
ojmail.addrecipient “yourfriend@163.com”
‘设置邮件标题
ojmail.subject=”邮件测试系统”
‘邮件正文
ojmail.body=”朋友：”&vbcrlf&vbcrlf&”最近，我使用jmail开发一个邮件发送系统。”
‘发送邮件，mail.mydomain.com假设为smtp服务器
ojmail.send(“mail.mydomain.com”)
%>
接下来我们再来看一个比较简单的邮件接收系统。这个例子的执行过程，首先是从存放邮件的服务器上取出邮件，然后把它同附件一起显示在web也面上。
jmailreceipt.asp
<% @language=vbscript %>
<%
set pjmail = server.createobject( "jmail.pop3" )
pjmail.connect "username", "password", "mail.mydomain.com"
response.write( "你有 " & pjmail.count & " 封新邮件<br><br>" )
if pjmail.count > 0 then
set msg = pjmail.messages.item(1)
reto = ""
recc = ""
set recipients = msg.recipients
separator = ", "
for i = 0 to recipients.count – 1
if i = recipients.count – 1 then
separator = ""
end if
set re = recipients.item(i)
if re.retype = 0 then
reto = reto & re.name & " (" & re.email & ")" & separator
else
recc = reto & re.name & " (" & re.email & ")" & separator
end if
next
function getattachments()
set attachments = msg.attachments
separator = ", "
for i = 0 to attachments.count – 1
if i = attachments.count – 1 then
separator = ""
end if
set at = attachments(i)
at.savetofile( "c:\fujian\" & at.name )
getattachments = getattachments & "<a href=""/fujian/" &_
at.name &""">" & at.name & "(" & at.size & " bytes)" &_
"</a>" & separator
next
end function
%>
<html>
<body>
<table>
<tr>
<td>主题</td>
<td><%= msg.subject %></td>
</tr>
<tr>
<td>发件人</td>
<td><%= msg.fromname %></td>
</tr>
<tr>
<td>收件人</td>
<td><%= reto %></td>
</tr>
<tr>
<td>抄送人</td>
<td><%= recc %></td>
</tr>
<tr>
<td>附件</td>
<td><%= getattachments %></td>
</tr>
<tr>
<td>正文</td>
<td><pre><%= msg.body %></pre></td>
</tr>
</table>
</body>
</html>
<%
end if
pjmail.disconnect ‘断开pop3连接
%>
至此，一个简单的邮件发送和接收系统就开发完成了。至于有些网友要开发比较复杂的邮件系统，可以结合以上所讲的对象及其属性方法来开发，肯定会开发出功能强大齐全的邮件系统。
