批量删除Lotus Notes中的帐户

Question

我们需要对Lotus notes中的帐户进行一些大规模删除。这个数字可能在10000左右。我们可以手动处理这些，但正如你所能想象的，我们现在没有多余的资源。

我想知道我们是否可以使用CSV或Excel文件作为用户名的输入来编写删除过程的脚本？

Answer 1

您可以在代理中使用以下代码读取csv文件并在notes数据库中创建文档。在服务器上运行代理以获得更好的性能

Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim fileCSV As String
Dim username As String
Dim userid As String
Dim email As string
Dim i As Integer
Dim filenum As Integer
i =0
Set db = session.CurrentDatabase
filenum% = FreeFile()
fileCSV = "C:tempexport.csv"
Open fileCSV For Input As filenum%
Do Until EOF(filenum%)
    Input #filenum%, username, userid, email
    Set doc = db.CreateDocument
    With doc
        .username = username
        .userId = userid
        .email = email
        .form = "user"
    End With
    Call doc.save(False, False)
    i = i +1
Loop

要打开文档，您必须创建表单"用户"