在Lotus Notes中大量删除帐户

Question

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

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

Answer 1

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

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 

要打开，你必须创建形式为“用户”