LOTUSSCRIPT/COM/OLE CLASSES
Sub Click(Source As Button) Dim workspace As New NotesUIWorkspace Dim uidoc As NotesUIDocument Dim doc As NotesDocument Dim choice As String Set uidoc = workspace.CurrentDocument If uidoc.IsNewDoc Then Messagebox _ ( "Save the document before placing it in a folder" ) Else Set doc = uidoc.Document choice = Inputbox _ ( "Please enter a folder name: ", "Which folder?" ) Call doc.PutInFolder( choice ) End If End Sub
See Also