LOTUSSCRIPT/COM/OLE CLASSES
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