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