Das Notes Forum
Domino 9 und frühere Versionen => ND8: Administration & Userprobleme => Thema gestartet von: Schwalli am 07.03.14 - 08:04:43
-
Hallo zusammen,
ich habe hier 12 Archivdateien (.nsf) die ich gerne zu einer Archivdatei zusammenfügen möchte.
Gibt es hierfür eine einfache Möglichkeit?
Möchte ungern alle Archive manuell öffnen und die Dokumente hin und her kopieren.
Vielen Dank
-
In einem anderen Beitrag gestern hatte ich ein Script eingestellt, das das kann. Hier eine kleine Abwandlung davon, bei der die Kopie die UniversalID des Originals bekommt, damit das Erstelldatum unverändert bleibt:
Dim dbquelle As New NotesDatabase ("server", "dateinamequelle")
Dim dbziel As New NotesDatabase ("server", "dateinameziel")
Dim colquelle As NotesDocumentCollection
Dim docquelle As NotesDocument
Dim docziel As NotesDocument
Set colquelle = dbquelle.AllDocuments
Set docquelle = colquelle.GetFirstDocument
Do While Not docquelle Is Nothing
Set docziel = New NotesDocument (dbziel)
Call docquelle.CopyAllItems (docziel)
docziel.UniversalID = docquelle.UniversalID
Call docziel.Save (True, True)
Set docquelle = colquelle.GetNextDocument (docquelle)
Loop
Das könntest Du Dir so umbauen, dass innerhalb einer Schleife alle 12 Quelldatenbanken verarbeitet werden.
-
Hallo,
Ich stelle mir gerade folgende Frage.
Koennte man nicht einfach in 11 Datenbanken die 12. Db als "Archiv-Datenbank" einstellen und dann mit den bordeigenen Archiv-Mitteln archivieren?
Andreas
-
Hallo,
Ich stelle mir gerade folgende Frage.
Koennte man nicht einfach in 11 Datenbanken die 12. Db als "Archiv-Datenbank" einstellen und dann mit den bordeigenen Archiv-Mitteln archivieren?
Andreas
Sehr guter Tipp!
Danke dafür! So hab ichs gemacht :)