LOTUSSCRIPT/COM/OLE CLASSES

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

See Also