Domino 9 und frühere Versionen > Entwicklung

Löschen im Agenten

(1/2) > >>

Tina:
Hallöchen!
Ich hab da so n Problem mit einem Agenten. Der User löscht ein Dokument dieses wird aber in den, nur für Admin sichtbaren, Papierkorb verschoben, also Soft delete.
Nun hab ich mir nen Agenten gebastelt, der alle Doks im Papierkorb, die ein bestimmtes Alter haben löscht. Das erste Dok mit diesen Bedingungen wird gelöscht danach fehlt mir nur der Aufhänger in meiner DocumentCollection.
Könnt ihr mir da vielleicht nen kleinen Denkanstoss geben?

Hier der Code:
Sub Initialize

Dim session As New NotesSession
Dim db As NotesDatabase
Dim dc As NotesDocumentCollection
Dim doc As NotesDocument
Dim hilfdoc As NotesDocument
Dim strSuche As String
Dim dateTime As notesdatetime   
   
Set dateTime = New NotesDateTime("")
Set db = session.CurrentDatabase
searchFormula$ = "rpDocStatus = ""Papierkorb"""
Set dc = db.Search(searchFormula$,dateTime,0)    
Set doc = dc.GetFirstDocument

While Not(doc Is Nothing)
   If (doc.rpBisDatum(0) - Today() = 0) Then
      Set hilfdoc = dc.GetNextDocument(doc)
      doc.Remove(1)
   End If
   If (hilfdoc Is Nothing) Then
      Set doc = dc.GetNextDocument(doc)
   Else
      Set doc = hilfdoc
   End If
Wend
End Sub

In der Zeile Set hilfdoc = dc.GetNextDocument(doc) schreibt er nix in die Variable.  ??? ???
Kann er das nicht, oder hab ich da nen Fehler drin?? Ich denk mir mal dass es daran liegt.

Danke schonmal
Gruß Tina.

klaussal:
... versuchs mal mit "getfirstdocument", weil das vorgängerdoc gelöscht wurde, verliert er wohl den bezug zum nächsten.

Tina:
Fängt er dann nicht weider von vorne an??

Was soll?? Ich versuchs mal! Danke für die schnelle Antwort  ;)

Driri:
Eine andere Möglichkeit wäre, die Dokumente erst in einen Ordner zu packen, am Ende des Agents dann alle Dokumente aus dem Ordner zu fischen und zu löschen.

klaussal:
... ich bevorzuge immer dafür eine ansicht. dann kann man/frau sich bei bedarf die docs vorher ansehen, die gelöscht werden sollen.

Navigation

[0] Themen-Index

[#] Nächste Seite