gepostet für avestruz
Code
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
Alles anzeigen
avestruz: bitte schau dir in den FAQ an, wie man eine Frage postet. In die 'News' jedenfalls gehört das nicht...