Dim db As notesdatabase
Dim dc As notesdocumentcollection
Dim doc As notesdocument
Dim wks As New NotesUIWorkspace
Dim view As NotesUIView
Set view = wks.CurrentView
Set dc=view.Documents
Set doc=dc.getfirstdocument
以上doc得到的就是勾選上的所有view文檔``