NotesDatabase(“<SERVER>", “<FILE>") Dim doc As NotesDocument Dim maxitem$, maxlength As Integer If Not db.Isopen Then db.Open "", "" Set doc = db.Getdocumentbyunid(“<UNID>") ForAll item In doc.items If item.Issummary Then If maxlength < item.Valuelength Then maxlength = item.Valuelength maxitem = item.name End If End If End ForAll Print maxitem, maxlength