Hallo zusammen,
ich habe ein komisches Phänomen mit einem periodischem Agent.
Wenn ich den Agenten speicher, gibt es keine Fehlermeldung.
nach kurzer zeit erscheint dieser Agent dann auch im Notes Administrator unter Zeitpläne->Agenten.
Nach wiederum kurzer zeit verschwindet dieser Agent aber dann auch wieder aus dieser Übersicht und der Agent läuft nicht zu der gegebenen Zeit.
Der Agent wurde mit der Server-ID signiert und somit hat er auch Ausführungsrechte.
Der Haken vor dem Agenten, dass er aktiviert ist ist noch vorhanden und es gibt beim aktivieren des Agenten auch keine Fehlermeldung.
Der Agent ist auch nicht auf einer Schablone sondern in einer normalen NSF-Test-Datenbank
Anbei der Quelltext vom Agenten (falls hier überhaupt der Fehler liegt)
Sub Initialize
Dim view As notesview
Dim db As NotesDatabase
Dim s As New NotesSession
Dim doc As notesdocument
Dim doc2 As NotesDocument
Dim ndt As New NotesDateTime(Today)
Set db = s.CurrentDatabase
Set view = db.GetView("(seek)")
Set doc = view.GetFirstDocument
ndt.SetAnyTime
While Not(doc Is Nothing)
Forall x In doc.dl_wochentag
If Cint(x) = Weekday(Today) Then
Set doc2 = doc.CopyToDatabase(db)
Call doc2.ReplaceItemValue("d_tag", ndt)
doc.dl_wochentag = ""
Call doc.Save(True, False)
Call doc2.Save(True, False)
End If
End Forall
Set doc = view.GetNextDocument(doc)
Wend
Print "Agent writePeriod ist gelaufen!"
End Sub
Alles anzeigen
Mitlerweille habe ich keine Ahnung mehr, woran es liegen koennte.
Hoffe ihr koennt mir weiterhelfen?!
Grusz
Patri