一、查找其他數據庫的檔案並打開
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
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