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

Статус
Закрыто для дальнейших ответов.

lost

New member
09.03.2013
1
0
#1
Хочу сделать агент, который бы дописывал в поле с читателями 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

Well-known member
16.10.2007
529
3
#2
Set item = doc.GetFirstItem("Readers")
Call item.AppendToTextList( "Значение" )
 

dimat

Lotus team
31.07.2008
516
0
#3
oldvalue=doc.getItemValue("itemname")
call doc.replaceItemValue("ItemName",Arrayappend(oldvalue,appvalue))
 
Статус
Закрыто для дальнейших ответов.