Frage vorweg: Reichen denn die beiden Spalten ? Können die Namen nicht mehrfach unter unterschiedlichen Kategorien auftauchen ?
Ich würde das ganze nicht über eine NotesDocumentCollection machen, da diese ja extra noch nach dem Datum absteigend sortiert werden müsste. Ich würde das mit zwei Schleifen machen. Hier eine Grobbeschreibung:
GetFirstDocument
Do While Not (doc is Nothing)
strName = doc.Name (0)
iCount = 0
Do While strName = doc.Name (0)
iCount = iCount + 1
If iCount > 2 Then
'doc Löschen, ADT-Fehler vermeiden !
End If
GetNextDocument
doc Is Nothing -> Exit Loop !
Loop
Loop
So wird die Ansichtssortierung genutzt, und man ist mit wenigen Zeilen am Ziel.
HTH,
Bernhard