I am attempting to append/copy (whatever way will work) a richtextitem to a newly created document and then send that document through email.
Here is the code that I am using to do this.
Dim workspace As New NotesUIWorkspace
Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim uidoc As NotesUIDocument
Set db = session.CurrentDatabase
Set uidoc = workspace.CurrentDocument
Set doc = uidoc.Document
Dim maildoc As New NotesDocument(db)
Set BodyRichText = New NotesRichTextItem(maildoc, “Body” )
Set mainItem = doc.GetFirstItem(“eventMain”)
Call BodyRichText.AppendRTItem(mainItem)
maildoc.sendto =“David Godlewski”
Call maildoc.send(False)
The main problem I’m having is that the body item does not show in the mailed document. If I look at the document properties I can see the “Body” item and it has the correct information in the field, but it will not display on the document.
Also, If I put the mailed document in edit mode and attempt to type in the space where there should be a body field, nothing happens… it’s like there is no body field.
As I mentioned earlier I have tried several different ways to copy/append this RichTextItem onto my maildoc and always get the same result.
Has anyone ever ran into this issue before or perhaps something similar?