By: edvabnik

edvabnik — Mon, 16 Apr 2012 08:20:55 +0000

I have created a memo with this agent:
Sub Initialize
Dim s As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim rtItem As NotesRichTextItem
Dim i%
Set doc = s.CurrentDatabase.CreateDocument
doc.Subject = “100 Lines in Body”
doc.SendTo = s.UserName
Doc.Form = “Memo”
Set rtItem = doc.CreateRichTextItem(“Body”)
For i = 0 To 99
Call rtItem.AddNewline(1, True)
Call rtItem.AppendText(Str(i) + ” line in Body is here yxdvyxcvyxcv yxcv yxcv yxcv yx cvyx cv”)
Next
Call doc.Save(True, False)
Call doc.Send(False)
End Sub

Then I could count the number of lines in the body field of this memo with the following agent:

Sub Initialize
Dim s As New NotesSession
Dim doc As NotesDocument
Dim rtItem As NotesRichTextItem
Dim item As Variant
Dim plainText$, vTmp

Set doc = s.CurrentDatabase.UnprocessedDocuments.GetFirstDocument
If Not doc Is Nothing Then
If doc.HasItem(“Body”) Then
Set item = doc.GetFirstItem(“Body”)
If item.Type = 1 Then
Set rtItem = doc.GetFirstItem(“Body”)
plainText = rtItem.GetUnformattedText( )
vTmp = Split(plainText, Chr$(10))
Msgbox Str(Ubound(vTmp)) + ” strings were found in Body”
End If
End If
End If
End Sub

Best regards

By: abushahd

abushahd — Sun, 15 Apr 2012 11:05:15 +0000

Hi there ,,

The only thing I can mention over here is Lotus Limits
http://publib.boulder.ibm.com/infocenter/domhelp/v8r0/index.jsp?topic=%2Fcom.ibm.notes85.help.doc%2Ffram_limits_of_notes_r.html

Best Wishes

Comments on: How to get no. of items appended into rich text field

By: edvabnik

By: abushahd