was genau ist Deine Frage?
Gruß
Dirk
also eine Frage ist immer noch nicht dabei .
dim session as New NotesSession
dim db as NotesDatabase
dim dc as NotesDocumentCollection
dim doc as NotesDocument
set db = session.CurrentDatabase
set dc = db.AllDocuments
set doc = dc.getFirstDocument
While not doc is Nothing
if doc.status(0) = "erledigt"then
' hier Dein Leserfeld bearbeiten
' falls das Feld noch nicht existiert, musst Du es als Item-Object erzeugen und die Eigenschaft IsReaders auf True setzen
end if
set doc = dc.GetNextDocument(doc)
WendGruß
Dirk
Klar denn du musst source ja erst mal setzen.
z.B. über eine NotesUIWorkspace
Dort gibt es ein CurrentDocument
Dim ws As new NotesUIWorkspace
Dim source As NotesUIDocument
Dim doc As NotesDocument
Dim item As NotesItem
Set source = ws.CurrentDocument
Set db = session.CurrentDatabase
Set doc = source.document
If ( source.FieldGetText( "Status" ) = "Erledigt" ) Then
Set item = doc.GetFirstItem("Readers")
Call doc.ReplaceItemValue("Readers","[Controlling]")
Call doc.AppendItemValue("Readers",KstVerant)
Call doc.AppendItemValue("Readers",RecipientsSubSys)
Call doc.AppendItemValue("Readers",NeuKstVerant)
item.IsReaders=1
1) WELCHE Fehlermeldung ? :-?
2) Da fehlt ein "End If" 
Trenn Sie durch das entsprechende Trennzeichen des Feldes, d.h. ist dort ein , als Trennzeichen definiert dann trenne sie durch ,
