Das Notes Forum

Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: bewex am 07.02.03 - 17:36:59

Titel: mehreren Doc die gleiche Antwort anfügen
Beitrag von: bewex am 07.02.03 - 17:36:59

Tach auch.
Ich möchte mehreren Dokumenten, die ich in einer Ansicht markiere (anhake) per Knopfdruck Antwortdokumente zuordnen. Über eine Aktion funktioniert das jedoch nur mit dem aktuell markierten Dokument.
@Command([Compose];"AntwortName");
@Command([FileSave]);
@Command([FileCloseWindow])
Wie kann ich diese drei Zahlen auf jedes der ausgewählten Hauptdokumente anwenden?
Skript oder Formel?

Titel: Re:mehreren Doc die gleiche Antwort anfügen
Beitrag von: Axel am 07.02.03 - 18:46:24

Hi,

versuch mal die drei Codezeilen in einen Agenten zu packen, der für "Ausgewählte Dokumente gilt".

Axel

Titel: Re:mehreren Doc die gleiche Antwort anfügen
Beitrag von: bewex am 07.02.03 - 18:50:56

Alles schon geprobt!

Funktionen in Agenten funktionieren nur, wenn er für "Ausgewähltes Dok" gilt (@-befehle erlaubt)
Selbst wenn man einen Agent für die Befehle und einen zweiten für alle gewählten Dokumente mit aufruf des ersteren Agenten schreibt, läuft es nicht.

Titel: Re:mehreren Doc die gleiche Antwort anfügen
Beitrag von: Axel am 07.02.03 - 19:05:06

Hi,

dann muss ein Script-Agent her. Ich versuchs mal "frei Hand".


Dim session As New NotesSession
Dim db As NotesDatabase
Dim collection As NotesDocumentCollection
Dim doc As NotesDocument
Dim newdoc As NotesDocument

Set db = session.CurrentDatabase
Set collection = db.UnprocessedDocuments

Set doc = collection.GetFirstDocument

While Not (doc Is Nothing)

   'Neues Dokument anlegen
   Set newdoc = New NotesDocument(db)
   newdoc.Form = "AntwortName"

   'Neues Dokument als Antwort
   Call newdoc.MakeResponse(doc)
   Call newdoc.Save(True, False)

   Set doc = collection.GetNextDocument(doc)
Wend

Der Agent muss auch wieder für ausgewählte Dokumente gelten.

Ich hoffe ich hab nix vergessen.


Axel