Setting and Retrieving Custom Properties
Setting and Retrieving Custom Properties
This content is no longer actively maintained. It is provided as is, for anyone who may still be using these technologies, with no warranties or claims of accuracy with regard to the most recent product version or service release.
The following example demonstrates how to set and retrieve properties on items in the Exchange store.
VBScript
Dim InfoNT Set InfoNT = CreateObject("WinNTSystemInfo") SetProps "http://" & InfoNT.ComputerName & "/public/test_folder/test1.txt" GetProps "http://" & InfoNT.ComputerName & "/public/test_folder/test1.txt" Sub SetProps(sUrl) Dim Rec Set Rec = CreateObject("ADODB.Record") Dim Conn Set Conn = CreateObject("ADODB.Connection") Conn.Provider = "ExOLEDB.DataSource" Conn.Open sUrl Rec.Open sUrl, Conn, adModeReadWrite Dim Flds Set Flds = Rec.Fields With Flds .Item("urn:schemas-domain-tld:modified") = Now .Item("urn:schemas-domain-tld:status") = "Behind Schedule" .Item("urn:schemas-domain-tld:author") = "Paul West" .Item("urn:schemas-domain-tld:author-email") = """Paul west"" <pw@somewhere.example.com>" .Item("urn:schemas-domain-tld:editor") = "Wendy Wheeler" .Item("urn:schemas-domain-tld:editor-email") = """Wendy Wheeler"" <ww@somewhere.example.com>" .Update End With ' Clean up. Conn.Close Rec.Close Set Conn = Nothing Set Rec = Nothing End Sub Sub GetProps(sUrl) ' This example shows how to retrieve custom property values ' set in the previous snippet. Dim Rec Set Rec = CreateObject("ADODB.Record") Dim Conn Set Conn = CreateObject("ADODB.Connection") Conn.Provider = "ExOLEDB.DataSource" Conn.Open sUrl Rec.Open sUrl, Conn, adModeReadWrite Dim Flds Set Flds = Rec.Fields Dim Props(10) Props(1) = "urn:schemas-domain-tld:modified" Props(2) = "urn:schemas-domain-tld:status" Props(3) = "urn:schemas-domain-tld:author" Props(4) = "urn:schemas-domain-tld:author-email" Props(5) = "urn:schemas-domain-tld:editor" Props(6) = "urn:schemas-domain-tld:editor-email" For I = 1 To 6 WScript.Echo Props(I) & vbCrLf WScript.Echo Flds(Props(I)) Next ' Clean up. Conn.Close Rec.Close Set Conn = Nothing Set Rec = Nothing End Sub </script> </job>
Visual Basic
Sub SetProps(sUrl) Dim Rec As New Record Dim Conn As New Connection Conn.Provider = "ExOLEDB.DataSource" Conn.Open sUrl Rec.Open sUrl, Conn, adModeReadWrite Dim Flds As Fields Set Flds = Rec.Fields With Flds .Item("urn:schemas-domain-tld:modified") = Now .Item("urn:schemas-domain-tld:status") = "Behind Schedule" .Item("urn:schemas-domain-tld:author") = "Paul West" .Item("urn:schemas-domain-tld:author-email") = """Paul west"" <pw@somewhere.example.com>" .Item("urn:schemas-domain-tld:editor") = "Wendy Wheeler" .Item("urn:schemas-domain-tld:editor-email") = """Wendy Wheeler"" <ww@somewhere.example.com>" .Update End With ' Clean up. Conn.Close Rec.Close Set Conn = Nothing Set Rec = Nothing End Sub Sub GetProps(sUrl) ' This example shows how to retrieve custom property values ' set in the previous snippet. Dim Rec As New Record Dim Conn As New Connection Conn.Provider = "ExOLEDB.DataSource" Conn.Open sUrl Rec.Open sUrl, Conn, adModeReadWrite Dim Flds As Fields Set Flds = Rec.Fields Dim Props(10) As Variant Props(1) = "urn:schemas-domain-tld:modified" Props(2) = "urn:schemas-domain-tld:status" Props(3) = "urn:schemas-domain-tld:author" Props(4) = "urn:schemas-domain-tld:author-email" Props(5) = "urn:schemas-domain-tld:editor" Props(6) = "urn:schemas-domain-tld:editor-email" For I = 1 To 6 Debug.Print Props(I) & vbCrLf Debug.Print Flds(Props(I)) Next I ' Clean up. Conn.Close Rec.Close Set Conn = Nothing Set Rec = Nothing End Sub
Send us your feedback about the Microsoft Exchange Server 2003 SDK.
Build: June 2007 (2007.618.1)
© 2003-2006 Microsoft Corporation. All rights reserved. Terms of use.