在工作中,可能会因为代理的权限问题,或者其他问题,比如两个代理用的开发语言不同等原因。
我们可以联合使用多个代理来解决一些问题,下面简单介绍一下使用方法。
通过Agent.Run([noteID$])方法,依靠一个文档来传递参数。
如:AgentA:
Set doc = New NotesDocument(db)
doc.UserName = s.UserName
Call doc.Save(True, False)
Set agent = db.GetAgent("AgentB")
call agent.Run(doc.NoteID)
AgentB:
Set agent = s.CurrentAgent
Set doc = db.GetDocumentByID(_
agent.ParameterDocID)
Msgbox doc.UserName(0)
Call doc.Remove(True)