Domino Code Fragment

Code Name*
Manipulating Rich Text		Date*
04/28/2024		Source (or email address if you prefer)*
Rlatulippe@romac.com
IP address:.18.217.210.147
Description*
Manipulating Rich Text		Type*
LotusScript		Categories*
(Misc)
Implementation:
Required Client:
Server:
Limitations:
Comments:
Files/Graphics attachments (if applicable): Code:
Where : Agent

Solution :

Sub Initialize

'-- This agent produces a report of all product ideas approved for a product plan, which
'-- is stored as a document in this database.

Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim collection As NotesDocumentCollection

Set db= session.CurrentDatabase
Set collection = db.UnprocessedDocuments

Dim ReportDoc As New NotesDocument(db)
Dim richText As New NotesRichTextItem(ReportDoc, "Body")

Dim rcollection As NotesDocumentCollection
Dim rt As Variant

Set doc = collection.GetfirstDocument

Do While Not (doc Is Nothing )
If doc.form(0) = "Design" Then
Call richText.AppendText(doc.CreatedBy(0))
Call richText.AddTab(1)
Call richText.AppendText(doc.ProductName(0))
Call richText.AddNewLine(1)

Set rcollection = doc.responses
Set rdoc = rcollection.getfirstdocument
Do While Not ( rdoc Is Nothing )
Set rt = rdoc.getfirstitem("Summary")
Call richText.appendrtitem( rt )
Call richText.AddNewLine(1)
Set rdoc = rcollection.getnextdocument(rdoc)
Loop
End If
Set doc = collection.GetNextDocument(doc)
Loop

ReportDoc.Form = "Report"
ReportDoc.Subject = "Approved Ideas Report"
Call ReportDoc.save(True,True)

End Sub