Agent von externem Programm starten

[Leddl]

Hallo zusammen,

wir haben hier ein externes Programm, in dem wir per VBA gerne einen Agenten in Lotus Notes starten würden. Ist das möglich, und falls ja: wie?

Danke, Axel

[m3]

Ja. "NotesAgent" Klasse in der Designer-Hilfe ansehen. "notesAgent.Run()" ist was Du suchst.

[Leddl]

Ja. "NotesAgent" Klasse in der Designer-Hilfe ansehen. "notesAgent.Run()" ist was Du suchst.

Und wie komm ich an den Agenten aus dem Programm heraus ran?

[m3]

Na komm, zumindest auf "Examples" könntest bei dem Designerhilfe-Eintrag klicken. Da stehen alle relevanten Infos drinnen.

[Leddl]

Na komm, zumindest auf "Examples" könntest bei dem Designerhilfe-Eintrag klicken. Da stehen alle relevanten Infos drinnen.

Danke für deine Hilfe, aber ich glaube du verstehst mich nicht richtig. Wir haben hier ein externes Programm, das rein gar nichts mit Notes zu tun hat und möchten daraus einen Agenten in Notes anstoßen.
Wie ich einen Agenten in LS starte war mir schon längst bewusst, auch die Beispiele habe ich mir schon x mal angeschaut. Nur bringt mir das nichts für das Problem hier.

Irgendwie muss ich ja erstmal mit VBA auf die NotesDatenbank zugreifen, damit ich den Agenten starten kann

[m3]

COM? Also ich dachte schon, dass ihr schon so weit seid. OK. Dann braucht ihr vorher:

1) Designer-Hilfe, Kapitel Accessing the Domino Objects through COM 

2) Auf der Lotus Domino Designer documentation page die beiden PDFs "Domino Objects for LotusScript/COM/OLE, Part 1" und "Domino Objects for LotusScript/COM/OLE, Part 2"

Damit sollte dann alles klar sein.

[Leddl]

Super, danke! Mit COM habe ich mich bisher noch nie auseinandergesetzt und dachte auch nicht, dass das so einfach ist.
Dann werde ich das mal versuchen!

Danke für Deine Hilfe!

[Leddl]

Ich habe jetzt folgenden VBA-Code in Word:

Code

Dim s As Object
Dim db As Object
Dim agent As Object
	
Set s = CreateObject("Lotus.NotesSession")
Call s.Initialize
Set db = s.GetDatabase(Server, DB)
Set agent = db.getAgent("test")
	
if agent.Run() = 0 then
  MsgBox ("hat geklappt")
else
  MsgBox ("hat nicht geklappt")
end if

Leider hängt sich beim Ausführen Word auf, und zwar genau beim Ausführen des Agenten. Starte ich selbigen von Hand, klappt alles einwandfrei. Am Agenten selbst sollte es also IMHO nicht liegen...

Achso, bevor die Frage kommt:
SERVER und DB stehen hier nur stellvertretend für die entsprechenden Daten. Die Korrektheit habe ich schon überprüft, indem ich mir die Anzahl der Dokumente in der DB angezeigt habe. Da liegt der Fehler also auch nicht.
Per Debugger läuft alles auch gut durch, bis die Zeile mit agent.run kommt.

[Leddl]

Hat keiner eine Idee, woran das liegen kann?

[MadMetzger]

Was macht der Agent denn? Vielleicht liegt es an dem? Vielleicht hat er ein Problem mit der Verwendung von UI-Klassen innerhalb des Agenten...

[Leddl]

Bisher macht der Agent nichts anderes, als ein neues Dokument in die Datenbank einzufügen. Sieht dann so aus:

Code

Dim db As Notesdatabase
Dim doc as NotesDocument

Set db = New NotesDatabase(SERVER, DB)

Set doc = db.CreateDocument
Call doc.ReplaceItemValue("Form","Kundendaten")
doc.Kundennummer = 10

Call doc.save(True,False)

Nichts dramatisches, und es läuft ja auch problemlos, wenn ich ihn per Hand oder Zeitplan in Notes selbst starte.

[dirk_2909]

Wie sieht es mit den rechten aus? Darf "Word" via com Docs erstellen ??

[Leddl]

Da ich mich bisher mit meinem Passwort anmelden muss, gehe ich doch eigentlich davon aus, dass das unter meinem Benutzerkontext läuft, oder? Muss ich da etwa noch extra Einstellungen machen?

[Thomas Schulte]

Lass doch den Agent einfach nur ein print "Juhu ich bin gelaufen" ausgeben. Das müsste dann auf der Server Konsole auftauchen.

Damit schließt du schon mal aus das es an nicht vorhandenen Rechten des Benutzers in der Datenbank liegt.

und dann gibt es im Agenten selber ja noch ein paar Möglichkeiten einzustellen wer was und wie mit dem Agenten machen darf.