Remove Domino Database Conflict Documents

Do you have a Domino database that just has tons of conflict documents?  Here's small script that you can add as an agent to help remove those documents.

Create a new agent that is shared and has no target (this will make it run against all documents that you select).  Now, add this code to the Initialize subroutine:

       Sub Initialize
         Const MB_YESNO = 4
         Const ID_YES = 6
         Dim session As New NotesSession
         Dim dc As NotesDocumentCollection
         Dim dt As New NotesDateTime("")
         Set dc = session.CurrentDatabase.Search("@IsAvailable($Conflict)",dt,0)
         If dc.Count > 0 Then
             Dim ans As Variant
             ans = Messagebox ("Search for @IsAvailable($Conflict) found " & dc.Count & " documents. Delete now?", MB_YESNO, "")
             If ans = ID_YES Then
                 dc.RemoveAll True
             End If
         Else
             Messagebox "    No Conflicts found    ",MB_OK,"Not Found     "
         End If
     End Sub

Select this from your agents menu and you will be prompted to remove what conflict documents it finds.  If you happen to be having this issue alot in one of your databases, you may want to research why this is happening so that you don't have to use this type of again often.