Feld per Agent leeren

[Fbaum]

Hallo,
ich habe einen Agenten, der Dokumente in eine andere DB kopiert.
In den Dokumenten ist ein Leserfeld drin. Nun möchte ich, daß der Agent dieses Leserfeld beim Ausführen leert.
Gibt´s ne Hilfe von Euch?? Die Sachen die ich in der NotesHilfe gefunden habe funktionieren nicht so wirklich.
Hier noch das schon vorhandene Script:

Sub Initialize
   Dim Session As New NotesSession
   Dim copydb As NotesDatabase
   Dim Coll As NotesDocumentCollection
   Dim Currentdoc As NotesDocument
   Dim CurrentDb As NotesDatabase
   Dim dateTime As NotesDateTime
   Dim j As Variant
   
   
   Set CurrentDb = Session.CurrentDatabase
   Set copydb =New NotesDatabase("Mein_Server", "Meine_DB.nsf")
   Set dateTime = New NotesDateTime( "01/01/90" )
   Set coll = CurrentDB.Search ( "@Contains(Status;""1"")",datetime,0 )
   Call Currentdoc.FieldClear("SendTo")
   
   For j = 1 To coll.Count
      Set currentdoc = coll.GetNthDocument( j )         
Call Currentdoc.CopyToDatabase( copydb)
   Next
End Sub

Danke schon mal...!
Gruß FBaum

[wflamme]

1) Verwende notesitem.remove und vergiß nicht zu sichern. fieldclear ist eine Frontend(UI)-Methode.

2) Nie in einer Schleife mit getnthdocument arbeiten.. die performance ist katastrophal, denn intern hangelt sich notes immer vom getfirstdocument über getnextdocument bis zum Trefferdokument.
Um das letze element der Collection zu adressieren müssen also alle vorherigen dokumente adressiert werden.

Grüße,
Wolfgang

[Fbaum]

Hallo,
danke...funktioniert Super !!
Gruß FBaum

[wflamme]

Hallo,
danke...funktioniert Super !!

...ist ja schließlich Notes...

Grüße,
Wolfgang