testing :: copy it out from CAS during save and copy back during open QueryOpen
1 2 3 4 5 6 7 8 9 |
Dim testRTF As Variant Set testRTF = doc.GetFirstItem("C_AckAttach") If (testRTF.type = RICHTEXT) Then Call testRTF.Remove End If Set testRTF = New NotesRichTextItem(doc, "C_AckAttach") Dim rti As NotesRichTextItem Set rti = doc.GetFirstItem("testRTF2") Call testRTF.appendRTItem(rti) |
agent for saving doc
1 2 3 4 5 6 7 8 9 10 11 12 |
' TEST by HP 1808 Dim rti As Variant Set rti = doc.GetFirstItem("testRTF2") If (rti.type = RICHTEXT) Then Call rti.remove End If Set rti = New NotesRichTextItem(doc, "testRTF2") Dim rticas As NotesRichTextItem 'create new rti for testRTF2 Set rticas = doc.getFirstItem("C_AckAttach") Call rti.appendRTItem(rticas) ' end test |