lotus获取文档的数据库

//获得文档


Dim session as new notesSession


Dim db as NotesDatabase


Dim dc as NotesDocumentCollection


Dim doc as NotesDocument


Set db=session.CurrentDatabase


Set dc=db.AllDocuments


Set doc=dc.GetFirstDocument




//获得数据库


Dim directory As New NotesDbDirectory("")


Dim db as NotesDatabase


set db=directory.GetFirstDatabase(DATABASE)


While Not db Is Nothing


Messagebox db.Title


set db=directory.GetNextDatabase()


Wend






yesno=@Prompt([YESNO];"RSVP";"Do you want to attend?");


rsvp=@if(yesno;"yes";"no");