LOTUSSCRIPT /COM/OLE のクラス

例: SetValueCustomDataBytes メソッド
次のエージェントは、現在の文書のアイテムをバイト配列の値に設定します。

Sub Initialize
 Dim session As New NotesSession
 Dim doc As NotesDocument
 Dim item As NotesItem
 Dim bytes(9) As Byte
 Set db = session.CurrentDatabase
 Set doc = session.DocumentContext  
 If doc.HasItem("TenBytesItem") Then
   Set item = doc.GetFirstItem("TenBytesItem")
   If item.Type = USERDATA Then
     REM Create custom data
     For i = 0 To 9 Step 1
       bytes(i) = i + 65
     Next
     REM Replace custom data item
     Call item.SetValueCustomDataBytes("TenBytesType", bytes)
     Call doc.Save(True, True, True)
   Else
     Messagebox "Not custom data",, "TenBytesItem"
   End If
 Else
   Messagebox "No such item",, "No TenBytesItem"
 End If
End Sub

関連項目