Добавить Значение В Item

[lost]

Хочу сделать агент, который бы дописывал в поле с читателями notes-имена, но не знаю, как это сделать,
пока придумал только это, но AppenditemValue создает новый item, а мне нужно дописать в старый

Dim db As NotesDatabase
Dim ns As New NotesSession
Dim ws As New NotesUIWorkspace
Dim readers As Variant
Dim col As NotesDocumentCollection
Dim doc As NotesDocument
Set db=ns.CurrentDatabase
Set col = db.Unprocesseddocuments
Set doc = col.Getfirstdocument()
readers=ws.PickListStrings(0,True)

Call doc.Appenditemvalue("Readers", readers)

Call doc.Save(True, True)

 

[susinmn]

Set item = doc.GetFirstItem("Readers")
Call item.AppendToTextList( "Значение" )

 

[dimat]

oldvalue=doc.getItemValue("itemname")
call doc.replaceItemValue("ItemName",Arrayappend(oldvalue,appvalue))