Domino 9 und frühere Versionen > Entwicklung

Agent via script starten

(1/5) > >>

rar:
Seas Leitln!
Weiß jemand von euch, wir ich ein Agent mit der Formel:

@Command([EditInsertText];"Schreib den Text, du blöder Agent!")

aus einem Button in einer Maske via script aufrufen kann?

Mein Miniscriptl schaut so aus:
 Dim session As New NotesSession
 Dim db As NotesDatabase
 Set db = session.CurrentDataBase
 Dim Agnet As NotesAgent
 Set Agnet = db.GetAgent("Test")    
 Call Agnet.Run()          
   
Es kommt dann  immer der Fehler '@Function ist in diesem Kontext ungültig'
Und das am Freitag kurz vor Feierabend :'(

-dani

doliman:
Hi,

versuchs mal damit:

Dim s As New NotesSession
Dim db As NotesDatabase
Dim agent As NotesAgent
Set db = s.CurrentDatabase
Set agent = db.GetAgent("AgentName")
   If agent.Run = 0 Then
        Messagebox "Agent ran",, "Success"
   Else
       Messagebox "Agent did not run",, "Failure"
   End If

rar:
Hi Frank!
Das löst leider nicht mein Problem. Ich weiß zwar dann ob der Agent gelaufen ist oder nicht, aber der Text steht dann nicht in meinem Bodyfield. :-/
-d

doliman:
Hi,

wer schreibt den den Text in das Body Field, der Agent oder die Schaltfläche??
Denn das Script ruft nur den Agenten aus und füllt nichts in ein Feld?
Wenn Du mir noch mehr Infos gibst komm ich evtl. dahinter wie Du es machen willst.

rar:
O.K.
In der Schaltfläche steht das Script (muß Script sein). Das Scriptl soll den Agent aufrufen, der mit Formelsprache den Befehl [EditInsertText] aufruft.
Wenn es den Befehl in Script geben würde wäre es der Hammer. Aber irgendwie funktioniert es nicht so. Ich brauch den Text nämlich in blau und fett und so. Deswegen scheider uidoc.InsertText aus, weil ich den Text in ein rtitem schreiben müßte mit einem rtstyle. rtitem.AppendText geht auch nicht, weil der Text an der aktuellen Cursorposition eingefügt werden sollte.
Ich hoffe, daß es jetzt verständlicher ist.

-dani

Navigation

[0] Themen-Index

[#] Nächste Seite