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.