Agent mit einem Agent deaktivieren

[Stephanie]

Hallo Zusammen

Ich muss einen Agenten mit einem anderen Agenten deaktivieren.

Hat da jemand vielleicht schon eine Lösung?

Danke und Gruss

[Till_21]

aus der notes-hilfe :

Dim session As New NotesSession
Dim db As NotesDatabase
Dim agent As NotesAgent
Dim enabled As Variant
Set db = session.CurrentDatabase
Forall a In db.Agents
  If ( a.Name = "Sort incoming mail" ) Then
    Set agent = a
    agent.IsEnabled = False
    Call agent.Save
  End If
End Forall

es gibt jedoch eine elegantere loesung an den agenten zu kommen, immo nicht gefunden

gruss

[Performance]

und der kurze Weg:

Dim Agent As NotesAgent
Set Agent = database.GetAgent("(CheckServers)")
    If Not(Agent Is Nothing) Then
        Call Agent.Run
     end if


cu

[ata]

@Performance

... mit dem kurzen Weg meinst du sicherlich die Initialisierung des Agents. Mit dem Code startest du den Agent...

ata

[Till_21]

@ata : ich glaube, dass weiss performance... hoff ich zumindest

@performance : das war das was ich meinte...

gruss

[Performance]

ja ja ja ja  


cu