Hi,
es sind wirklich nur Profile. Den gesamten Code zu posten, würde das Forum sprengen, jedoch die wichtigen vier Zeilen sind:
Dim nnc As NotesNoteCollection
Set nnc = ns.CurrentDatabase.createNoteCollection(False)
nnc.SelectProfiles = true
Call nnc.BuildCollection() '<< krack!
Alex