| Sub Click (Source As Button) |
| |
| '********************************************************************** |
| ' This script builds an array of documents that are included in a |
| 'folder. It then compares each document in the All Documents view to |
| 'each document in the array. If it finds one, it breaks out and |
| 'continues onto the next document. If it reaches the end of the array, |
| 'then it hasn't found a match and the document is moved to the Inbox |
| 'folder. |
| '********************************************************************** |
| |
| Dim s As New notessession |
| Dim db As notesdatabase |
| Dim fDoc As NotesDocument ' Document in folder |
| Dim ad As notesview ' All Documents view |
| Dim aDoc As notesdocument ' document in All Docs view |
| Dim fUNID() As String ' array of UNID's of docs in folders |
| Dim i As Integer ' UNID array index |
| Dim deldate As notesitem |
| Dim Chair1 As notesitem |
| |
| i =0 |
| Set db = s.CurrentDatabase |
| |
| ' Build UNID array by looping through folders, then their documents |
| Forall view In db.views |
| If view.IsFolder And Not view.Name=("($All)") Then |
| Set fDoc = view.GetFirstDocument |
| While Not fDoc Is Nothing |
| Redim Preserve fUNID(i) |
| fUNID(i) = fDoc.UniversalID |
| i=i+1 |
| Set fDoc = view.GetNextDocument(fDoc) |
| Wend |
| End If |
| End Forall |
| |
| ' Loop through docs in the All Documents view and compare UNIDs to each |
| doc |
| in the array |
| Set ad = db.GetView("($All)") |
| Set aDoc = ad.GetFirstDocument |
| While Not aDoc Is Nothing |
| i = 0 |
| Do While i <= Ubound(fUNID) |
| If fUNID(i) = aDoc.UniversalID Then |
| Exit Do |
| End If |
| i = i + 1 |
| Loop |
| Set deldate = adoc.getfirstitem("delivereddate") |
| Set Chair1 = adoc.getfirstitem("CHAIR") |
| If i > Ubound(fUNID) And Not deldate Is Nothing And Chair1 Is |
| Nothing Then |
| Call adoc.PutInFolder( "($Inbox)") |
| |
| End If |
| Set aDoc = ad.GetNextDocument(adoc) |
| Wend |
| End Sub |
| |
