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
