Получаю коллекцию, помещаем результат в NotesNewsletter, результат показать в dialogbox

А вот нажимаю по ссылкам, а не работает.
Хоцца чтоб в диалоге

Set dc = db.FTSearch( query$, 0, FT_SCORES, FT_STEMS)

If dc.Count > 0 Then
Set newsletter = New NotesNewsletter(dc)
newsletter.DoScore = True
newsletter.DoSubject = True
newsletter.SubjectItemName = "KratSod"
Set resultdoc = newsletter.FormatMsgWithDoclinks(db)
Call ws.DialogBox ( "SearchResults", True, True, True, True, False, True, "Результат",resultdoc )
End If

 

Так диалог же в модальном окне! Естесственно, что ссылки в нём не работают. Отображайте результаты не в модальном окне, через EditDocument.

 

Я так раньше и делал, а хотелось красиво....