Hallo
Ich habe eine Frage zu einem Script!
Dieses Script läuft täglich innerhalb der Maildatenbank.
Es sieht in eine bestimmte Ansicht und löscht alle Anhänge aus den dort enthaltenen mails.
Wie kann ich den Agenten erweitern in dem er nur Anhänge löscht die vor 7 Tagen eingefügt worden sind.
Was muss zu dem Sript hinzugefügt werden? kann ja nicht sehr viel sein oder?
Wäre nett wenn ihr mir da helfen könntet!
Sub Initialize
Dim Session As New NotesSession
Dim db As NotesDatabase
Dim bodyitem As Variant
Dim view As NotesView
Dim collection As NotesDocumentCollection
Dim doc As NotesDocument
Dim dt As New NotesDateTime ("12/12/94")
Set db = Session.CurrentDatabase
Set view = db.GetView("RetArch") 'Retrieved from Archive database
Set doc=View.GetFirstDocument
While Not(Doc Is Nothing)
Set bodyitem = doc.GetFirstItem("Body")
Forall i In doc.Items
If i.Type = ATTACHMENT Then
If Not (CheckifinBody(bodyitem,i)) Then
Call i.Remove
End If
End If
End Forall
'End If
Call doc.Save(True,False,True)
Set doc = View.GetFirstDocument
Wend
End Sub
Vielen Dank!
Thomas