Das Notes Forum
Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: Stephanie am 08.01.03 - 15:21:17
-
Hallo Zusammen
Ich muss einen Agenten mit einem anderen Agenten deaktivieren.
Hat da jemand vielleicht schon eine Lösung?
Danke und Gruss
-
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
-
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
-
@Performance
... mit dem kurzen Weg meinst du sicherlich die Initialisierung des Agents. Mit dem Code startest du den Agent...
ata
-
@ata : ich glaube, dass weiss performance... :) hoff ich zumindest
@performance : das war das was ich meinte...
gruss
-
ja ja ja ja ;) ;) ;) ;) ;) ;)
cu