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
启动/关闭数据库中的定时共享代理
最新推荐文章于 2023-04-04 16:17:46 发布