Иконка вложения

[PAL]

День добрый всем.

Lotus 6.5

Для создания вложений использую следующий код

Set rtitem=New NotesRichTextItem( doc, "Body" )
Set object =rtitem.EmbedObject(EMBED_ATTACHMENT, "", filename, "")

Все работает, однако иконка у вложения выглядит в виде серого прямоугольника.
Возможно ли заставить rtitem отображать иконку, соответствующую типу файла?

 

[PAL]

Еще раз день добрый.
Скажите, неужели никто с этим не сталкивался или вопрос настолько глупый, что отвечать лениво?

 

[oshmianski]

Для: PAL
задачка не совсем тривиальная
вот

Ссылка скрыта от гостей

посмотри

 

[PAL]

Ссылка интересная, спасибо oshmianski.
С ходу правда не заработала, но направление куда копать понял.

 

[Fossil Code]

Ну почему, вопрос не глупый, но... Бывает, что легче пристрелить, чем прокормить. Особенно когда речь идет о вещах на грани взаимодействия ОС и прикладного продукта, пользующегося сервисами ОС. Например, был случай с иконками, когда Лотус просто не понимал полноцветных иконок аттачей, а 256-цветные показывал на ура. Решили "downgrade"-ом иконки. Хотя никакой реальной значимости для целей работоспособности системы это не имело. Просто было время.