Hello, i need some help. i need first 500 documents from the entry collection (of some 1000’s of documents) and then next 500 like that…How can i?
Please help me.
Thanks & Regards,
Archi.
Subject: entrycollection
Hi Archi,
try this :
Dim uiw As New NotesUIWorkspace
Dim view As NotesView
Dim doc As NotesDocument
Dim i As Integer
Dim viewentrycol As NotesViewEntryCollection
Dim entry As NotesViewEntry
Dim z As Integer
Set view = uiw.CurrentView.View
Set viewentrycol = view.AllEntries
Set entry = viewentrycol.GetFirstEntry
Set doc = entry.Document
While Not entry Is Nothing
For i = 1 To i = 500
'make someting with your document
xx
xx
If i <=500 Then
Set entry = viewentrycol.GetNextEntry(entry)
Set doc = entry.Document
Else
'All 500 documents are processed
End If
Next
Wend
'And now the next 500 Documents
Set entry = viewentrycol.GetNthEntry(i)
Set doc = entry.Document
'the same as above
While Not entry Is Nothing
For z = i To z = 1000
'make someting with your document
xx
xx
If z <=1000 Then
Set entry = viewentrycol.GetNextEntry(entry)
Set doc = entry.Document
Else
'All 1000 documents are processed
End If
Next
Wend
And so on…
Bernhard