啟動/關閉數據庫中的定時共享代理


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 Suberrhandle: Msgbox "允許錯誤,錯誤行:" + Cstr(Erl) + "錯誤:" + Error$  End Sub

注意!

本站转载的文章为个人学习借鉴使用,本站对版权不负任何法律责任。如果侵犯了您的隐私权益,请联系我们删除。



 
粤ICP备14056181号  © 2014-2021 ITdaan.com