.

HCLSoftware Business Partner
Domino Consulting Services
CRUCIAL Notes Tools
+1 212-599-2048

Domino Consulting Services
CRUCIAL Notes Tools
Domino administration
Notes development

Facebook Twitter YouTube
Chat now       
.
ProductsDownloadsNewsAbout usContact


Need a Domino Consultant? Call NotesMail +1 212-599-2048 - HCLSoftware Business Partner

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