☰

从 Lotus Domino 导出数据

tag-icon • tag-icon lotus-notes ibm-domino
从 Lotus Domino 导出数据

我想看看是否有办法从 Domino 导出带有别名的用户列表。我在网上看到的所有方法都是在 Notes 客户端上打开地址簿并构建视图，但我找不到与别名相关的任何内容。如果有人知道方法，那就太好了。

答案1

在本地地址簿中创建一个代理，目标为“无”。将其设置为运行 LotusScript 并使用此代码：

Dim ui As New NotesUIWorkspace, ns As New NotesSession, db As NotesDatabase, view As NotesView, doc As NotesDocument, nab As Variant, fname As Variant, fnum As Integer
nab=ui.Prompt(13, "", "")
If Not Isempty(nab) Then
    fname=ui.SaveFileDialog(False)
    If Not Isempty(fname) Then
        fnum=Freefile
        Open fname(0) For Output As #fnum
        Set db=ns.GetDatabase(nab(0), nab(1))
        Set view=db.GetView("($People)")
        Set doc=view.GetFirstDocument
        Do
            Print #fnum, Join(doc.Fullname, Chr$(9))
            Set doc=view.GetNextDocument(doc)
        Loop Until doc Is Nothing
        Close #fnum
    End If
End If

运行代理。选择要从中导出用户的地址簿，然后输入导出文件的文件名。它将创建一个用户列表，每行别名以制表符分隔。

相关内容