Feld in einen ausgewähten Dokument wird nicht geändert

[Jörg]

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:

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

[ascabg]

Hallo

Schon mal folgendes versucht.

Code

Call notesDocumentCollection.StampAll( itemname, value )

Andreas

[dirk_2909]

Du musst den Code in einen Agenten einfügen und bei dem Agenten als Laufziel "Alle markierte Dokumente" angeben. In deinem Button/Aktion musst Du dann Deinen Agenten aufrufen

[klaussal]

responce   kann auch nicht gehen 

response  ist wohl richtig

Option declare nicht gesetzt ?   

[Jörg]

Hi,

danke für die Antworten es lag an der Varaiblenbezeichnung (peinlich....peinlich)

schönes Wochenende....

Gruß Jörg