ITrkHold.Expiration (property)

property Expiration

Syntax:

VARIANT*pVal = object.Expiration
object.Expiration = VARIANT*pVal

Description:

The Expiration property shows the date when the named hold expires.

Example:

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.Expiration