hi ho
also irgendwie finde ich nicht so wirklich den fehler ..
also ich habe ne maske wenn die maske gespeichert und geschlossen wird soll nen agent aktiviert werden wenns geht RunOnServer.
aber irgendwie klappt das nicht .
in maske habe ich im Queryclose Teil :
Dim session As New NotesSession
Dim db As Notesdatabase
Dim agent As NotesAgent
Set db = session.CurrentDatabase
Set agent = db.GetAgent("Test Agent")
Call agent.Run oder Call agent.RunOnServer
eigentlich ganz billig aber er macht beides nicht ...
runonserver bekomme ich immer fehlermeldung "Notes Error: Im Hintergrund ausgeführter oder eingebetteter Agent verwendet einen nicht unterstützten Auslöser un Suchtyp.
und normal Run passiert irgendwie gar nichts mehr ?!
entweder ich bin blind ::) oder keine ahnung ?!
Versuch mal sowas
Dim session As New NotesSession
Dim db As Notesdatabase
Dim agent As NotesAgent
Set db = session.CurrentDatabase
Set agent = db.GetAgent("Test Agent")
If Not (agent Is Nothing) Then
If Not agent.RunOnServer = 0 Then
Messagebox "Agent lief nicht!",48,"Fehler"
End If
Else
Messagebox "Agent wurde nicht gefunden",48,"Fehler"
End If