Damit klappt es. Lotus Script ist halt doch verlässlich.
Hier mein LS Code:
Sub Click(Source As Button)
Dim ws As New NotesUiWorkspace
Dim Session As New NotesSession
Dim db As NotesDataBase
Set db = session.CurrentDatabase
Dim doc As NotesDocument
Dim dc As NotesDocumentCollection
Dim view As NotesView
' Bilden der Document Collection
Set dc = db.UnprocessedDocuments
If dc.count > 0 Then
Set doc = dc.GetFirstDocument()
While Not(doc Is Nothing)
' Loop durch Dokumente
doc.PersonStatus = "ARCHIV: Ins Archiv damit"
Call doc.Save( True, True )
Set doc = dc.GetNextDocument(doc)
Wend
End If
End Sub
Allerdings ist das schon etwas mühsam, nun müsste ich in meine 15 Ansichten, die ich später als eingebettete Ansichten in eine Maske einfüge, diese Aktion einfügen und wenn sich etwas ändert, mache ich das wieder 15 mal , zwar mit Copy und Paste, aber ich bin halt doch ein Fan von Gemeinsamen Aktionen.
Also ich denke für meinen speziellen Fall, werde ich wohl auf ein paar eingebettete Ansichten verzichten und diesen nur dort anwenden, wo es echt nicht anders geht. (Am Anfang war ich von den eingebetteten Ansichten als Single Category View ganz begeistert.)
Werden die eingebetteten Ansichten in den Notes Versionen 7 und 8 hier ein bisschen konfortabler ?
Grüssle und vielen Dank !
Marion