LOTUSSCRIPT/COM/OLE CLASSES

Examples: IsNewDoc property
This script checks if a document has been saved or not before getting the corresponding document on disk and placing it in a folder of the user's choice.

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