Dim variableName As New NotesItem( notesDocument, name$, value [,specialType%])
Dim TAuthor As New NotesItem(doc, "Author", Auths, AUTHORS) TAuthor.IsSummary = True