例: GetValueCustomDataBytes method

次のエージェントは、現在の文書のカスタムデータを取得します。カスタムデータは TenBytesItem という名前のアイテムにあり、書き込まれたときに TenBytesType というデータ型名が設定されています。

Sub Initialize
  Dim session As New NotesSession
  Dim doc As NotesDocument
  Dim item As NotesItem
  Dim customData As String
  Set db = session.CurrentDatabase
  Set doc = session.DocumentContext
  If doc.HasItem("TenBytesItem") Then
    Set item = doc.GetFirstItem("TenBytesItem")
    If item.Type = USERDATA Then
      bytes = item.GetValueCustomDataBytes("TenBytesType")
      Forall b In bytes
        customData = customData + Chr(b)
      End Forall
      Messagebox customData,, "Custom data"
    Else
      Messagebox "Not custom data",, "TenBytesItem"
    End If
  Else
    Messagebox "No item in document",, "No TenBytesItem"
  End If
End Sub