例: AppendToTextList method

次のスクリプトは文書の Categories アイテムにテキスト値「Shocks」を追加します。例えば、スクリプトの実行前に Categories アイテムが値「Clocks」、「Blocks」を含むとき、スクリプトの実行後、アイテムは「Clocks」、「Blocks」、「Shocks」を含みます。
```
Dim doc As NotesDocument
Dim item As NotesItem
' ...set value of doc...
Set item = doc.GetFirstItem( "Categories" )
Call item.AppendToTextList( "Shocks" )
Call doc.Save( False, True )
```

次のスクリプトは文書の Categories アイテムに「Girls」、「Boys」、「Toys」の 3 つのテキスト値を新規追加します。

Dim doc As NotesDocument
Dim item As NotesItem
Dim newVals( 1 To 3 ) As String
'...set value of doc...
Set item = doc.GetFirstItem( "Categories" )
newVals( 1 ) = "Girls"
newVals( 2 ) = "Boys"
newVals( 3 ) = "Toys"
Call item.AppendToTextList( newVals )
Call doc.Save( False, True )

次のスクリプトは文書 A のすべての [Categories] の値を文書 B にコピーします。例えば、文書 A の Categories アイテムに「Tool」、「Weapon」が含まれ、文書 B の Categories アイテムに「Technology」が含まれるとき、スクリプトの実行後、文書 B の Categories アイテムには 3 つの値「Tool」、「Weapon」、「Technology」が含まれます。文書 A は変更されません。
```
Dim docA As NotesDocument
Dim docB As NotesDocument
Dim item As NotesItem
'...set values of docA and docB...
Set item = docB.GetFirstItem( "Categories" )
Call item.AppendToTextList( docA.Categories )
Call docB.Save( False, True )
```