使用 picklistcollection 显示选定的文档

Question

我有一个可以使用视图中的操作初始化的代理。

我在代理中的代码：

Dim sesija As New NotesSession
Dim db As NotesDatabase
Dim collection As NotesDocumentCollection
Dim workspace As New NotesUIWorkspace
Set db = sesija.CurrentDatabase

Set collection = workspace.Picklistcollection(PICKLIST_CUSTOM, True, "", _
  "Prakse2015/Uzdevums_Maris", "kategorijas", "Virsraksts", _
  "Apakšvirsraksts", "")

我知道其中有几行是不必要的。它现在所做的是在视图中显示所有文档。我想知道的是，有没有一种方法可以使用 picklistcollection 仅显示选定的文档？

Answer 1

您可以使用文件夹显示在您的 Picklist 集合中。只需创建一个与您的视图具有相同设计的文件夹。在您的代码中，首先使用以下代码清空文件夹：

Set folder = db.GetView( "NameOfPicklistFolder" )
Call folder.AllEntries.RemoveAllFromFolder ( "NameOfPicklistFolder" )

然后将您选择的文档放入文件夹中：

Set dc = db.UnprocessedDocuments
Call dc.PutAllInFolder( "NameOfPicklistFolder" )

并使用此文件夹代替视图：

Set collection = workspace.Picklistcollection(PICKLIST_CUSTOM, True, "", _
  "Prakse2015/Uzdevums_Maris", "NameOfPicklistFolder", "Virsraksts", _
  "Apakšvirsraksts", "")

只要只有一个用户同时使用此功能，此功能就可以使用（练习时没问题）。如果有多个用户，则每个用户需要一个文件夹（例如，在首次使用文件夹时使用共享专用文件夹，又名 SPOFU），否则第二个用户将更新文件夹内容，第一个用户将看到第二个用户的文档用户...

使用 picklistcollection 显示选定的文档

Display selected documents using picklistcollection

lotusscript