Удаление письма из базы

[Omh]

Мне кажется, перебор через NotesDbDirectory не открывает базу, а только её дёргает.
Кмк, можно обойтись такой конструкцией:

Set TmpDb = NotesDir.GetFirstDatabase(TEMPLATE_CANDIDATE)
While Not TmpDb Is Nothing
if Not TmpDb.IsOpen then Call TmpDb.Open(TmpDb.Server, TmpDb.Filepath)
'тра-ля-ля
Wend

Или я брежу?
Вообщем, я подсказал немного избыточную, но, по моему мнению, заведомо рабочую проверку.
------------------------------------------------------------------------
А!
Перед wend'ом забыл вписать строчку берущую след. базу:

Set TmpDb = DbDir.GetNextDatabase

Так бывает, када пишешь код сразу тут
------------------------------------------------------------------------
Перепроверил: перебор не открывает базы.
Вот такой код работает как надо, и без лишнего объекта:

Dim DbDir As New NotesDbDirectory("SERVER")
Dim TmpDb As NotesDatabase
Set TmpDb = DbDir.GetFirstDatabase(TEMPLATE_CANDIDATE)
While Not TmpDb Is Nothing
On Error Resume Next
Call TmpDb.Open("", "")
On Error Goto Errh
if TmpDb.IsOpen then
'понеслась!
end if
Set TmpDb = DbDir.GetNextDatabase
Wend

Сорри, что в начале затупил.

 

[Medevic]

Не открывает. Поэтому открываем её методом Open. Причем проверка IsOpen, по-моему, лишняя. Т.к. реализована в методе Open.

 

[Omh]

Medevic
А db.Open("", "") открывает ассигонованую базу.
Хм, век живи, век учись!
Что-то я так раньше никогда не делал...
------------------------------
Минимизировал код на 2 поста выше.
------------------------------
Коллективный разум - сила.

 

[ruster83]

Всем большое спасибо,все получилось. Очень вам благодарен.