Domino 9 und frühere Versionen > Entwicklung

Erweiterung eines Löschagenten Hilfe!

(1/2) > >>

waldt:
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!


--- Code: ---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

--- Ende Code ---

Vielen Dank!
Thomas

Thomas Schulte:
Dein Script benutzt schon mal eine eigene Notes klasse oder funktion die in einer Externen Bibliothek liegen muss.
Erste Variante, dort nachschauen, was denn im Einzelnen da an Funktionen drin ist.
Außerdem meinst du doch warscheinlich nicht das Einstellungsdatum des Attachments sondern das Erstellungsdatum des Dokumentes. Das bekommst du ganz einfach mit notesdocument.created raus. Dann noch Adjustdays (notesDatetime Klasse)um rauszukriegen ob Created + 7 kleiner heute ist und das war es dann.

Thomas

waldt:
Hallo Thomas!

Dieser Agent ist Bestandteil einer Archivierung der Mail Anhänge.
7 Tage nach dem der Anwender sich den Anhang wieder in seine mail geholt hat, soll diese wieder gelöscht werden.

Alles gehört zu IBM CommonStore.

Leider kenne ich mich in der Entwicklung nicht aus. Und konnte die von dir beschriebenene Klasse nicht finden.

Beim zurückholen des Anhangs in das mail wird dieses wieder auf ungelesen gesetzt, erhält eine Markierung, so dass es in einer speziellen Ansicht erscheint und erhält ein neues geändert - datum.

Dies denke ich sollte Ausgangspunkt zur Berechnung der 7 Tage sein.

Kannst du deine Anmerkungen vielleicht in das Script einfügen!
Ich habe keine Ahnung wie man das macht!

Wäre dir sehr dankbar.
Gruß
Thomas

Thomas Schulte:
Geld, Geld und Geld.
Aufwand 30 Minuten, Ertrag 0 Euro. ziemliches Missverhältnis oder?
Wenn du die Diskussionen die im Moment hier und in anderen Foren abgehen verfolgst dann verstehst du sicher das ich damit so meine Probleme habe.
Glombi hat es auf den Punkt gebracht. Wir leisten Hilfe zur Selbsthilfe. Ganz einfach deswegen weil es sich kaum einer von uns auf Dauer leisten für lau zu helfen (außer denen, die bei Anwendern in einer Festanstellung sind. Für die ist das ein Hobby.)

Thomas

ata:
... im Dokument gibt es ein Feld "$Revisions" - dort sind die letzten Änderungen vermerkt - vielleicht kannst du damit was anfangen...

ata

Navigation

[0] Themen-Index

[#] Nächste Seite