domino中lotusscprit調用java代理

 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)