删除多余文档

操作按钮：

Sub Initialize
    Dim ss As New notessession
    Dim db As notesdatabase
    Set db = ss.currentdatabase
    Dim vi As notesview
    Set vi = db.getview("viewname")   '获得视图
    Dim doc As notesdocument
    Set doc = vi.getfirstdocument     '获得视图中的第一个文档
    Dim deldoc As notesdocument       '需要删除的文档

    email = ""         '临时过渡变量
    count = 0          '表示在处理的文档序号
    del = 0            '计算删除了的文档

    Do While Not (doc Is Nothing) 
        count = count + 1
        If doc.fieldname(0) = email Then
            del = del +1
            Set deldoc = doc
            Set doc = vi.getnextdocument(doc) 
            Call deldoc.remove(True) 

        Else
            email = doc.fieldname(0) 
            Set doc = vi.getnextdocument(doc) 
        End If
        Print " 正在处理第"+Cstr(count)
    Loop

    Messagebox "搜索了 "+Cstr(count)+" 个文档，删除了 "+Cstr(del)+" 个文档。",64,"检查结束"
End Sub