LOTUSSCRIPT/COM/OLE CLASSES
Sub Click(Source As Button) Dim workspace As New NotesUIWorkspace Dim uidoc As NotesUIDocument Set uidoc = workspace.CurrentDocument If uidoc.IsNewDoc Then Messagebox _ ( "Please save the document before forwarding it.") Else Call uidoc.Forward End If End Sub
See Also