Hallo Leute,
ich sehe mal wieder vor lauter Bäumen den Wald nicht mehr.
Folgende Funktion möchte nicht so wie ich .... ;-)
Über einen Button in einer Ansicht wird eine Auswahlbox geöffnet ,in der
der Nutzer eine Auswahl treffen kann. Wird die Auswahl bestätigt , so möchte diese Auswahl in alle zuvor
ausgewählten Dokumenten eintragen und speichern. Hier der Code:
Sub Click(Source As Button)
Dim response As Variant
Dim resview As String
Dim values(6) As Variant
Dim ws As New NotesUIWorkspace
Dim view As NotesUIView
Set view = ws.CurrentView
'----- Ansichten vorbelegen
values(0) = "Gruppe1"
values(1) = "Gruppe2"
values(2) = "Gruppe3"
values(3) = "Gruppe4"
values(4) = "Gruppe5"
values(5) = "Gruppe6"
values(6) = "Gruppe7"
response = ws.Prompt (PROMPT_OKCANCELLISTMULT, _
"Benutzergruppe wählen", _
"Bitte wählen Sie die Benutzergruppen aus.", _
values(0), values)
If Isempty (response) Then
'----- keine Auswahl getroffen
Messagebox "Die Aktion wurde vom Benutzer abgebrochen", , "Abbruch erfolgt"
Else
Dim session As New NotesSession
Dim db As NotesDatabase
Dim collection As NotesDocumentCollection
Dim doc As NotesDocument
Dim workspace As New NotesUIWorkspace
Dim item As NotesItem
Set db = session.CurrentDatabase
Set collection = db.UnprocessedDocuments
Set doc = collection.GetFirstDocument
While Not(doc Is Nothing)
doc.dcreaders = responce
Call doc.Save( False, True )
Set doc = collection.GetNextDocument(doc)
Wend
End If
Call ws.ViewRefresh
End Sub
Problem:
Das Script läuft durch , aber in die ausgewählten Dokumente der View werden die
keine Änderungen vorgenohmen, ohne das mir ein Fehler ausgeben wird.
Wo liegt hier mein Denkfehler.
Danke schon mal vorab für die Antworten.....
Gruss Jörg
Hallo
Schon mal folgendes versucht.
Call notesDocumentCollection.StampAll( itemname, value )
Andreas