If subdoc.HasItem("DocReaderGFLeader") Then Set item = subdoc.ReplaceItemValue(...) item.IsReaders = True Else Set item = New NotesItem( subdoc, <Feldname>, <Wert>, READERS) End If
doc.replaceItemValue( "DocReaderGFLeader", GFLeader ).isReaders = true