例: ReplaceItemValueCustomDataBytes method

このエージェントは、現在の文書内でアイテムの作成または置き換えを行い、それにバイト配列の値を代入します。

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
  
  REM Create custom data
  For i = 0 To 9 Step 1
    bytes(i) = i + 65
  Next
  
  REM Create or replace custom data item
  Set item = doc.ReplaceItemValueCustomDataBytes( _
  "TenBytesItem", "TenBytesType", bytes)
  Call doc.Save(True, True, True)
End Sub