How To List Public Folders by Using WebDAV

This article was previously published under Q291171
This article has been archived. It is offered "as is" and will no longer be updated.
SUMMARY
This article demonstrates how to list all the folders of a folder hierarchy by using Web Distributed Authoring and Versioning (WebDAV).
MORE INFORMATION
To list all of the folders in the public folder hierarchy, follow these steps:
  1. In Microsoft Visual Basic, create a Standard EXE project. Form1 is created by default.
  2. Add a command button to Form1 and name the button Command1.
  3. Add a reference to the MSXML 6.0 object library.
  4. Paste the following code in the code section of Form1.NOTE: Change e2kServer in the code to the name of your Exchange server.
    Private Sub Command1_Click()   Dim strURL As String   Dim sUserID As String   Dim sPassword As String   strURL = "http://e2KServer/public/"   sUserID = "UserID" 'TODO    sPassword = "password" 'TODO   ListFolders strURL, sUserID, sPasswordEnd SubSub ListFolders(ByVal strURL As String, ByVal sUserID As String, _ByVal sPassword As String)   'Dim oDoc As MSXML.DOMDocument   'Dim oDocBack As MSXML.DOMDocument   'Dim oNode As IXMLDOMElement   'Dim oNode2  As IXMLDOMElement   'Dim req As MSXML.XMLHTTPRequest   MSXML 6.0    Dim oDoc As MSXML2.DOMDocument460   Dim oDocBack As MSXML2.DOMDocument640   Dim req As MSXML2.XMLHTTP60   Set oDoc = CreateObject("MSXML2.DomDocument.6.0")   Set oDocBack = CreateObject("MSXML2.DomDocument.6.0")   Set oDoc = CreateObject("MICROSOFT.XMLDOM")   Set oDocBack = CreateObject("MICROSOFT.XMLDOM")   Set pi = oDoc.createProcessingInstruction("xml", "version=""1.0""")   oDoc.appendChild pi   Set oNode = oDoc.createNode(1, "searchrequest", "DAV:")   Set oDoc.documentElement = oNode   Set oNode2 = oDoc.createNode(1, "sql", "DAV:")   oNode.appendChild oNode2   strQuery = "Select ""DAV:displayname"" From "   strQuery = strQuery & "Scope('Shallow Traversal of """ & strURL & """')"   Set query = oDoc.createTextNode(strQuery)   oNode2.appendChild query   Set req = CreateObject("microsoft.xmlhttp")   req.open "SEARCH", strURL, False, sUserID, sPassword   req.setRequestHeader "Translate", "f"   req.setRequestHeader "Content-Type", "text/xml"   req.setRequestHeader "Depth", "0"   req.send oDoc   Set oDocBack = req.responseXML   Dim objNodeList   'Typically the DAV namespace get the 'a' prefix.   'If you are specifying multiple properties in a search, examine the    'returned XML beforehand to determine prefixes for your code.   Set objNodeList = oDocBack.getElementsByTagName("a:displayname")   For i = 0 To (objNodeList.length - 1)     Set objNode = objNodeList.nextNode     Debug.Print objNode.Text   NextEnd Sub					
  5. Run the project.
REFERENCES
For more information about WebDAV, see the WebDAV book in the Exchange SDK, and the WebDAV Sample Application in the "Solutions" section of the Exchange SDK, located at the following Web site:
Properties

Article ID: 291171 - Last Review: 02/27/2014 21:07:29 - Revision: 5.0

  • Microsoft Exchange 2000 Server Standard Edition
  • Microsoft XML Parser 2.0
  • Microsoft XML Core Services 4.0
  • Microsoft XML Core Services 6.0
  • kbnosurvey kbarchive kbhowto kbmsg KB291171
Feedback