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

This was first published in April 2003

Dig deeper on LotusScript

0 comments

Oldest 

Forgot Password?

No problem! Submit your e-mail address below. We'll send you an email containing your password.

Your password has been sent to:

-ADS BY GOOGLE

SearchWinIT

Search400

  • iSeries tutorials

    Search400.com's tutorials provide in-depth information on the iSeries. Our iSeries tutorials address areas you need to know about...

  • V6R1 upgrade planning checklist

    When upgrading to V6R1, make sure your software will be supported, your programs will function and the correct PTFs have been ...

  • Connecting multiple iSeries systems through DDM

    Working with databases over multiple iSeries systems can be simple when remotely connecting logical partitions with distributed ...

SearchEnterpriseLinux

SearchVirtualDataCentre.co.UK

Close