Per Script Dokumente von einer DB in die andere kopieren

[stoeps]

Hi zusammen,

habe folgendes Problem:http://www.atnotes.de/index.php?board=2;action=display;threadid=10806

Ich habe zwei Stände der Mail-Datenbanken für den Domino-Server verfügbar im Pfad.
Ich möchte jetzt in DB1 nachsehen, ob Doks vom 2. oder 3.9 vorhanden sind und diese dann in DB2 kopieren.

Erste Frage, funktioniert das mit DocumentCollection?

Wie stelle ich das am dümmsten an?

Hat jemand vielleicht einen ähnlichen Agenten, den ich abändern könnte? Dazu reicht mein Wissen, aber Agenten selbst schreiben funktioniert noch nicht so gut.

Danke schonmal für die Hilfe.

[Hevelmann]

Hi stoeps
 
Du baust dir eine View zusammen, die dir alle Maildokumente der die Mails der letzten drei Tage anzeigt

View Selectformel: SELECT Form = "Memo" & ( @Created > @Adjust ( @Now ; 0 ; 0 ; -3 ; 0 ; 0 ; 0 ) )

in der ersten Spalte der View lässt du das Feld "Form" anzeigen und sortierst sie.

Der Agent:

Dim session as Notessession
Dim dbCurrent as Notesdatabase      '--- DB1
Dim dbTarget as Notesdatabase       '--- DB2
Dim nView as Notesview             
Dim nc as NotesDocumentCollection
Dim doc as NotesDocument
Dim NextDoc as NotesDocument

Set session = New Notessession
Set dbCurrent = session.CurrentDatabase
Set dbTarget = Session.GetDatabase( "DeinServer", "PfadZielDatenbank", false )
Set nView = db.GetView("NameDeinesViews")
Set nc = nView.GetAllDocumentsByKey ( "Memo" )

Set doc = nc.GetFirstDocument

While Not Doc is Nothing
  Set NextDoc = nc.GetNextDocument ( doc )  
  Call Doc.CopyToDatabase( dbTarget )
  Call Doc.Remove   '<------ Nur wenn das Dokument aus der Ausgangsdatenbank gelöscht werden soll   
  Set doc = NextDoc
Wend


Gruss Hevelmann

[stoeps]

Danke, ich bastel mal damit.