如何以编程方式获得 Exchange 中邮箱的大小

出处：微软中国作者：微软中国时间：2005-8-29 13:47:00

本页

	概要
	更多信息
		扩展 MAPI 方法
		CDO 1.21 方法
		ActiveX 数据对象 (ADO) 方法
		WebDAV 方法
	这篇文章中的信息适用于:

概要

本文描述如何使用 Microsoft Visual C、Microsoft Visual C++、Microsoft Visual Basic 和 Microsoft Visual Basic Scripting Edition (VBScript) 在运行 Microsoft Exchange 的服务器上以编程方式检索有关邮箱大小的信息。

更多信息

扩展 MAPI 方法

可用的编程语言：Visual C 和 Visual C++
Exchange Server 版本：Exchange Server 5.5、Exchange 2000 和 Exchange 2003

扩展 MAPI 提供了 IExchangeManageStore 接口以从 Exchange 信息存储区获得管理信息。此接口提供了 GetMailboxTable 函数，该函数返回包含有关特定服务器上邮箱信息的 IMAPITable 接口。请注意此函数要求具有对运行 Exchange Server 的服务器的管理权限。

此表包含的列提供了有关每个邮箱大小的信息。PR_MESSAGE_SIZE 属性包含邮箱的大小（以字节为单位）。

有关其他信息，请访问下面的 Microsoft Developer Network (MSDN) 网站：

IExchangeManageStore::GetMailboxTable
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/exchserv/html/intrface_24it.asp (http://msdn.microsoft.com/library/default.asp?url=/library/en-us/exchserv/html/intrface_24it.asp)

有关其他信息，请单击下面的文章编号，以查看 Microsoft 知识库中相应的文章：

200160 (http://support.microsoft.com/kb/200160/) 如何使用 GetMailboxTable 循环完 Exchange 上的邮箱

CDO 1.21 方法

可用的编程语言：VBScript、Visual Basic、Visual C 和 Visual C++
Exchange Server 版本：Exchange Server 5.5、Exchange 2000 和 Exchange 2003

可以使用协作数据对象 (CDO) 1.21 通过 CDO InfoStore 对象，检查用户邮箱存储上的相同属性。在此方法中，应用程序必须先登录到邮箱，然后才可以检查此属性。这意味着应用程序必须能够访问服务器上的所有邮箱。此方法还要求生成服务器上邮箱的列表，并在代码中循环完这些邮箱。

下面的示例是一个简单的 VBScript 代码示例，可以检查邮箱上的此属性。要使用此示例，请将下面的代码粘贴到一个新的文本文件，然后将此文件命名为 Mailboxsize.vbs：

'This script logs on to a server that is running Exchange Server and'displays the current number of bytes that are used in the user's'mailbox and the number of messages.' USAGE: cscript MailboxSize.vbs SERVERNAME MAILBOXNAME' This requires that CDO 1.21 is installed on the computer.' This script is provided AS IS. It is intended as a SAMPLE only.' Microsoft offers no warranty or support for this script.' Use at your own risk.' Get command line arguments.Dim obArgsDim cArgsSet obArgs = WScript.ArgumentscArgs = obArgs.CountMainSub Main()   Dim oSession   Dim oInfoStores   Dim oInfoStore   Dim StorageUsed   Dim NumMessages   Dim strProfileInfo   Dim sMsg   On Error Resume Next   If cArgs <> 2 Then      WScript.Echo "Usage: cscript MailboxSize.vbs SERVERNAME MAILBOXNAME"      Exit Sub   End If   'Create Session object.   Set oSession = CreateObject("MAPI.Session")   if Err.Number <> 0 Then      sMsg = "Error creating MAPI.Session."      sMsg = sMsg & "Make sure CDO 1.21 is installed. "      sMsg = sMsg & Err.Number & " " & Err.Description      WScript.Echo sMsg      Exit Sub   End If   strProfileInfo = obArgs.Item(0) & vbLf & obArgs.Item(1)   'Log on.   oSession.Logon , , False, True, , True, strProfileInfo   if Err.Number <> 0 Then      sMsg = "Error logging on: "      sMsg = sMsg & Err.Number & " " & Err.Description      WScript.Echo sMsg      WScript.Echo "Server: " & obArgs.Item(0)      WScript.Echo "Mailbox: " & obArgs.Item(1)      Set oSession = Nothing      Exit Sub   End If   'Grab the information stores.   Set oInfoStores = oSession.InfoStores   if Err.Number <> 0 Then      sMsg = "Error retrieving InfoStores Collection: "      sMsg = sMsg & Err.Number & " " & Err.Description      WScript.Echo sMsg      WScript.Echo "Server: " & obArgs.Item(0)      WScript.Echo "Mailbox: " & obArgs.Item(1)      Set oInfoStores = Nothing      Set oSession = Nothing      Exit Sub   End If   'Loop through information stores to find the user's mailbox.   For Each oInfoStore In oInfoStores      If InStr(1, oInfoStore.Name, "Mailbox - ", 1) <> 0 Then         '&HE080003 = PR_MESSAGE_SIZE         StorageUsed = oInfoStore.Fields(&HE080003)         if Err.Number <> 0 Then            sMsg = "Error retrieving PR_MESSAGE_SIZE: "            sMsg = sMsg & Err.Number & " " & Err.Description            WScript.Echo sMsg            WScript.Echo "Server: " & obArgs.Item(0)            WScript.Echo "Mailbox: " & obArgs.Item(1)            Set oInfoStore = Nothing            Set oInfoStores = Nothing            Set oSession = Nothing            Exit Sub         End If         '&H33020003 = PR_CONTENT_COUNT         NumMessages = oInfoStore.Fields(&H36020003)         if Err.Number <> 0 Then            sMsg = "Error Retrieving PR_CONTENT_COUNT: "            sMsg = sMsg & Err.Number & " " & Err.Description            WScript.Echo sMsg            WScript.Echo "Server: " & obArgs.Item(0)            WScript.Echo "Mailbox: " & obArgs.Item(1)            Set oInfoStore = Nothing            Set oInfoStores = Nothing            Set oSession = Nothing            Exit Sub         End If         sMsg = "Storage Used in " & oInfoStore.Name         sMsg = sMsg & " (bytes): " & StorageUsed         WScript.Echo sMsg         WScript.Echo "Number of Messages: " & NumMessages      End If   Next   ' Log off.   oSession.Logoff   ' Clean up memory.   Set oInfoStore = Nothing   Set oInfoStores = Nothing   Set oSession = NothingEnd Sub

ActiveX 数据对象 (ADO) 方法

可用的编程语言：VBScript、Visual Basic、Visual C 和 Visual C++
Exchange Server 版本：Exchange 2000 和 Exchange 2003

在 Exchange 2000 和 Exchange 2003 中，您可以通过 ActiveX 数据对象 (ADO) 访问 Exchange 信息存储区。存储在邮箱上的属性均不包含总计大小。但是，用户邮箱中的每个文件夹各自的大小存储在名为 http://schemas.microsoft.com/mapi/proptag/x0e080003 的字段中。这与 MAPI 属性 (PR_MESSAGE_SIZE) 对应。

通过将用户邮箱中所有文件夹的大小相加，可以计算出邮箱的总计大小。为此，请使用 SHALLOW 遍历以递归方式遍历邮箱中的文件夹。虽然可以使用 DEEP 遍历，但由于 DEEP 遍历会引起问题，因此，避免使用此方法。有关 DEEP 遍历问题的其他信息，请单击下面的文章编号，以查看 Microsoft 知识库中相应的文章：

216076 (http://support.microsoft.com/kb/216076/) 在 Exchange 中访问信息存储文件夹的速度可能会变慢

使用此方法时，必须在运行 Exchange 2000 的服务器上运行代码。Exchange 的 OLE DB 提供程序 (EXOLEDB) 无法远程访问邮箱。

下面的示例是一个简单的 VBScript 代码示例，可以检索邮箱的大小。要使用此示例，请将下面的代码粘贴到一个新的文本文件，然后将此文件命名为 Mailboxsize.vbs：

'This script logs on to a server that is running Exchange 2000 or 2003 and'displays the current number of bytes that are used in the user's'mailbox.' USAGE: cscript MailboxSize.vbs DOMAINNAME MAILBOXNAME' You must run this code on the computer that is running Exchange 2000 or 2003.' This script is provided AS IS. It is intended as a SAMPLE only.' Microsoft offers no warranty or support for this script.' Use at your own risk.' Get command line argumentsDim obArgsDim cArgsDim iSizeSet obArgs = WScript.ArgumentscArgs = obArgs.CountMainSub Main()   Dim sConnString   On Error Resume Next   If cArgs <> 2 Then      WScript.Echo "Usage: cscript MailboxSize.vbs DOMAINNAME MAILBOXNAME"      Exit Sub   End If   ' Set up connection string to mailbox.   sConnString = "file://./backofficestorage/" & obArgs.Item(0)   sConnString = sConnString & "/mbx/" & obArgs.Item(1) & "/NON_IPM_SUBTREE"   WScript.Echo sConnString   iSize = 0   RecurseFolder(sConnString)   WScript.Echo "Mailbox Size: " & iSizeEnd SubPublic Sub RecurseFolder(sConnString)   Dim oConn   Dim oRecSet   Dim sSQL   ' Set up SQL SELECT statement.   sSQL = "SELECT ""http://schemas.microsoft.com/mapi/proptag/x0e080003"", "   sSQL = sSQL & """DAV:href"", "   sSQL = sSQL & """DAV:hassubs"" "   sSQL = sSQL & "FROM SCOPE ('SHALLOW TRAVERSAL OF """ & sConnString   sSQL = sSQL & """') WHERE ""DAV:isfolder"" = true"   WScript.Echo sSQL   ' Create Connection object.   Set oConn = CreateObject("ADODB.Connection")   if Err.Number <> 0 then      WScript.Echo "Error creating ADO Connection object: " & Err.Number & " " & Err.Description   end if   ' Create RecordSet object.   Set oRecSet = CreateObject("ADODB.Recordset")   if Err.Number <> 0 then      WScript.Echo "Error creating ADO RecordSet object: " & Err.Number & " " & Err.Description      Set oConn = Nothing      Exit Sub   end if   ' Set provider to EXOLEDB.   oConn.Provider = "Exoledb.DataSource"   ' Open connection to folder.   oConn.Open sConnString   if Err.Number <> 0 then      WScript.Echo "Error opening connection: " & Err.Number & " " & Err.Description      Set oRecSet = Nothing      Set oConn = Nothing      Exit Sub   end if   ' Open Recordset of all subfolders in folder.   oRecSet.CursorLocation = 3   oRecSet.Open sSQL, oConn.ConnectionString   if Err.Number <> 0 then      WScript.Echo "Error opening recordset: " & Err.Number & " " & Err.Description      oRecSet.Close      oConn.Close      Set oRecSet = Nothing      Set oConn = Nothing      Exit Sub   end if   if oRecSet.RecordCount = 0 then      oRecSet.Close      oConn.Close      Set oRecSet = Nothing      Set oConn = Nothing      Exit Sub   end if   ' Move to first record.   oRecSet.MoveFirst   if Err.Number <> 0 then      WScript.Echo "Error moving to first record: " & Err.Number & " " & Err.Description      oRecSet.Close      oConn.Close      Set oRecSet = Nothing      Set oConn = Nothing      Exit Sub   end if   ' Loop through all of the records, and then add the size of the   ' subfolders to obtain the total size.   While oRecSet.EOF <> True      ' Increment size.      iSize = iSize + oRecSet.Fields.Item("http://schemas.microsoft.com/mapi/proptag/x0e080003")      ' If the folder has subfolders, recursively call RecurseFolder to process them.      If oRecSet.Fields.Item("DAV:hassubs") = True then         RecurseFolder oRecSet.Fields.Item("DAV:href")      End If      ' Move to next record.      oRecSet.MoveNext      if Err.Number <> 0 then         WScript.Echo "Error moving to next record: " & Err.Number & " " & Err.Description         Set oRecSet = Nothing         Set oConn = Nothing         Exit Sub      end if   wend   ' Close Recordset and Connection.   oRecSet.Close   if Err.Number <> 0 then      WScript.Echo "Error closing recordset: " & Err.Number & " " & Err.Description      Set oRecSet = Nothing      Set oConn = Nothing      Exit Sub   end if   oConn.Close   if Err.Number <> 0 then      WScript.Echo "Error closing connection: " & Err.Number & " " & Err.Description      Set oRecSet = Nothing      Set oConn = Nothing      Exit Sub   end if   ' Clean up memory.   Set oRecSet = Nothing   Set oConn = NothingEnd Sub

有关此主题和检索邮箱大小的 Visual C++ 示例的其他信息，请单击下面的文章编号，以查看 Microsoft 知识库中相应的文章：

291368 (http://support.microsoft.com/kb/291368/) 如何在 C++ 中使用 ADO 确定 Exchange 2000 Server 邮箱的大小

WebDAV 方法

语言：VBScript、Visual Basic 和 Visual C
Exchange Server 版本：Exchange 2000 和 Exchange 2003

也可以使用 WebDAV 方法（类似于 ADO 方法）。属性和算法是相同的，因为可以从邮箱的所有子文件夹添加 http://schemas.microsoft.com/mapi/proptag/x0e080003 的值。使用 WebDAV 代替 ADO 的一个好处是：代码无须在运行 Exchange 2000 或 Exchange 2003 的计算机上运行。

要使用此示例，请将下面的代码粘贴到一个新的文本文件，然后将此文件命名为 Mailboxsize.vbs：

'This script logs on to a server that is running Exchange Server and'displays the current number of bytes that are used in the user's'mailbox.' USAGE: cscript MailboxSize.vbs SERVERNAME MAILBOXNAME USERNAME PASSWORD' SERVERNAME: Name of your Exchange Server' MAILBOXNAME: Your alias (Note: depending on your environment, you may need to use the portion of your' SMTP address left of the '@' symbol instead of your alias.' USERNAME: Your domainname\username '' PASSWORD: Your domain password' This script is provided AS IS. It is intended as a SAMPLE only.' Microsoft offers no warranty or support for this script.' Use at your own risk.' Get command line arguments.Dim obArgsDim cArgsDim iSumSet obArgs = WScript.ArgumentscArgs = obArgs.CountMainSub Main()   Dim sUrl   Dim sMsg   On Error Resume Next   iSum = 0   ' Check argument count.   If cArgs <> 4 Then      sMsg = "Usage: cscript MailboxSize.vbs "      sMsg = sMsg & "SERVERNAME MAILBOXNAME USERNAME PASSWORD"      WScript.Echo sMsg      Exit Sub   End If   sUrl = "http://" & obArgs.Item(0) & "/exchange/" & obArgs.Item(1) & "/NON_IPM_SUBTREE"   wscript.echo sUrl   RecurseFolder(sUrl)   WScript.Echo "Mailbox Size: " & iSumEnd SubPublic Sub RecurseFolder(sUrl)   Dim oXMLHttp   Dim oXMLDoc   Dim oXMLSizeNodes   Dim oXMLHREFNodes   Dim oXMLHasSubsNodes   Dim sQuery   Set oXMLHttp = CreateObject("Microsoft.xmlhttp")   If Err.Number <> 0 Then      WScript.Echo "Error Creating XML object"      WScript.Echo Err.Number & ": " & Err.Description      Set oXMLHttp = Nothing   End If   ' Open DAV connection.   oXMLHttp.open "SEARCH", sUrl, False, obArgs.Item(2), obArgs.Item(3)   If Err.Number <> 0 Then      WScript.Echo "Error opening DAV connection"      WScript.Echo Err.Number & ": " & Err.Description      Set oXMLHttp = Nothing   End If   ' Set up query.   sQuery = "<?xml version=""1.0""?>"   sQuery = sQuery & "<g:searchrequest xmlns:g=""DAV:"">"   sQuery = sQuery & "<g:sql>SELECT ""http://schemas.microsoft.com/"   sQuery = sQuery & "mapi/proptag/x0e080003"", ""DAV:hassubs"" FROM SCOPE "   sQuery = sQuery & "('SHALLOW TRAVERSAL OF """ & sUrl & """') "   sQuery = sQuery & "WHERE ""DAV:isfolder"" = true"   sQuery = sQuery & "</g:sql>"   sQuery = sQuery & "</g:searchrequest>"   ' Set request headers.   oXMLHttp.setRequestHeader "Content-Type", "text/xml"   oXMLHttp.setRequestHeader "Translate", "f"   oXMLHttp.setRequestHeader "Depth", "0"   oXMLHttp.setRequestHeader "Content-Length", "" & Len(sQuery)   ' Send request.   oXMLHttp.send sQuery   If Err.Number <> 0 Then      WScript.Echo "Error Sending Query"      WScript.Echo Err.Number & ": " & Err.Description      Set oXMLHttp = Nothing   End If   ' Load XML.   Set oXMLDoc = oXMLHttp.responseXML   ' Get the XML nodes that contain the individual sizes.   Set oXMLSizeNodes = oXMLDoc.getElementsByTagName("d:x0e080003")   ' Get the XML nodes that contain the individual HREFs.   Set oXMLHREFNodes = oXMLDoc.getElementsByTagName("a:href")   ' Get the XML nodes that contain the individual HasSubs.   Set oXMLHasSubsNodes = oXMLDoc.getElementsByTagName("a:hassubs")   ' Loop through the nodes, and then add all of the sizes.   For i = 0 to oXMLSizeNodes.length - 1      WScript.Echo oXMLHREFNodes.Item(i).nodeTypedValue      WScript.Echo "Size: " & oXMLSizeNodes.Item(i).nodeTypedValue      iSum = iSum + oXMLSizeNodes.Item(i).nodeTypedValue      ' If the folder has subfolders, call your recursive function to      ' process subfolders.      If oXMLHasSubsNodes.Item(i).nodeTypedValue = True Then         RecurseFolder oXMLHREFNodes.Item(i).nodeTypedValue      End If   Next   ' Clean up.   Set oXMLSizeNodes = Nothing   Set oXMLDoc = Nothing   Set oXMLHttp = NothingEnd Sub

注意：除了本节介绍的编程方法外，还可以通过使用 Exchange 系统管理器将文件夹大小信息导出到文本文件。

这篇文章中的信息适用于:

•	Microsoft Exchange Server 2003 Enterprise Edition
•	Microsoft Exchange Server 2003 Standard Edition
•	Microsoft Exchange 2000 Server 标准版
•	Microsoft Exchange Server 5.5 标准版

关键字：	kbhowto KB320071

分享到：

邮件服务器