moin zusammen,
wenn ich nachfolgenden agenten per hand starte, funzt er, läuft er auf dem server, tut er nix.
es handelt sich um die log.nsf
frage : WARUM ?
Sub Initialize
Dim db As notesdatabase
Dim dbshow As notesdatabase
Dim docNew As Notesdocument
Dim view As NotesView
Dim session As New notessession
Dim docdbshow As notesdocument
Set db = session.currentdatabase
Set dbshow = session.GetDatabase( "HERDS121", "log.nsf" )
Set view = dbshow.GetView( "Database\Sizes" )
Set docdbshow = view.getfirstdocument
Do Until docdbshow Is Nothing
If docdbshow.form(0) = "Activity" Then
Set docNew = db.createDocument
docNew.form = "m_db_reads"
docNew.title = docdbshow.Pathname(0)
docNew.number_of_reads = docdbshow.WeekReads(0)
Call docNew.Save(True, True)
End If
Machweiter:
Set docdbshow = view.getnextdocument(docdbshow)
Loop
End Sub