|
| 03/28/2022 01:57:17 PM |
Вставка изображения в RICHTEXT |
|
Регистрация: 03/28/2022
Сообщений: 2 |
Как брать картинку из Resurces/Images ?
|
| |
|
| 03/28/2022 02:01:11 PM |
|
|
Регистрация: 03/28/2022
Сообщений: 2 |
В хэлпе имеется код для подгрузки изображения с компа и вставки его в RICHTEXT.
EmbedPictureIntoRichText = False
Dim body As NotesMIMEEntity
Dim header As NotesMIMEHeader
Dim child As NotesMIMEEntity
Dim stream As NotesStream
Dim fileFormat As String
Dim rtitemA As NotesRichTextItem
Dim rtitemB As NotesRichTextItem
Set db = doc.Parentdatabase
Set stream = session.CreateStream
Call stream.Open("J:\Рабочая\SYS\Desktop\f.gif")
Set body = doc.CreateMIMEEntity("DummyRichText")
Set header = body.CreateHeader("Content-Type")
Call header.SetHeaderVal("multipart/mixed")
Set child = body.CreateChildEntity() 'Set childEntity = richTextItemObj.CreateChildEntity()
fileFormat = "image/gif" 'Other formats are "image/gif" "image/bmp"
Call child.Setcontentfrombytes(stream, fileFormat, 1730)
Call stream.Close()
Call doc.save(False, False) 'JUST TO REFRESH
Set rtitemA = doc.GetFirstItem("fpo")
rtitemA.Values = ""
Set rtitemB = doc.GetFirstItem("DummyRichText")
Call rtitemA.AppendRTItem( rtitemB )
Call rtitemB.Remove()
Call doc.save(False, False)
EmbedPictureIntoRichText = True
Данный код работает, но вопрос по внедрению изображения из Resurces/Images.
Возможно ли кодом вытаскивать изображения из Resurces/Images и вставки его в RICHTEXT?
|
| |
|
|
|
|
| Дополнительно |
| Статистика форума |
Именинники |
 |
Новый пользователь: rAmantiK
Участников: 247
Тем: 167
Сообщений: 416 |
|
|
|
|
| Статистика |
| Самые активные авторы |
Новые пользователи |
Наиболее просматриваемы темы |
|
|
|
|
|
|