Hi Leute
So hier die Praxis.
Ich habe den Agenten geschrieben und erstmal auf QueryClose gesetzt. Ich habe zurzeit 47 Dokumente in der Datenbank und er braucht shcon einen Momment bis er das DOkument endgültig schließt.
Anbei der Agent und das QueryClos Script...
Query Close:
Sub Queryclose(Source As Notesuidocument, Continue As Variant)
Dim session As New NotesSession
Dim db As NotesDatabase
Dim agent As NotesAgent
Set db = session.CurrentDatabase
Set agent = db.GetAgent("Last10Doks")
Status= agent.RunOnServer
End Sub
Agent:
Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim vc1 As NotesViewEntryCollection
Dim vc2 As NotesViewEntryCollection
Dim vce As NotesViewEntry
Set db = session.CurrentDatabase
Set view = db.GetView("aView")
Set vc1 = view.GetAllEntriesByKey("TEST")
Set Folder=db.Getview("Folder")
If Not Folder Is Nothing Then
If Folder.IsFolder Then
Set vc2 = Folder.allEntries
Call vc2.RemoveAllFromFolder( "Folder" )
Call vc1.PutAllInFolder("Folder")
End If
End If
End Sub
Vielen Dank schoinmal analle.
Ich würde mich freunen wenn jetzt die Kritik hagelt, damit ich das Schript noch verbessern kann.
Gruß Christian
Returns system information about the thread.
Syntax
GetThreadInfo (Dim InfoID as Integer)