<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME="GENERATOR" C>
</HEAD>
<BODY>
<%
dim objrec
Dim Rec
Dim Rs
Dim strURL
Dim strQ
Dim strSubj
Dim DomainName
Dim strLocalPath
Set Rec = CreateObject("ADODB.Record")
set objrec=createobject("adodb.record")
Set Rs = CreateObject("ADODB.Recordset")
'set conn=createobject("adodb.connection")
' set your own values to these variables:
DomainName = "oaserver.exchange"
strLocalPath = "MBX/administrator/收件箱"
strURL = "file://./backofficestorage/" & DomainName & "/" & strLocalPath
objRec.Open strURL
surlinbox = objrec.Fields("urn:schemas:httpmail:inbox")
objrec.close
rec.Open surlinbox', ,' objrec.ActiveConnection
' build the query string
strQ = "select "
strQ = strQ & " ""urn:schemas:mailheader:date"""
strQ = strQ & ", ""urn:schemas:httpmail:sendername"""
strQ = strQ & ", ""urn:schemas:httpmail:textdescription"""
strQ = strQ & ", ""urn:schemas:httpmail:htmldescription"""
strQ = strQ & ", ""urn:schemas:httpmail:read"""
strQ = strQ & ", ""urn:schemas:mailheader:from"""
strQ = strQ & ", ""urn:schemas:mailheader:to"""
strQ = strQ & ", ""urn:schemas:mailheader:subject"""
strQ = strQ & ", ""urn:schemas:mailheader:received"""
strQ = strQ & ", ""DAV:contentclass"""
strQ = strQ & ", ""DAV:displayname"""
strQ = strQ & ", ""DAV:href"""
strQ = strQ & " from scope ('shallow traversal of "
strQ = strQ & Chr(34) & strURL & Chr(34) & "') "
' sort received time in descending order(can also use ascending)
strQ = strQ & " ORDER BY ""urn:schemas:mailheader:received"" DESC"
Rs.Open strQ, Rec.ActiveConnection
Rs.MoveFirst
response.write "<b>Totalcount:(邮件总数)</b><br>"
response.write rs.recordcount&"<br>"
'display all of the sorted messages
Do Until Rs.EOF
i=i+1
'response.write i
Response.Write "<b>Subject:(number"&i&")</b><br>"
Response.Write Rs.Fields("urn:schemas:mailheader:subject").Value & "<br>"
Response.Write "<b>sender name:</b><br>"
Response.Write Rs.Fields("urn:schemas:httpmail:sendername").Value & "<br>"
Response.Write "<b>是否已读:</b><br>"
if Rs.Fields("urn:schemas:httpmail:read").Value then
Response.Write "<font color='green'>已读邮件</font><br>"
else
Response.Write "<font color='blue'>未读邮件</font><br>"
end if
Response.Write "<b><font color='red'>text body:(邮件内容)</font></b><br>"
Response.Write "<textarea>"&Rs.Fields("urn:schemas:httpmail:textdescription").Value & "</textarea><br>"
Response.Write "<b>Send to:</b><br>"
Response.Write Rs.Fields("urn:schemas:mailheader:to").Value & "<br>"
Response.Write "<b>send from:</b><br>"
Response.Write Rs.Fields("urn:schemas:mailheader:from").Value & "<br>"
Response.Write "<b>Date send:</b><br>"
Response.Write Rs.Fields("urn:schemas:mailheader:date").Value & "<br>"
Response.Write "<b>Date Received:</b><br>"
Response.Write Rs.Fields("urn:schemas:mailheader:date").Value & "<br>"
Response.Write "<b>Content-Class:</b><br>"
Response.Write Rs.Fields("DAV:contentclass").Value & "<br>"
Response.Write "<b>displayname:</b><br>"
Response.Write Rs.Fields("DAV:displayname").Value & "<br>"
Response.Write "<b>URL:</b><br>"
Response.Write Rs.Fields("DAV:href").Value & "<br>"
Response.Write "</p>"
Rs.MoveNext
Loop
'Rs.Close
'Rec.Close
set rs=nothing
set rec=nothing
set conn=nothing
set objrec=nothing
%>
<P> </P>
</BODY>
</HTML>
这是读取administrator的收件箱的例子！你可以根据不同用户稍作修改！
其中邮件的属性可以使用exchange explorer或者wss explorer查找一下！