Sub Initialize
 On Error Goto Errhandle
 Dim doc As Notesdocument
 Dim col As Notesdocumentcollection
 Dim binder As Variant
 Dim session As Notessession

 Set session = New Notessession
 Set col = session.currentdatabase.unprocesseddocuments

 Set doc = col.GetFirstDocument
 Binder = DWFBinderGetDocumentList(doc)

 Forall b In Binder
  If Ucase(b.CoverDocOS(0)) = "YES" Then
   Messagebox "Cover document"
  Elseif Ucase(b.MainDocOS(0)) = "YES" Then
   Messagebox "Maindocument, Subject: " + b.subject(0)
  Else
   Messagebox "other Binderdocument, Subject: " + b.subject(0)
  End If
 End Forall

Terminate:
 Exit Sub
Errhandle:
 Msgbox Error & " (" & Trim(Str(Err)) & ")", 16,"Error in customer code"
 Resume Terminate

End Sub