Excel VBA Lotus DB搜索-获取当前文档的文件夹/视图名称

我正试图编写一个VBA代码，根据关键字搜索LotusDB，然后将结果细节提取到另一张表中

尽管我能够根据需要提取多个字段，但我还需要当前文档所属的“文件夹”名称/视图名称。我已尝试搜索所有可用字段，但仍然找不到任何字段。需要帮忙吗

Set notesdb = NotesSession.getDatabase(Servr, Dbase)
DteTime = ((DateAdd("n", ThisWorkbook.Sheets("Main").Range("E15").Value, Now())))

If notesdb.IsOpen = True Then
    'Already open for mail
Else
    notesdb.OPENMAIL
End If

Set GlobalCollection = notesdb.Search("@Created > [" & DteTime & "] " & " & @Contains(" & "Subject" & ";" & """" & Subjct & """" & ")", Nothing, 0)

Set AllDocc = GlobalCollection.GetFirstDocument

While Not (AllDocc Is Nothing)
    LastRow = Sht.Cells(Sht.rows.Count, "A").End(xlUp).Row
    roww = LastRow + 1
    Sht.Range("A" & roww) = AllDocc.GetItemValue("SendTo")(0)  
wend

---

这一信息不容易获得。文件夹/视图知道它包含哪些文档，但文档不知道它显示在哪个文件夹/视图中

文档可以位于多个文件夹和视图中。一封邮件可以放在多个文件夹中，将始终显示在“所有文档”视图中，如果已发送，则将显示在“已发送”视图中。如果启用后续，则也将显示在后续视图中

获取该信息有多种方法：您可以浏览所有视图，然后浏览其中的所有文档，然后检查文档是否属于该视图，然后记住文档所在的所有文件夹/视图的名称

或者您可以启用“Folderreferences”“在数据库中。然后每个文档将包含它所属的每个文件夹的UNIVERSALID，您只需将这些Unid分配给可读的FolderName。不幸的是，此功能不适用于在启用属性之前放入文件夹中的文档…性能也不匹配…”

所以：不幸的是，这不是很容易做到的，需要编写大量代码，甚至更多的代码，才能快速完成许多文档