Domino 9 und frühere Versionen > Entwicklung

agent aus anderer db heraus starten

<< < (2/2)

ata:
... man denkt nicht immer daran, aber ab und zu wird die Notes.ini oder im Filesystem etwas eingebunden und dann wundert man sich - daher die Ergänzung...

 ;D ata

Axel:
Hi,

versuch's mal damit.

Sub Initialize
    Dim s As New NotesSession
    Dim db As NotesDatabase
    Dim agent As NotesAgent
    Set db = New NotesDatabase("Servername", "Datenbank")
    Call db.Open("", "")
    Set agent = db.GetAgent("Agent to be run LotusScript")
    If agent.Run = 0 Then
        Messagebox "Agent ran",, "Success"
    Else
        Messagebox "Agent did not run",, "Failure"
    End If
End Sub


Axel

nsm:
hi, axel,

funkt leider auch nicht.


nsm

Axel:
Hi,

tjoo, nu fällt mir im Moment auch nix mehr dummes ein.  :( :(

Ein getriggerter Agent (wenn neues Dokument) kommt nicht in Frage ?

Axel

ata:
... versuchs mal so...

Dim s As New NotesSession
Dim db As NotesDatabase
Dim agent As NotesAgent
Set db = s.getDatabase("Servername", "Datenbank")
If db.IsOpen Then
    Set agent = db.GetAgent("Agent to be run LotusScript")
    If agent.Run = 0 Then
        Messagebox "Agent ran",, "Success"
    Else
        Messagebox "Agent did not run",, "Failure"
    End If
Else
    Print "Entweder zuwenig Rechte auf die DB, oder die DB existiert nicht....- Pfad überrprüfen..."
End If


ata

Navigation

[0] Themen-Index

[*] Vorherige Sete