LOTUSSCRIPT/COM/OLE CLASSES
Sub printViewName (d As NotesDocument, t As String) Dim v As notesview Set v = d.ParentView If v Is Nothing Then Messagebox "Document did not come from a view.", , t Else Messagebox "Document came from the " + _ v.Name + " view.", , t End If End Sub