Sub Initialize Dim session As New NotesSession Dim db As NotesDatabase Dim view As NotesView Dim doc As NotesDocument Dim entry As NotesViewEntry Set db = session.CurrentDatabase Dim Vec As notesViewEntryCollection j=1 Set view = db.GetView( "ALL$" ) Set vec = view.AllEntries Set entry = vec.GetNthEntry( j ) Set doc = entry.Document While Not (doc Is Nothing) If entry.isconflict = True Then Call doc.remove(True) End If j=j+1 Set entry = vec.GetNthEntry( j ) If entry Is Nothing Then Exit Sub End If Set doc = entry.Document Wend Msgbox db.Title & "delete conflict docs finished!" End Sub