To create a non-MAPI public folder store:
- Follow the procedure in the following Microsoft Knowledge Base article to make the Administrative Groups container visible in Exchange System Manager:
242561�
How to make Administrative Groups/Routing Groups containers visible in Exchange System Manager
- Start Exchange System Manager, and click to expand the Administrative Groups container to see the Administrative Group node.
- Right-click the Folders container of the Administrative Group, click New, click Public Folder Tree, and then name the new public folder tree MyNewTree.
- Expand the Server container of the Administrative Group, and then click the Storage Group of the server where the folder store will be kept.
- Right-click the Storage Group, click New, and then click Public Store.
- On the General page, name the new public store NewPubStore, and then click Browse to associate MyNewTree with it.
- Click OK, and then click Yes when you receive the following message:
The new store was created successfully. Do you want to mount it now?
- Click OK after you mount the store.
- Expand the Folders folder, right-click MyNewTree, point to New, and then click Public Folder.
- Type MyNewFolder in the Name field, and then click OK.
- Use Microsoft Outlook to place items into the MyNewFolder public folder in the MyNewTree public store.
To perform a deep traversal search on MyNewTree, try the following sample code:
'make a reference to Microsoft ActiveX Data Objects 2.5 Library and
'Active DS Type Library
Private Sub DeepTraversal_Click()
Dim Info As New ADSystemInfo
Dim sDomainName As String
Dim sFolderURL As String
Dim sSQL As String
Dim Rs As New ADODB.Recordset
Dim Rec As New ADODB.Record
sDomainName = Info.DomainDNSName
sFolderURL = "file://./backofficestorage/" & sDomainName & "/MyNewTree"
Rec.Open sFolderURL
sSQL = "Select * "
sSQL = sSQL & " from scope ('deep traversal of " & Chr(34)
sSQL = sSQL & sFolderURL & Chr(34) & "')"
Rs.Open sSQL, Rec.ActiveConnection
If Not Rs.EOF Then
Rs.MoveFirst
End If
While Not Rs.EOF
Debug.Print Rs.Fields("DAV:displayname").Value
Rs.MoveNext
Wend
Rs.Close
Rec.Close
End Sub