LOTUSSCRIPT /COM/OLE のクラス
例: AppendToTextList メソッド
1. 次のスクリプトは文書の 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 )
2. 次のスクリプトは文書の 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 )
3. 次のスクリプトは文書 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 )
関連項目
AppendToTextList メソッド
用語集
フィードバック
ヘルプ
または
プロダクトユーザビリティ
ヘルプの使い方
すべてのヘルプ項目
用語集