Question

我们需要在Lotus Notes中执行一些批量删除帐户。这个数字可能会在10,000左右。我们可以手动处理这些，但您可以想象，我们现在没有足够的资源。

我想知道我们是否能够使用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:\temp\export.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

要打开文档，您必须创建表单＆＃34; user＆＃34;

批量删除Lotus Notes中的帐户

1 个答案: