- 22.08.2008
- 1 851
- 27
Dim GlobalTimer As NotesTimer
Dim Interval As Integer
Interval = 60
Set GlobalTimer = New NotesTimer(Interval)
On Event Alarm From GlobalTimer Call TimerAlarmEvent
Sub TimerAlarmEvent(Source As NotesTimer)
'тут можешь анализировать в каком случае релодить, например, только если открыта нужная база или только если появились новые документы...
Exit Sub
Errh:
Call ErrHandler
Exit Sub
Взломай свой первый сервер и прокачай скилл — Начни игру на HackerLab