启动/关闭数据库中的定时共享代理

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