This property specifies the number of days to store the event.
Syntax
ReplicationEventSinkConfig.EventLifetime[=Days]
Parameters
Days
The number of days to store the event.
0
Store the event indefinitely
n
Store the event n days.
Remarks
You must have Site Server Publishing administrator privileges on the server to get or set this property.
Example
The following example stores the local store-and-forward events indefinitely.
Option Explicit
On Error Resume Next
const CRS_ERROR_NO_MORE_ITEMS = 0&80003B17
dim ReplServer
set ReplServer = CreateObject("CrsApi.ReplicationServer")
ReplServer.Initialize("")
dim Iterator
Iterator = 0
dim EvSink
do while True
'Clear any error text
Err.Clear
'Get an event sink
set EvSink = ReplServer.EnumEventSinks(Iterator)
'Quit if empty object returned (no more instances)
if IsEmpty(EvSink) then exit do
'Quit if "No more items" error
dim ReplError
ReplError = Err.Number
if ReplError = CRS_ERROR_NO_MORE_ITEMS then exit do
if EvSink.CLSID = "Crssink" then EvSink.Lifetime = 0
Loop
'Release objects
set EvSink = Nothing
set ReplServer = Nothing
See Also
ReplicationServer.AddEventSink, ReplicationServer.EnumEventSinks