In einer Ansicht Dokumente nach einem String im Subject-Feld durchsuchen

Hallo,
ich habe ein Script erstellt, welches in verschiedenen Ansichten das Subject-Feld nach einem String durchsucht und das Dokument dann in einen anderen Ordner verschiebt.


Dies funktioniert auch soweit, nur fasst das Script nicht alle Dokumente in den Ansichten an. Ich muß es mehrmals laufen lassen, damit es alle Dokumente anpackt und verschiebt.


Was mache ich falsch? Könnt Ihr mir helfen?  :-? 


Schon einmal vielen Dank


Dim db As NotesDatabase                        'Declare db as a Notes Database
	Dim view As NotesView                        'Declare view as a Notes View
	Dim doc As NotesDocument                        'Declare doc as a Notes Document
	Dim item As NotesItem

	Set db = session.CurrentDatabase                'Set db to the current database (open)
	Set view = db.GetView("Ticket Knowledge")                'Set view to a view called "Examples"
	Set doc = view.GetFirstDocument                'Set doc to the first document in "Examples"

	Set item = doc.GetFirstItem("Subject")

	While Not(doc Is Nothing)

		If Instr(1, item.text, "??") > 1 Then
			Call doc.PutInFolder("Ticket Knowledge verify")
			Call doc.Removefromfolder("Ticket Knowledge")
			Call doc.Save( True, True )                        'Save changes to document
		End If
		Set doc=view.GetNextDocument(doc)
	Wend


	Set view = db.GetView("Ticket Mail investigation")                'Set view to a view called "Examples"
	Set doc = view.GetFirstDocument                'Set doc to the first document in "Examples"

	While Not(doc Is Nothing)

		Set item = doc.GetFirstItem("Subject")

		If Instr(1, item.text, "???") > 1 Then
			Call doc.PutInFolder("Ticket SD investigation")
			Call doc.Removefromfolder("Ticket Mail investigation")
			Call doc.Save( True, True )                        'Save changes to document
		End If
		Set doc=view.GetNextDocument(doc)
	Wend