LOTUSSCRIPT/COM/OLE CLASSES
Dim session As New NotesSession Dim db As NotesDatabase Dim view As NotesView Dim entry As NotesViewEntry Dim doc As NotesDocument Set db = session.CurrentDatabase Set view = db.GetView("By Category") view.AutoUpdate = False Set entry = view.GetEntryByKey("Cars") Set doc = entry.Document If entry.IsValid Then Call doc.PutInFolder("Valid Entries") Else Messagebox "This view entry is invalid." End If
See Also