.

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: EnableFolder method
This code moves all the documents in the collection that contain the word cayenne to the "Spicy" folder. The call to the EnableFolder method ensures that the "Spicy" folder exists; if it does not, this method creates it.

Sub Initialize
 Dim session As New NotesSession
 Dim db As NotesDatabase
 Dim dc As NotesDocumentCollection
 Dim doc As NotesDocument
 Set db = session.CurrentDatabase
 Set dc = db.FTSearch("cayenne",20)
 Set doc = dc.GetFirstDocument
 Call db.EnableFolder("Spicy")
 While Not(doc Is Nothing)
   Call doc.PutInFolder("Spicy", False)
   Set doc = dc.GetNextDocument(doc)
 Wend
End Sub

See Also