Dim cyDoccol As NotesDocumentCollection Dim cyView As NotesView Dim cyDoc As NotesDocument Set cyView = db.getView("VWCyyj") Set cyDoccol = cyView.GetAllDocumentsByKey(doc.docunid(0)) Set cyDoc = cyDoccol.GetFirstDocument Dim newcyView As notesvi...
(more)