能否在一个数据库中的代理中调用其它数据库的代理

[zhoujun-118]

能否在一个数据库中的代理中调用其它数据库的代理，如果可以请问如何写代理?

[china_fankai]

當然可以
首先獲得代理所在的資料庫﹐再運行其代理就可以了

Dim db As NotesDatabase
Dim agent As NotesAgent
Set db = New NotesDatabase( "服務器名", "資料庫路徑" )
Set agent = db.GetAgent("Agent to be run LotusScript")
If agent.Run = 0 Then
Messagebox "Agent ran",, "Success"
Else
Messagebox "Agent did not run",, "Failure"
End If

[zhoujun-118]

非常谢谢china_fankai