Is it possible to use one of the XML processing objects to convert a string into a Notes object i.e. A hotspot button, and paste it into a rich text item?In other words, is the following sort of thing possible:-
Set db = session.CurrentDatabase
Set collection = db.UnprocessedDocuments
Set uidoc = ws.ComposeDocument(db.Server, db.FilePath, “Memo”)
Set doc = uidoc.Document
Call doc.ComputeWithForm(True, True)
Set itemReplyTo = New NotesItem(doc, “arrReplyTo”, “”)
Set rtitem = doc.GetFirstItem(“Body”)
If rtitem Is Nothing Then
Set rtitem = doc.createrichtextItem("Body")
End If
’ Build a button using text so that the parameter to the function called can be coded
Dim strObject As String
strObject = ||
strObject = strObject + ||
strObject = strObject + |Reply|
strObject = strObject + ||
strObject = strObject + |call aFunction(|+ strParameter +|)|
strObject = strObject + ||
strObject = strObject + ||
Dim XMLProcessor As NotesDOMParser ’ or NotesXSLTransformer or whatever
Set XMLProcessor = session.CreateDOMParser ’ ditto
Call XMLProcessor.SetInput(strObject)
Call XMLProcessor.SetOutput(rtitem)
XMLProcessor.Process
Call rtitem.Update
Call uidoc.Close
Set uidoc = ws.EditDocument(True, doc)
Many thanks to anyone who can point me to documentation or examples or just confirm that it can’t be done this way.
Steve Howells