Agent wird nicht richtig ausgeführt / gestartet

[mxm]

Hallo,

folgendes Problem und zwar habe ich ein Script geschrieben in LS, welches über den Button "Neues Memo" die Maske ausliest und in eine eigenes Document rein kopiert, welches dann versendet wird.

Nun gibt es ja den Button "Senden und Ablegen", dort passiert genau das selbe, doch hier kann der User halt noch auswählen das er das erstellte Dokument noch ablegen kann in einem bestimmten Ordner.

Die Pickliste die erscheinen sollte, wird mit hilfe eines Agent aufgerufen. Der in Formelsprache geschrieben ist(1zu1 Kopie aus "Senden und Ablegen").
Der Agent läuft auch ohne Probleme an übers Script, doch er öffnet nicht die Picklist.

Debugger läuft ohne Probleme durch.

Wenn ich nur den Agent starte, also über Aktionen dann macht er es richtig.

Hier mal der Code wie der Agent gestartet wird : in LS geschrieben.

Set Agent = nDB.GetAgent("Start Agent")      ' Agent wird gestartet
   If Agent.Run = 0 Then
      Messagebox "Agent wurde gestartet"
   Else
      Messagebox "Agent wurde nicht gestartet"
   End If   

Hier der Agent :

REM {BEGIN TRANSLATE};
tmpNoNames := "Keine Namen gefunden, an die die Mail gesendet werden kann.";
tmpTitle := "Lotus Notes";
REM {END TRANSLATE};

tmpNumNames := @Elements(EnterSendTo) + @Elements(EnterCopyTo) + @Elements(EnterBlindCopyTo);

@If( tmpNumNames = 0; @Do(@Prompt([Ok];tmpTitle;tmpNoNames);@Return(""));"");

MEMO_SEND_FILE:=2097152;
FIELD ActionInProgress:=MEMO_SEND_FILE;
FIELD tmpSendandFileFolder := @PickList([Folders]:[Single];"":"");
@If(@Command([FileSave]);@Command([FileCloseWindow]);@Return(""))


Wo könnte das Problem liegen?

[Wilhelm]

Hi,

dann fangen wir doch mal klein an. Welches Runtime-Target hat dann der Agent?

Gruß

Willi

[mxm]

Es hat keines.

[gossifu]

Hallo,

die Picklist zeigt alle Ordner der Datenbank zur Auswahl an, in der Agent gestartet wird.
In welcher Datenbank befindest Du Dich und hat diese DB Ordner.
Sollte es die Mail-DB sein, vergiss meine Frage.

mfg

Kjeld

[Wilhelm]

Hi nochmal,

so, jetzt bin ich ein bisschen schlauer.
In der Designer-Hilfe zum NotesAgent.Run steht:

The user cannot interact directly with a called agent. User output goes to the Domino log.

Was machst Du denn vorher in Deinem Script? Könnte man das nicht in die Formelsprache umsetzen und dann dort den Code einbauen?

Gruß

Willi

[mxm]

Hallo,

also es ist die MAIL DB.
Den Script davor kann ich nicht in Formelsprache machen.

Das komische ist, das nicht einmal der Debugger in den Agent springt.

Rufe ich vielleicht den Agent falsch auf oder ...?

Weiß echt nicht mehr weiter.

[Wilhelm]

Ich zitiere ja ungern die Designer-Hilfe, aber auch dazu gibts dort was passendes:

You cannot debug a called agent.

Wie wäre es denn umgekehrt? Setze doch die Funktion in Script um.

Gruß

Willi

[koehlerbv]

Und noch ein weiterer Auszug aus der DesignerHelp 

You cannot use the Notes UI classes in an agent called by this method.

Das betrifft auch @Commands ! Agent.Run ist nur vorgesehen für Agents, die getriggert auf dem Server laufen. Derartige Agents springen aber gar nicht erst an, wenn UI classes oder @Commands dort entdeckt werden. Und das ist genau des Rätsels Lösung.

Bernhard

[Wilhelm]

Hallo Bernhard,

wenn man sich anschaut wieviele Verweise es auf die Admin- oder Designerhelp hier im Forum gibt, könnte man dan schon fast dieses Forum statt der Hilfedatenbanken mit Notes shippen.  

Gruß

Willi

[koehlerbv]

Jo, so als eine Art "Deutsche EnticklerHilfe" 

Bernhard

[mxm]

Zuviel ich weiß, bzw. gelesen habe ist es nicht möglich eine Pickliste in Baumstruktur wieder zugeben.

Daher ja über den Agent.

Das ich einen Agent nicht Debuggen kann wußte ich net.
Leider kann net die ganze Hilfe auswendig.

Also was kann ich jetzt genau machen.
Ich brauche ja die Picklist, also

REM {BEGIN TRANSLATE};
tmpNoNames := "Keine Namen gefunden, an die die Mail gesendet werden kann.";
tmpTitle := "Lotus Notes";
REM {END TRANSLATE};

tmpNumNames := @Elements(EnterSendTo) + @Elements(EnterCopyTo) + @Elements(EnterBlindCopyTo);

@If( tmpNumNames = 0; @Do(@Prompt([Ok];tmpTitle;tmpNoNames);@Return(""));"");

und ich will das der User sich nur ein Ordner auswählen darf

FIELD tmpSendandFileFolder := @PickList([Folders]:[Single];"":"");

und das Dokument soll abgespeichert werden.

Wie kann ich das nun machen in Formel.., bin dort net so fit drin.


Gruß


Auf jedenfall bin ich ja schon wieder schlauer, wegen einen Agent Debuggen
Merci schon mal

[mxm]

HI,

habe jetzt mal einen Button erstellt und in LS einen Agent gestartet.

Doch der Agent wird nicht ausgeführt.

Anbei mal der Agent aufruf.

Sub Click(Source As Button)
   
   Dim nDB As NotesDatabase
   Dim nSession As New NotesSession
   Dim Agent As NotesAgent
   
   Set nDB = nSession.CurrentDatabase
   Set Agent = nDB.GetAgent("Test")      ' Agent wird gestartet
   
   status = 1   
   
   Status = Agent.Run
   
   If Status = 0 Then
      Messagebox "Agent wurde gestartet"
   Else
      Messagebox "Agent wurde nicht gestartet"
   End If   
   
End Sub

Und der Agent selbst soll nur eine Pickliste wiedergeben.
Nicht mal das macht er.

Wenn ich den Agent aber über Aktionen starte läuft er.

Was läuft da schief, brauche dringend eurer Hilfe.

[koehlerbv]

PickList ist FrontEnd - also für Agent.Run-taugliche Agenten nicht geeignet. Wie ich oben schon schrieb ...

Bernhard

[mxm]

und wie kann ich dann über einen Agent eine picklist aufrufen?

Geht das überhaupt

Was für möglichkeiten habe ich?

[Wilhelm]

Hallo nochmal,

jo, Bernhard hat natürlich wie immer recht (auch wenn er's zweimal erwähnen muß  ).

Ja, Du kannst eine Picklist über einen Agent aufrufen: Trigger ihn um auf "Agent Menu Selection" und schon klappts. Aber nur unter der Bedingung, das Du ihn von Hand aufrufst. Aber das hilft Dir bei der Aufgabenstellung wohl nicht.

Über Agent.Run ist das nicht zu machen. Aber das erwähnte Bernhard ja bereits. Mehrmals.

Ich hab mal eine Funktion geschrieben, die die Namen der Outline-Entries ausgelesen hat und diese in einer Combobox dargestellt hat. Damit konnten die Ansichts-Namen ausgelesen werden und hinterher weiterverarbeitet werden.

Zweite Option (und die ist vermutlich die benutzerfreundlichere...) Ruf aus dem Script keinen Agent auf, sondern eine Dialogbox. Im PostOpen der Dialogbox verankerst Du den Picklist [Formelsprache]-Code. Diesen schreibst du weg in die entsprechenden Felder. Dann muss der Benutzer die Dbox noch von Hand zumachen, aber das ist wohl verschmerzbar.
Nachdem Die Dialogbox zu ist, arbeitet Dein Script dann weiter.

Gruß

Willi

[koehlerbv]

... Bernhard hat natürlich wie immer recht (auch wenn er's zweimal erwähnen muß  ). ...

Hallo Willi,

nein, Bernhard hat nicht immer Recht. Gib' mal in der Hilfe ein "sorry" und bei "von Benutzer" "koehlerbv". Da kommen (oops ...) 6 Seiten 
Und zweimal musste er es auch sagen, weil der Fragesteller den ersten Hinweis nicht gelesen oder verstanden hat. Doppelt hält eben manchmal besser 

Ich sehe es wie der Du, dass da etliche andere Wege nach Rom führen. Das mit der DialogBox kann schon eine sehr brauchbare Sache sein. Und wenn sowas nicht in Frage kommt, muss man sich die Mühe machen und eben die Ansichten und Folder selber ermitteln, sortieren und "hierarchisch" anzeigen. "mxm" muss da selber entscheiden, wieviel Aufwand er betreiben muss, darf und will.

Bernhard

[mxm]

Guten Morgen,

habe die Lösung gefunden, wie ich es mache, bzw. gemacht habe.

Und zwar habe ich einfach meinen Picklistaufruf in eine Aktion gepackt(in Formel) und ebenfalls rufe ich meinen Agent auf, der jetzt mein Script enthält.

Geht wunderbar.

Bedanke mich, für eure Geduld und schnellen Antworten.
Wie immer

[Wilhelm]

Bernhard, vielleicht nicht immer - aber zumindestens diesmal hast Du Recht: Von den vielen Wegen, die nach Rom führen hat mxm sich dann doch einen eigenen gesucht.

mxm, das ist ja schön das das funktioniert hat. Aber eine Bitte hätte ich noch: Unterschreibe deine Beiträge doch mal mit Namen. Ich kommuniziere nicht gerne mit Abkürzungen.

Gruß

Willi

[mxm]

Guten Morgen,

ich bedanke mich für eure Hilfe.

Gruß mxm