Lotus-Notes

從 Lotus Domino 導出數據

  • January 17, 2012

我正在尋找是否有辦法從 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

執行代理。選擇要從中導出使用者的地址簿,然後輸入導出文件的文件名。它將創建一個使用者列表,別名在每一行上用製表符分隔。

引用自:https://serverfault.com/questions/350361