Dim nnc As NotesNoteCollection nnc.Selectscriptlibraries = true
uidoc.document.~$Comment(0)
Dim nc As NotesNoteCollection Set nc = db.CreateNoteCollection(False) nc.Selectscriptlibraries = True nc.SelectionFormula = {$Title = "Name der Scriptbibliothek"} Call nc.Buildcollection() If nc.Count > 0 Then Set doc = db.Getdocumentbyid(nc.Getfirstnoteid()) End If Dim Comment As String Comment = doc.~$Comment(0)