Скопировать документы

[Nealles]

Помогите пожалуйста, нужно скопировать документы из 2х БД в одну.

 

[Medevic]

Копипастом или NotesDocument.CopyToDatabase

 

[Nealles]

извините, а пример какой-нибудь простой можно.

 

[Medevic]

This script checks if a document was created before August 12, 1995. If so, it copies the document to an archive database.
Dim archiveDb As New NotesDatabase( "", "" )
Dim doc As NotesDocument
'...set value of archiveDb...
'...set value of doc...
If ( doc.Created < Datenumber( 1995, 8, 12 ) ) Then
Call doc.CopyToDatabase( archiveDb )
'You can use the call statement because the
'program does not need the return value
'(a handle to the new document)
End If

Выдрал из хелпа.