Доброго времени суток! Как получить список всех shared рисунков базы?

Добавлено: Неужели только через NotesNoteCollection?

 

Darker
а чем вас этот метод не устраивает?
можно еще в виде их всех засветить

 

Неужели только через NotesNoteCollection?

Ну почему же, DXL-экспорт тоже впечатляет (с последующим чтением по тегу "imageresource name=")

 

Ок, спасибо, решил сделать так

Dim s As New NotesSession
Dim n As NotesNoteCollection
Dim e As NotesDocument
Set n=s.CurrentDatabase.CreateNoteCollection(False)
n.SelectImageResources=True
n.BuildCollection
nid=n.GetFirstNoteId
For i=1 To n.Count
Set e=s.CurrentDatabase.GetDocumentByID(nid)
Redim Preserve images(i-1) As String
images(i-1)=e.GetItemValue("$ImageNames")(0)
nid=n.GetNextNoteId(nid)
Next
Dim ws As New NotesUIWorkspace
r=ws.Prompt(4,"Рисунок","Выберите рисунок",images(0),images)
If r="" Then End 
Call s.SetEnvironmentVar("Pic",r)
ws.ReloadWindow