Коллекция документов

[Qwerty84]

Call notesDocumentCollection.AddDocument(document) не работает.
При добавлении документа в коллекцию выдается ошибка
Object variable not set

код следующии:

Dim dcol As notesdocumentcollection
' Set dcol = New notesdocumentcollection тоже выдает ошибку
Call dcol.AddDocument(tdoc)

подскажите как инициализировать новый пустой коллекшн чтоб потом туда можно было добавлять документы

 

[Medevic]

<!--QuoteBegin-Qwerty84+10:09:2007, 10:27 -->
<span class="vbquote">(Qwerty84 @ 10:09:2007, 10:27 )</span><!--QuoteEBegin-->подскажите как инициализировать новый пустой коллекшн чтоб потом туда можно было добавлять документы

[snapback]77616" rel="nofollow" target="_blank[/snapback]​

[/quote]
Нормальным способом никак. Можно использовать метод NotesView.GetAllDocumentsByKey с ключом, которого нет в представлении.

 

[Qwerty84]

<!--QuoteBegin-Medevic+10:09:2007, 08:31 -->
<span class="vbquote">(Medevic @ 10:09:2007, 08:31 )</span><!--QuoteEBegin-->Можно использовать метод NotesView.GetAllDocumentsByKey с ключом, которого нет в представлении.

[snapback]77617" rel="nofollow" target="_blank[/snapback]​

[/quote]
то есть будем обманным путем создавать новый пустой коллекшн

но все ровно спасибо
все работает

 

[Omh]

Побыстрее можно сделать через GetProfileDocCollection: не нужно view

Set Dc = db.GetProfileDocCollection("SOME_FAKE_KEY")