Examples: GetItemValueCustomDataBytes method

This agent gets custom data in the current document. The custom data is in an item named TenBytesItem and was given a type name of TenBytesType when it was written.

Sub Initialize
  Dim session As New NotesSession
  Dim doc As NotesDocument
  Dim customData As String
  Set db = session.CurrentDatabase
  Set doc = session.DocumentContext
  If doc.HasItem("TenBytesItem") Then
    bytes = doc.GetItemValueCustomDataBytes("TenBytesItem", "TenBytesType")
    Forall b In bytes
      customData = customData + Chr(b)
    End Forall
    Messagebox customData,, "Custom data"
  End If
End Sub