domino中lotusscprit调用java代理

来源:互联网 发布:asp.net系统源码下载 编辑:程序博客网 时间:2024/05/16 17:26
 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)