Dim sess As New NotesSession
Dim db As NotesDatabase
Dim agent As NotesAgent
Dim doc As NotesDocument
Set db = sess.CurrentDatabase
Set doc=sess.documentContext
Set agent = db.GetAgent("agToDocumntum") 'agToDocumntum是java代理名称
agent.Run(doc.NoteID)
Dim db As NotesDatabase
Dim agent As NotesAgent
Dim doc As NotesDocument
Set db = sess.CurrentDatabase
Set doc=sess.documentContext
Set agent = db.GetAgent("agToDocumntum") 'agToDocumntum是java代理名称
agent.Run(doc.NoteID)
![[Java]静态代理、动态代理（基于JDK1.8）](https://ucc.alicdn.com/pic/developer-ecology/3mfxe2r26qbaq_36721e9be78943ccb96fa98042f2883c.png?x-oss-process=image/resize,h_160,m_lfit)