一、查找其他數據庫的檔案並打開
Sub Click(Source As Button)
 Dim s As New NotesSession
 Dim w As New NotesUIWorkspace
 'Dim dc As NotesDocumentCollection
 Dim db As NotesDatabase
 Dim doc As  NotesDocument
 Set db=s.GetDatabase(s.CurrentDatabase.Server ,"level-u\MISDOC.nsf",False)
 'Set dc= db.FTSearch("OA系統操作指南",1)
' Set doc=dc.GetFirstDocument
 Set doc= db.GetDocumentByID("B0A")
 Call w.EditDocument(False,doc)
End Sub

posted on 2005-06-22 11:40  James Wong   阅读(792)  评论(0)    收藏  举报