Das Notes Forum
Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: Fbaum am 31.10.02 - 07:43:41
-
Hallo...
ich bräuchte einen Agenten, der ein Feld in einem Dokument ändert.
Ich habe ein Dokument mit einem Namensfeld.
Nun möchte ich dieses Feld in 5 markierten Dokumenten über die Picklist-Funktion ändern. Dies funktioniert auch, jedoch kommt 5 mal die Pickliste und ich muß 5 mal den gleichen Namen raussuchen.
Was ich möchte ist folgendes:
1.) Markieren der zu ändernden Dokumente
2.) Starten des Agenten (manuell)
3.) Auswählen der Adresse aus der Picklist
4.) Ändern aller markierten Dokumente.
Ist das möglich...
Danke schon mal für Eure Hilfe.
Gruß FBaum
-
Also, wenn du in mehreren Dokumenten ein oder mehrere Felder mit einem Wert füllen oder ersetzen möchtest, habe ich hier http://www.eknori.de/tips/update.htm genau das richtige für dich.
eknori
-
Hi,
mit Script ist das möglich.
Erstelle einen Agenten der für alle gewählten Dokumente gilt.
Trage folgenden Code ein:
Dim session As New NotesSession
Dim workspace As New NotesUIWorkspace
Dim db As NotesDatabase
Dim collection As NotesDocumentCollection
Dim doc As NotesDocument
Dim picklist As Variant
Set db = session.CurrentDatabase
Set collection = db.UnprocessedDocuments
picklist = workspace.Pickliststrings(3, False,"Servername","Datenbank","Name der Ansicht", "Titel", "Eingabeaufforderung", 1)
Set doc = collection.GetFirstDocument
While Not (doc Is Nothing)
doc.Feldname = picklist
Call doc.Save(True,False)
Set doc = collection.GetNextDocument(doc)
Wend
Das sollte funktionieren. Die entsprechenden Parameter wie Servername, Datenbankname Name der Ansicht etc. mußt du deinen Gegebenheiten anpassen. Nähere Infos zur PicklistStrings-Methode findest du in der Desinger-Hilfe.
Axel
-
Danke...Funktioniert 1A+
Gruß FBaum