Feld ändern - Wert anhängen (LS)

[daija]

Hallo,

ich möchte gerne in einer Ansicht mit einem Agent über mehrere Dokumente einen Wert an ein vorhandenes Feld anhängen (nicht ersetzten, z.B. replaceItemValue)).
Dabei soll der anzuhängende Wert dynamisch sein bzw.abgefragt werden.
Als Feld in der  Maske verwende ich ein Namesfeld.
In Notes gibt es so etwas bei Agenten unter "einfache Aktionen". Hier kann man jedoch nur einen festen Wert eingeben.
Hat jemand eine Idee? Vorab Danke!
Daniel

[TMC]

Eigentlich ziemlich einfach möglich.

Hier mal ein Rahmen:

Code

Sub Initialize
   
   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim collection As NotesDocumentCollection
   Dim doc As NotesDocument

   Set db = session.CurrentDatabase

   Set collection = db.UnprocessedDocuments
   While Not(doc Is Nothing)
      '###############################
      'HIER DEINE AKTIONEN
      '###############################      
      Set doc = collection.GetNextDocument(doc)
   Wend
   
End Sub

Mit AppendToTextList der NotesItem-Klasse kannst Du neue Werte einem Listenfeld anhängen.
Oder Du definierst ein Feld gleich neu z.B. mit
doc.DEINFELD = "Dein beliebiger Wert......." & " - " & doc.Irgendeinfeld(0) & "....."