如何获取Lotus notes邮件文件所有者名称列表

您可以使用NotesDBDirectory类在服务器上的所有数据库中循环。如果数据库位于子文件夹mail中,则可以使用notes数据库类获取数据库。通常数据库的标题是所有者的名称。但您也可以获取日历配置文件文档并读取字段所有者。

另一种方法:查看names.nsf。您可以将数据导出为CSV文件。。。

代码示例:

Dim sess as new Notessession
Dim dbdir as NotesDBDirectory
Dim db as NotesDatabase
Dim Profile As NotesDocument

Set dbdir = New NotesDBDirectory("Servername")
Set db = dbdir.GetFirstDatabase(1247)
Do until db is nothing
    'expecting the mail files are located in subfolder mail, check the path
    If Ucase(Left(db.FilePath , 5)) = "MAIL\" Then
         If not db.IsOpen Then
             Call db.Open("","")
         End If
         Set Profile = db.GetProfileDocument("CalendarProfile")
         Print Profile.Owner(0) ' prints out the owner name to Client Status bar or Server console
    End If
    Set db = dbdir.GetNextDatabase
Loop

Print Profile.Owner(0) ' prints out the owner name to Client 

请看IBM帮助中心:

https://www.ibm.com/support/knowledgecenter/en/SSVRGU_9.0.1/basic/H_NOTESDBDIRECTORY_CLASS.html https://www.ibm.com/support/knowledgecenter/en/SSVRGU_9.0.1/basic/H_NOTESDATABASE_CLASS.html https://www.ibm.com/support/knowledgecenter/de/SSVRGU_9.0.0/com.ibm.designer.domino.main.doc/LSAZ_WRITE_LB_STATEMENT.html

HTH,马库斯

我将遍历服务器names.nsf中的用户文档。查看每个用户是否列出了电子邮件数据库,如果有,则将其输出到文本文件。