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)