Lotus на практике. Как скопировать документы из одной базы в другую

О чем этот текст?

Как скопировать документы из одной базы в другую? Это стандартная задача. И её решение нужно всегда держать под рукой. Сейчас оно будет под рукой.

Основная часть

Dim session As NotesSession
Dim session1 As NotesSession
Dim db As NotesDatabase
Dim db1 As NotesDatabase
Dim nview As NotesView
Dim doc As NotesDocument

Set session = New notessession
Set session1 = New notessession
Set db=session.CurrentDatabase
Set db1=session1.GetDatabase("","resultbase.nsf")

REM Задаем View в которое отобрали нужные документы

Set nview=db.GetView("MyView")

REM Устанавливаем указатель документа на первый из вью
Set doc=nview.GetFirstDocument

While Not doc Is Nothing

REM Копируем документ в другую базу

Call doc.CopyToDatabase(db1)

REM Переходим дальше
Set doc=nview.GetNextDocument(docx)

Wend

Автор: Joe1000




Ссылки:

К содержанию

© Copyright 2004-2017 - CMS Made Simple
Сайт работает на CMS Made Simple version 1.4.1

© Все печеньки Break-people.ru принадлежат авторам проекта.

Яндекс цитирования Рейтинг@Mail.ru Яндекс.Метрика