.

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: FolderReferencesEnabled property
The following script creates a new document in the database; puts it into "view1", "view2", and "view3" folders; and then prints out all folder references and a count for each document.

Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Set db = session.CurrentDatabase
If(db.FolderReferencesEnabled) Then
 Messagebox "Folder References enabled"
Else
 Messagebox "Folder References are not enabled"
 Messagebox "Enabling Folder References"
 db.FolderReferencesEnabled = True
End If
db.FolderReferencesEnabled = True
Set doc = db.CreateDocument
If Not (doc Is Nothing) Then
 Call doc.AppendItemValue("Name", "Test Document Name")
 Call doc.AppendItemValue("Topic", "Test Document Topic")
 Call doc.Save(True, True)
 Messagebox "Adding document to views"
 doc.PutInFolder("view1")
 doc.PutInFolder("view2")
 doc.PutInFolder("view3")
 Call doc.Save(True, True)
End If
Dim doccoll As NotesDocumentCollection
Set doccoll = db.AllDocuments
Set doc = doccoll.GetFirstDocument
While Not (doc Is Nothing)
 i=0
 Forall FolderReference In doc.FolderReferences
   i=i+1  
   Messagebox doc.noteid, " ", i, " ", FolderReference
 End Forall
 Set doc = doccoll.GetNextDocument(doc)
Wend
End Sub

See Also