Sets the groom age setting (in the registry) for the PagerJobQueue object. This setting determines the age at which Sent and Failed pages will be deleted from their respective folders in the OnePoint\ModemPaging directory.
obj.SetGroomAge(lngAgeInDays Long) where obj is an OPScrUtil.PagerJobQueue object
||The maximum age of messages in the Sent and Failed folders. Messages older than this will be deleted. Range for this setting is (-1 to 7200). Use a value of -1 to indicate that messages should never be deleted.|
To set the PagerJobQueue object to delete Sent or Failed messages after 60 days, enter:
Set obj = CreateObject("OPScrUtil.PagerJobQueue") bOK = obj.SetGroomAge(60)
This example shows how to set the groom age for Sent and Failed pager messages.