Agent der vergangene Einträge löscht

[Christian]

Hallöchen,

ich bin ein totaler Frischling und brauche Hilfe. Gibt es eine Möglichkeit einen Agenten in LN R5 zu schreiben, der die vergangenen Kalender- und Aufgabeneinträge automatisch nach einem Monat löscht, außer die Wiederholungseinträge? Wer kann mir dabei helfen oder vielleicht hat sogar jemand diesen Agenten bereits geschrieben?

Vielen Dank
Christian

[StanPete]

Hi

ich hab da schon einen aber im Moment bin ich nicht auf der Arbeit , am Montag kann ich dir den mal posten.

bis denn
schönes WE @all

[Christian]

Hier die Lösung:

Sub Initialize
     Dim db As NotesDatabase
     Dim NotesView As notesview
     Dim session As New NotesSession
     Dim boxType As Long, answer As Integer
     Dim collectionB As NotesDocumentCollection
     Dim doc As NotesDocument
     
     Set db = session.CurrentDatabase
     Set NotesView = db.GetView( "($Calendar)" )
     On Error Goto Errhandle
     
     Datum = Cdat(Inputbox$("Bitte geben Sie ein Datum ein. (Bsp:      17.06.2002)","Termine aufräumen","17.06.2002"))
     Set doc = NotesView.Getfirstdocument
     Messagebox "Alle Termine vor dem " +Datum +" werden jetzt ermittelt. Jahrestage werden nicht ermittelt. Bitte warten Sie.",0,"Termine aufräumen"
     Set collectionB = db.FTSearch("Business reports",1)
     
     
     Do  Until Doc Is Nothing
           If Doc.StartDate(0)  <>"" And Doc.Repeats(0) = "" Then
                 If  Cdat(Doc.StartDate(0)) < Datum Then
                       DateCounter = DateCounter +1
                       Call collectionB.AddDocument(doc)
                 End If
           End If
           
           Set Doc = NotesView.GetnextDocument (doc)
           
     Loop
     
     
     
     If DateCounter = Cint(0) Then
           Messagebox "Keine Termine gefunden",0,"Information"
     Else
           answer1% = Messagebox(DateCounter + " Termine gefunden. Alle Termine bis zum "+Str(datum)+" löschen ?", 4, _
           "Termine löschen?")
           If answer1% = 6 Then
                 
                 answer2% = Messagebox("Dieser Vorgang kann nicht Rückgängig gemacht werden. Sind Sie sicher ?", 4, "Termine löschen?")
                 If answer2% = 6 Then
                       Call collectionB.RemoveAll(True)
                       Messagebox "Es wurden "+DateCounter + " Dokumente gelöscht.",0,"Gelöscht."
                 End If
           End If
     End If
     
     Exit Sub
  ' The user did not make a valid entry.
  ' Display the error number and error message.
Errhandle:
  ' Use the Err function to return the error number and
  ' the Error$ function to return the error message.
     Messagebox "Fehler bei Eingabe. ",0,"Fehler"
     Exit Sub
     
     
End Sub

[luna]

hallo christian,

und wo GENAU stellt man das jetzt rein?

gruss,
daniela  

[StanPete]

Hi

du kannst den Code einfach hinter einen Button legen oder einen Agenten damit beauftragen   (wollt ich schon immer mal so sagen)

Wenn du einen Agenten mit diesem ScriptCode füllst dann sollte der Agent aus dem Menü aufgerufen werden können.

Ich hab den Code bei mir hinter einem Button in der Ansicht Calender liegen.

Ich hoffe das hilft dir weiter


Gruß

Achim

[luna]

jou, danke