Zwei Agenten mit einem Klick?!

    Hallo zusammen,


    Vor kurzer zeit habt ihr mir dieses wundervolle script gegeben mit dem ich einen Agenten per Button aktivieren kann....



    Sub Click(Source As Button)
    Dim s As New notessession
    Dim db As notesdatabase
    Set db = s.currentdatabase
    Dim ag As notesagent
    Set ag = db.getagent("agentenname")
    ag.IsEnabled = True
    ag.servername = lokal
    ag.save
    End Sub


    Nun sollte ich diesen Agenten anpassen damit mit einem Klick 2 Agenten gestartet werden....


    Hab schon probiert, aber irgendwie funktioniert dies nicht...


    könnt ihr mir nochmals helfen?


    Danke vielmals!



    grüsse


    sid, der gestern bis 02.00 gearbeitet hat... *gähn*

    Schau mal in der Designerhilfe nach...da gibt es eine Klasse Notesagent. Da koennte was drin stehen wie man einen Agenten zum Laufen bringt.


    PS:
    Ich ging davon aus, dass der Agent gestartet werden sollte, nicht enabled

    Hallo,


    Warum verwendet man nicht


    @Command( [ToolsRunMacro] ; agent )


    oder


    @Command([RunAgent])



    Nachdem man in der Hilfe die Reihenfolge der Abarbeitung von @Formulas angeschaut hat ?



    Gruss,
    Michael

    ich will zwei Agenten mit einem klick aktivieren. nicht ausführen.


    wenn ich das so eingebe:



    Sub Click(Source As Button)
    Dim s As New notessession
    Dim db As notesdatabase
    Set db = s.currentdatabase
    Dim ag As notesagent
    Set ag = db.GetAgent("Agent1")
    Set ag = db.GetAgent("Agent2")
    ag.IsEnabled = True
    ag.servername = lokal
    ag.save
    End Sub



    aktiviert es mir den Agent2, aber nicht Agent1.....


    in der hilfe hab ich übrigens nichts gefunden wie man per button einen Agenten aktivieren kann....

    Natuerlich auch. Du solltest die Variablen unterschiedlich benennen *seufz


    Aktivieren geht auch nicht mit den von vorher genannten beiden @Commands. Du hast aber auch am Anfang nach dem Starten von einem Agent gefragt...nicht nach Aktivierung

    Ist ja auch klar.


    Wenn dann muss es so aussehen:


    Sub Click(Source As Button)
    Dim s As New notessession
    Dim db As notesdatabase
    Set db = s.currentdatabase
    Dim ag As notesagent
    Set ag = db.GetAgent("Agent1")
    ag.IsEnabled = True
    ag.servername = lokal
    ag.save
    Set ag = db.GetAgent("Agent2")
    ag.IsEnabled = True
    ag.servername = lokal
    ag.save
    End Sub

    ...nichts gegen Unwissen, aber ein bisschen Selbstmotiviation brauchts schon.


    Dazu wärs schön, wenn du genau sagen könntest, was du denn machen willst (aktivieren/ausführen). Wenn du das nicht sagen kannst, hilft uns eine Beschreibung von dem was du machen möchtest mehr, als eine Vermutung von dem, was du machen solltest.


    Gruss,
    Michael

    sorry wenn ich mich bisschen fad ausgedrückt habe.... hatte ne kurze nacht und bin heut nicht wirklich motiviert...



    habs jetzt selbst rausgefunden.... (was ein kaffee nicht alles bewirken kann... :pint: :) )


    genau so wie taurec gesagt hat.. .


    Sub Click(Source As Button)
    Dim s As New notessession
    Dim db As notesdatabase
    Set db = s.currentdatabase
    Dim ag As notesagent
    Set ag = db.GetAgent("Agent1")
    ag.IsEnabled = True
    ag.servername = lokal
    ag.save
    Set ag = db.GetAgent("Agent2")
    ag.IsEnabled = True
    ag.servername = lokal
    ag.save
    End Sub



    jetzt funktionierts auch wunderbar...