| Platform SDK: Exchange 2000 Server |
[This is preliminary documentation and subject to change.]
Opening an ADO Record object from the Web Store is a fundamental task and test. As a test, this example outputs a list of the record’s properties.
Dim Rec
Dim strURL
Dim fld
Dim flds
Dim DomainName
Dim strLocalPath
'specify your own domain
DomainName = "microsoft.com"
'specify a URL to folder or item
strLocalPath = "public folders/sales reports"
Set Rec = CreateObject("ADODB.Record")
'this URL is for a public folder
strURL = "file://./backofficestorage/" & DomainName & "/" & strLocalPath
Rec.Open strURL
'as a test, list all properties on the record
Set flds = Rec.Fields
Response.Write "<b>" & Rec.Fields.Count & " properties</b></p>"
For Each fld in flds
Response.Write fld.Name & "<br>"
If IsNull(fld.Value) Then
Response.Write " Null" & "</p>"
Else
Response.Write " " & fld.Value & "</p>"
End If
Next
Rec.Close
Dim Rec As New ADODB.Record
Dim strURL As String
Dim fld As Field
Dim flds As Fields
Dim DomainName
Dim strLocalPath
'specify your own domain
DomainName = "microsoft.com"
'specify a URL to folder or item
strLocalPath = "public folders/projects/documentation"
'this URL is for a public folder
strURL = "file://./backofficestorage/" & DomainName & "/" & strLocalPath
Rec.Open strURL
'as a test, list all properties on the record
Set flds = Rec.Fields
Debug.Print Rec.Fields.Count & " properties"
Debug.Print ""
For Each fld In flds
Debug.Print fld.Name
Next
Rec.Close