В одной из тем неподалеку была высказана мысль, что документы можно скопировать из одной базы в другую, сохранив их UNID'ы. На днях попытался такое осуществить следующим образом:

Dim ws As New NotesUIWorkspace
Dim sess As New NotesSession
Dim archiveDb As NotesDatabase
Dim view As NotesView
Dim doc As NotesDocument, newDoc As NotesDocument

Set archiveDb = New NotesDatabase("", "MyArchive.nsf")
Set view = ws.CurrentDatabase.Database.GetView("Docs2Copy")
Set doc = view.GetFirstDocument
While Not doc Is Nothing
Set newDoc = New NotesDocument(archiveDb)
Call doc.CopyAllItems(newDoc, True)
newDoc.UniversalID = doc.UniversalID
Call newDoc.Save(True, False)
Set doc = view.GetNextDocument(doc)
Wend

Данный скрипт отрабатывает без каких-либо ошибок, однако в архивной базе ничего не создается, т.е. она так и остается пустой. Может кто-нибудь подсказать, в чем затык?

 

1. С правами в базе что-нибудь не так.
2. В представлении неправильная формула отбора.

 

Все, разобрался, мой глюк