Как получить Unid

[yonyak]

Как получить UNID

 

[Medevic]

F1 ?

 

[morpheus]

где ? шо ? как?

 

[yonyak]

ну мне нужно создать масив значений UNID документов коллекции

 

[morpheus]

unid$ = notesDocument.UniversalID

F1 как говорилось выше, в помощ

 

[Akupaka]

тема для флуда?..

 

[Medevic]

Ну раз пошла такая пьянка.
Что быстрее, взять документ по UNID или по NoteID?

 

[yonyak]

Спасибо я уже понял.

 

[Akupaka]

Ну раз пошла такая пьянка.
Что быстрее, взять документ по UNID или по NoteID?

эээ... думаю, что если нулевой вид не отсортирован по Name или ProcessorID, то килограмм будет по гривен 10

ну мне нужно создать масив значений UNID документов коллекции

dim col as NotesDocumentCollection
dim doc as notesdocument
dim unidArray as variant
dim i as long

set col = {getting the collection}
if col.Count > 0 then
redim unidArray (0 to col.Count)
set doc = col.GetFirstDocument
set i = 0
while not(doc is nothing)
unidArray(i) = doc.universalID
i = i + 1
set doc = col.GetNextDocument(doc)
end while
end if

dim col as NotesDocumentCollection
dim doc as notesdocument
dim unidArray as variant

set col = {getting the collection}
if col.Count > 0 then
set doc = col.GetFirstDocument
while not(doc is nothing)
if isArray(unidArray) then
redim preserve unidArray (lbound(unidArray) to ubound(unidArray) + 1)
else
redim unidArray (0 to 0)
end if
unidArray(ubound(unidArray)) = doc.universalID

set doc = col.GetNextDocument(doc)
end while
end if

первый вариант должен быть полезнее в отношении скорости и памяти, т.к. память выделяется фиксированно один раз...