Thanks to some great help I received here, I was able to create a document that contains a NotesRichTextItem that contains several Document Links. The problem I’m having now is quite a bit different. I’m creating a new document with a NRTI on it that will contain attachments and links to documents. I have buttons on the form that add attachments and document links. The problem is with the document links. I’m using a picklist that contains the category documents that I created above. These documents contain a NRT Field Named “Body”. I’m allowing users to pick one or more of these category documents from the list and the idea is to copy the links contained in the NRT field on each of the documents to the NRT field on the current document.
My problem seems to be related to the default form for the database. The default form for the database is “Categories” and the current form is “Readings”
This is in the Click event of the button:
Dim s As New NotesSession
Dim db As NotesDatabase
Dim ws As New NotesUIWorkspace
Dim uid As NotesUIDocument
Dim doc As NotesDocument
Dim lookupdoc As NotesDocument
Dim v As NotesView
Dim rti As NotesRichTextItem
Dim rtitem As notesrichtextitem
Set db=s.CurrentDatabase
Set uid=ws.CurrentDocument
Set doc=uid.Document
Set v=db.GetView("Categories")
Set rti=New NotesRichTextItem(doc,"ReguiredReading")
Dim dc As NotesDocumentCollection
Set dc=ws.PickListCollection(3,True,DB.Server,db.FilePath,"Categories","Categories","Please select one or more categories.")
Dim i As Integer
For i=1 To dc.Count
Set lookupdoc=dc.GetNthDocument(i)
Set rtitem=lookupdoc.GetFirstItem("Body")
If rtitem.Type = RICHTEXT Then
Call rti.AddNewline(1)
Call rti.AppendRTItem(rtitem)
Call uid.Close
Call rti.Update
Set uid= ws.EditDocument(True,doc)
End If
Next
If you have a clue how I might accomplish this, or where I’m going wrong, I’d greatly appreciate it.
Thanks,
MJ