Feld per Agent ändern

[Fbaum]

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

[eknori]

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

[Axel]

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


 

[Fbaum]

Danke...Funktioniert 1A+

Gruß FBaum