Nein den meine ich nicht. Was ich meine ist das hier:
Set col = db.Search( selection, dateTime, 0 )
Set removedoccol = db.Search(|@Contains(Form; "grz_fghthth")|,dateTime,0)
For i = 1 To col.Count
Set doc = col.GetNthDocument (i)
' check the forms name
If doc.form(0) = "newBugReport" Then
intsendmail = True
newticketunid = createnewticket(db,doc)
If newticketunid <> "" Then
Call createticketnotificationMail(db)
End If
Else
' check if there is a number that could be found
foundparentdocument= checkforAnswercode(db,doc)
If foundparentdocument = "" Then
' create a new ticket
intsendmail = True
newticketunid = createnewticket(db,doc)
If newticketunid <> "" Then
Call createticketnotificationMail(db)
End If
Else
' this is a mail that can be sorted to another document
newticketunid = movetootherdocument(db, doc, foundparentdocument)
If newticketunid <> "" Then
Call createfounddocnotificationmail(db)
End If
End If
End If
If newticketunid <> "" Then
' add this document as it has to be removed
Call removedoccol.AddDocument(doc)
End If
Next
Call removedoccol.RemoveAll(False)
schau dir Lib.Agent.Dispatch ProcessMailTicketsAndResponses ab Zeile 42 an.
Ach ja einen
Dim removedoccol as notesdocumentcollection