Hello,
I have a problem when appending 2 richtext item to one. This is my code:
Dim ws as New NotesUIWorkspace
Dim uid as NotesUIDocument
Dim s as New NotesSession
Dim db as NotesDatabase
dim rti(2) as NotesRichTextItem
dim doc(1) as NotesDocument
Set db=s.GetDatabase(“mysrv”,“mydbn”,False)
Set doc(0)=db.CreateDocument
Call doc(0).ReplaceItemValue(“Form”,“myForm”)
Set doc(1)=ws.CurrentDocument.Document
Set rti(0)=doc(1).GetFirstItem(“MyFirstRTI”)
Set rti(1)=doc(1).GetFirstItem(“MySecondRTI”)
Set rti(2)=doc(0).CreateRichTextItem(“MyNewRTI”)
Call rti(2).AppendText(“First RTI:”)
Call rti(2).AddNewline(1)
Call rti(2).AppendRTItem(rti(0))
Call rti(2).AddNewline(1)
Call rti(2).AppendText(“Second RTI:”)
Call rti(2).AddNewline(1)
Call rti(2).AppendRTItem(rti(1))
Call rti(2).AddNewline(1)
Set uid = ws.EditDocument( True , doc(0))
…
All fields realy are RichTextItems.
And I do have back-end documents.
When my second RichtText field contains a picture it is appended without problems.
But when my second RichText field contains just formatted text it is not appended.
Is there anyone who has an idea what can be the problem?