Home

Content

Purchase

Ready-to-use samples

Online resources

Forum

Links

Happy readers

Anonymous

login

Main topic: ODSReadmemory NotesRichtext item

ODSReadmemory NotesRichtext item (by Ramasamy, 11/20/2006 12:43:39 AM)

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