Назад | Перейти на главную страницу

Экспорт данных из Lotus Domino

Я ищу, есть ли способ экспортировать список пользователей из Domino с перечисленным псевдонимом. Все, что я видел в Интернете, - это открытие адресной книги в клиенте заметок и построение представления, но я не могу найти ничего, относящегося к псевдониму. Если кто знает способ, это было бы здорово.

Создайте агента в своей локальной адресной книге с целью «Нет». Настройте его на запуск 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

Запускаем агент. Выберите адресную книгу, из которой вы хотите экспортировать пользователей, затем введите имя файла для экспортного файла. Он создаст список пользователей с псевдонимами, разделенными табуляцией в каждой строке.