找到存在lotus notes文档的文件夹

时间:2016-03-08 13:29:19

标签: lotus-domino

我正在使用DIIOP访问莲花笔记。我正在尝试查找存在电子邮件的文件夹。我有电子邮件的Unid来找到该文件夹​​。

启用文件夹引用对我来说不是一个选项,因为我将处理一个运行多年的生产系统。

有什么方法可以找到使用DIIOP存在邮件的文件夹unid / name吗?

1 个答案:

答案 0 :(得分:2)

如果没有文件夹引用,则文档不包含有关所驻留文件夹的信息。

唯一的可能性是浏览所有文件夹并检查文档是否在allentries-集合中。

代码可能看起来像这样(我不擅长Java,所以这是LotusScript-Code,但Java将使用相同的方法/类):

Dim db as NotesDatabase
Dim doc as NotesDocument

Set db = ... database that you work on
Set doc = .... document that you work on

Dim fc As NotesViewEntryCollection
Dim fe As NotesViewEntry
ForAll f In db.AllViews
    If f.IsFolder Then
        Set fc = f.AllEntries '- get all entries in folder
        Set fe = fc.GetEntry( doc ) '- try to get object for doc from folder
        If not fe is Nothing then
           '- This document is in this folder... remember foldername, do whatever....
        End If
    End If
End ForAll