Sub Initialize
On Error Goto errhandle
Dim ss As New notessession
Dim db As notesdatabase
Set db = ss.currentdatabase
Forall a In db.agents
If a.trigger=TRIGGER_SCHEDULED And a.ispublic Then
If a.isenabled Then
a.isenabled=False
Msgbox "定时代理:"& a.name &"已经禁止"
Call a.save
Else
a.IsEnabled = True
Call a.Save
Msgbox "定时代理:"& a.name &"已经启动"
End If
End If
End Forall
Exit Sub
errhandle:
Msgbox "允许错误,错误行:" + Cstr(Erl) + "错误:" + Error$
End Sub