Read Event Example

This VBScript example uses the Read event to increment a counter that tracks how often an item is read.

Sub Item_Read()
    Set myProperty = Item.UserProperties("ReadCount")
    myProperty.Value = myProperty.Value + 1
    Item.Save
End Sub