Domino 9 und frühere Versionen > Entwicklung

Löschen im Agenten

<< < (2/2)

Tina:
Die Doks stehen alle in der Ansicht Papierkorb. Die können dort entweder vom Admin wiederhergestellt oder schon gelöscht werden. Nach spätestens 90 Tagen sollen die Doks aber in die ewigen Jagdgründe verschwinden! Hab in dem geposteten Skript nur testhalber die Doks von heute gelöscht.

Glombi:
Es geht viel einfacher:

Sub Initialize

Dim session As New NotesSession
Dim db As NotesDatabase
Dim dc As NotesDocumentCollection
Dim doc As NotesDocument
Dim hilfdoc As NotesDocument
Dim searchFormula As String
Set db = session.CurrentDatabase
searchFormula = {rpDocStatus = "Papierkorb" & rpBisDatum = @Today}
Set dc = db.Search(searchFormula$,Nothing,0)    
call dc.RemoveAll(true)
End Sub


Ich habe einfach den Searchstring erweitert: Dort die Abfrage, ob das Datum erreicht ist.
Die NotesDocumentCollection hat eine Methode, alle Dokumente zu löschen.
Das NotesDateTime für Search braucht man nicht - besser ist hier sowieso Nothing.

Andreas

Tina:
Super DANKE!
Werd ich direkt mal ausprobieren!

Ihr seid echt die besten!! ;D :-*

Tina:
Habs ausprobiert und es funktioniert einwandfrei!
Hab die Searchformula noch ein bisschen umgebogen, um auch andere Zeiträume abzufragen: searchFormula = {rpDocStatus = "Papierkorb" & (rpBisDatum - @Today) = 0} --> wobei die 0 für die Dauer steht!
Nochmal Danke!

Navigation

[0] Themen-Index

[*] Vorherige Sete