Domino Code Fragment

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

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")

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)
End If
Set doc = collection.GetNextDocument(doc)
Loop

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

End Sub