.

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: SetBarColor method
This agent sets the bar color of each section in a rich text item.

Sub Initialize
 Dim session As New NotesSession
 Dim db As NotesDatabase
 Set db = session.CurrentDatabase
 Dim dc As NotesDocumentCollection
 Set dc = db.UnprocessedDocuments
 Dim doc As NotesDocument
 Set doc = dc.GetFirstDocument
 Dim rti As NotesRichTextItem
 Set rti = doc.GetFirstItem("Body")
 Dim rtnav As NotesRichTextNavigator
 Set rtnav = rti.CreateNavigator
 If Not rtnav.FindFirstElement(RTELEM_TYPE_SECTION) Then
   Messagebox "Body item does not contain a section,",, _
   "Error"
   Exit Sub
 End If
 Dim rts As NotesRichTextSection
 Dim colorObject As NotesColorObject
 Do
   Set rts = rtnav.GetElement
   Set colorObject = session.CreateColorObject
   colorObject.NotesColor = COLOR_BLUE
   Call rts.SetBarColor(colorObject)
   Call doc.Save(True, True)
 Loop While rtnav.FindNextElement
End Sub

See Also