Anonymous
|
Hi Normunds Thanks for your reply, Need your help again. I tried using ODS_BYTE=3 and declared the destination as byte, I get only 1 byte value, the iteration I tried changing to 10, 256 etc., it does'nt work, the notes client hangs. How do I get a byte array of the richtext content, If I declare the destination as byte array again the notes client hangs. I know that file attachments are stored separately in $File fields, I'm interested in converting other contents(tables, formatted text, pictures etc.,) to bytes. 'declarations Const ODS_BYTE=3 Declare Sub W32_ODSReadMemory Lib "nnotes.dll" Alias "ODSReadMemory"_ (pSource As Long, Byval typeODS As Integer, pDest As Any, Byval Iterations As Integer ) 'main code Dim memman As New memoryManager Dim item_blockid As Blockid Dim value_blockid As Blockid Dim value_datatype As Integer Dim value_len As Long Dim p As Long Dim iType As Byte
Dim w As New NotesUIWorkspace Dim uidoc As NotesUIDocument Set uidoc = w.CurrentDocument Set doc = uidoc.Document If NSFItemInfo (doc.handle, "Body", Len("Body"), item_blockid, value_datatype, value_blockid, value_len) =0 Then p = memman.lockObject (value_blockid.pool) + value_blockid.block W32_ODSReadMemory p, ODS_BYTE, iType, 1 End If
|