Hi!
Nöö, nicht das ich wüsste. Hier ist der Agent:
Sub Initialize
Dim Session As New Notessession
Dim Workspace As New Notesuiworkspace
Dim doc As Notesdocument
Dim doc1 As Notesdocument
Dim db As Notesdatabase
Dim view As notesview
Dim item As NotesItem
Set db = Session.currentdatabase
Dim admindoc As NotesDocument
Dim adminview As NotesView
Set adminview = db.getview( "(DBAdmin)" )
Set admindoc = adminview.getfirstdocument
Dim ArchiveDB As New NotesDatabase( admindoc.SerArchiv(0), admindoc.NaArchiv(0) )
Set view = db.getview("(Bewerberdaten for Agents)")
Set doc = view.getfirstdocument
While Not doc Is Nothing
DatumAbschluss = doc.fldAbgeschlAm(0)
DatumAktuell = Date
If DatumAbschluss <> "" Then
If Cdbl(DatumAktuell) - Cdbl(DatumAbschluss) >= 1 Then
' Messagebox " >7"
Set doc1=view.GetPrevDocument( doc )
Call doc.CopyToDatabase( archiveDb )
Call doc.Remove( True )
Set doc = doc1
End If
End If
Set doc=view.getnextdocument(doc)
Wend
End Sub
Hoffe das reicht ? ;-)
Kapiere das nicht so ganz..............