Dim oRec As ADODB.Record
Dim sUrl As String
Dim sSQL As String
Dim oRst As ADODB.Recordset
Dim Flds As ADODB.Fields
Dim Fld As ADODB.Field
Private Sub Command1_Click()
sUrl = "http://smtp.mywebsite.com/public/New Projects"
sSQL = "select "
sSQL = sSQL & " ""DAV:contentclass"""
sSQL = sSQL & ", ""urn:schemas:contacts:o"" "
sSQL = sSQL & ", ""DAV:href"" "
sSQL = sSQL & ", ""DAV:displayname"" "
sSQL = sSQL & ", ""DAV:company"" "
sSQL = sSQL & " from scope ('shallow traversal of " & Chr(34)
sSQL = sSQL & sUrl & """') "
sSQL = sSQL & " WHERE ""DAV:ishidden"" = false "
sSQL = sSQL & " AND ""urn:schemas:contacts:o"" LIKE '%dim%' "
oRec.Open sUrl, , adModeRead
oRst.Open sSQL, oRec.ActiveConnection
List1.AddItem "Public Folders :"
Do While Not oRst.EOF
List1.AddItem oRst.Fields("DAV:href")
oRst.MoveNext
Loop
oRst.Close
oRec.Close
End Sub
Private Sub Form_Load()
Set oRec = CreateObject("ADODB.Record")
Set oRst = CreateObject("ADODB.Recordset")
End Sub