Domino Code Fragment

Code Name*
Import a Text File into a Rich Text Item via LotusScript		Date*
04/28/2024		Source (or email address if you prefer)*
Rlatulippe@romac.com
IP address:.3.138.200.66
Description*
Imports a text file (c:\temp\sample.txt) into a rich text Item named
"Body".		Type*
LotusScript		Categories*
(Misc)
Implementation:
Required Client:
Server:
Limitations:
Comments:
Note: For the sample script to perform as intended, variables and other script elements must match those used below.
Files/Graphics attachments (if applicable): Code:
Problem:
Using LotusScript, how can you import a text file into a rich text Item of a document?

Solution:
Below is a sample agent that imports a text file (c:\temp\sample.txt) into a rich text Item
named "Body". This agent cycles through all unprocessed documents in the current databas
and imports the text file into each document.

Sample Agent:

Sub Initialize

Dim FileNum As Integer
Dim FileName As String
Dim oneLine As String
Dim session As NotesSession
Dim docColl As NotesDocumentCollection
Dim db As NotesDatabase
Dim Doc As NotesDocument
Dim rtitem As Variant

Set session = New Notessession
Set db = session.CurrentDatabase
Set docColl = db.UNPROCESSEDDOCUMENTS

'Go through the unprocessed documents
Set Doc =docColl.GETFIRSTDOCUMENT


While Not (doc Is Nothing)

Call font.CopyItemToDocument(Doc,"")

FileNum = Freefile()
FileName = "C:\Temp\sample.txt"

'Open the Text File
Open FileName For Input As FileNum

Set rtitem = doc.GetFirstItem("Body")
Do While Not Eof(FileNum)
Line Input #fileNum, oneLine
Call rtitem.AppendText( oneLine )
Call rtitem.AddNewLine( 1 )
oneLine = ""
Loop
Close FileNum

Call Doc.Save( True, True )

Set doc = docColl.GetNextDocument(Doc)
Wend

End Sub