ITrkHold.isActive (property)

property isActive
Syntax: VARIANT_BOOL*pVal = object.isActive
object.isActive = VARIANT_BOOL*pVal
The isActive property will return true if the Named hold is active (internal Hold has been turned on) .


Dim oTrkItemAgent As Object
Dim oTrkItems As Object
Dim oTrkHold As Object
Dim oTrkHolds As Object

Set oTrkItemAgent = CreateObject("Tracker.TrkItemAgent")
oTrkItemAgent.Execute oTrkItems
Set oTrkItem = oTrkItems.Item(1)
Set oTrkHolds = oTrkItem.Holds
Set oTrkHold = oTrkHolds.Item(1)
MsgBox oTrkHold.isActive