Извините, товарищи! Вопрос может уже давно позабытый, но я никак не могу разобраться, как вложить файл формата "pdf" в NotesRichTextItem так, чтобы он отображался как картинка. Нашел в интернете код, как это делается с jpeg. Поменял на pdf, но никак не работает. Может у Вас есть готовые решения?
Вот мой "неработающий скрипт":
Function EmbedPdfIntoRichText(doc As NotesDocument,strFilePath As String)
EmbedPdfIntoRichText = False
Dim session As New NotesSession
Dim db As NotesDatabase
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
session.Convertmime = True
Set db = doc.parentdatabase
Set stream = session.CreateStream
Call stream.Open(strFilePath)
Set body = doc.CreateMIMEEntity("DummyRichText")
Set header = body.CreateHeader("Content-Type")
Call header.SetHeaderVal("multipart/mixed")
Set child = body.CreateChildEntity()
fileFormat = "application/pdf"
Call child.Setcontentfrombytes(stream, fileFormat, ENC_IDENTITY_BINARY)
Call stream.Close()
Call doc.save(False, False)
Set rtitemA = New NotesRichTextItem(doc,"Body")
Set rtitemB = doc.GetFirstItem("DummyRichText")
Call rtitemA.AppendRTItem( rtitemB )
Call rtitemB.Remove()
Call doc.save(False, False)
EmbedPdfIntoRichText = True
End Function
Вот мой "неработающий скрипт":
Function EmbedPdfIntoRichText(doc As NotesDocument,strFilePath As String)
EmbedPdfIntoRichText = False
Dim session As New NotesSession
Dim db As NotesDatabase
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
session.Convertmime = True
Set db = doc.parentdatabase
Set stream = session.CreateStream
Call stream.Open(strFilePath)
Set body = doc.CreateMIMEEntity("DummyRichText")
Set header = body.CreateHeader("Content-Type")
Call header.SetHeaderVal("multipart/mixed")
Set child = body.CreateChildEntity()
fileFormat = "application/pdf"
Call child.Setcontentfrombytes(stream, fileFormat, ENC_IDENTITY_BINARY)
Call stream.Close()
Call doc.save(False, False)
Set rtitemA = New NotesRichTextItem(doc,"Body")
Set rtitemB = doc.GetFirstItem("DummyRichText")
Call rtitemA.AppendRTItem( rtitemB )
Call rtitemB.Remove()
Call doc.save(False, False)
EmbedPdfIntoRichText = True
End Function