Das Notes Forum
Domino 9 und frühere Versionen => ND6: Entwicklung => Thema gestartet von: stoeps am 04.09.03 - 10:56:49
-
Hi zusammen,
habe folgendes Problem:http://www.atnotes.de/index.php?board=2;action=display;threadid=10806 (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.
-
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
-
Danke, ich bastel mal damit.