Das Notes Forum
Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: Fbaum am 30.10.02 - 10:38:52
-
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
-
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
-
Hallo,
danke...funktioniert Super !!
Gruß FBaum
-
Hallo,
danke...funktioniert Super !!
...ist ja schließlich Notes... ;D
Grüße,
Wolfgang