Manage Learn to apply best practices and optimize your operations.

Appending items to a text field

This tip describes how to append items to a text field with LotusScript.

Everybody is faced with the necessity of appending a text line to a text-field with multiple lines. For this purpose just call the function below.
 

 Function AddItem(doc As NotesDocument, 
itemname As String, value As String) As Variant
Dim item As NotesItem
Dim z As Integer
Set item = doc.getfirstitem(itemname)
If Not item Is Nothing Then
z = Ubound(item.values)
Redim Preserve itemarray(z+1)
For i=0 To z
itemarray(i)=item.values(i)
Next
itemarray(z+1) = value
Set item = doc.ReplaceItemValue( itemname, itemarray )
Else
Set item = doc.ReplaceItemValue( itemname, value )
End If
End Function

Dig Deeper on LotusScript

SearchWindowsServer

Search400

  • Favorite iSeries cheat sheets

    Here you'll find a collection of valuable cheat sheets gathered from across the iSeries/Search400.com community. These cheat ...

  • HTML cheat sheet

    This is a really cool cheat sheet if you're looking to learn more about HTML. You'll find just about everything you every wanted ...

  • Carol Woodbury: Security

    Carol Woodbury

SearchDataCenter

SearchContentManagement

Close