I cannot for the life of me figure out why I cannot pipeline to a rich text object. Here is my code. Basically, I am trying to document some databases programmaticlly.
Dim notecoll As NotesNoteCollection
'The collection of Domino design notes
Dim s As New notessession
'Build a notecollection of all the related design notes
Dim targetdb As notesdatabase
Set targetDb = s.currentdatabase
Set notecoll = targetDb.CreateNoteCollection(False)
notecoll.SelectAgents =True
notecoll.BuildCollection
Dim mbox As New notesdatabase("", "journal.nsf")
Dim entry As New NotesDocument(mbox)
Dim bod As New NotesRichTextItem(entry, "Body")
Dim dxlexp As NotesDXLExporter
Set dxlexp = s.Createdxlexporter(noteColl)
Dim domparse As notesdomparser
Set domParse = s.CreateDOMParser(dxlexp, bod)
Call domparse.Setoutput(bod)
dxlexp.process
Dim ws As New notesuiworkspace
ws.EditDocument False, entry
Now, the exporter is getting data, and I’m getting data in the domParse object, but the Body object is always blank ( but not null, it is instantiated). I had it working last week, but not now. It was populating the Body of my journal doc with the XML Agent design of whatever database I was working on. Ideas?