Замена текста на изображение

While Not(sign_doc Is Nothing)
        If sign_doc.Form(0)="Responses" Then
            dateTime.LSLocalTime = sign_doc.Created
            
            If sign_doc.ConsentField(0)="Да" Then 
                Call Sign_Item.AppendToTextList(dateTime.DateOnly & " : " & sign_doc.Stuff(0) & " -- " & sign_doc.FIO(0)  & " (Согласен)")
            End If
            
            If sign_doc.ConsentField(0)="Да (с замечаниями)" Then 
                Call Sign_Item.AppendToTextList(dateTime.DateOnly & " : " & sign_doc.Stuff(0) & " -- " & sign_doc.FIO(0) & " (Согласен с замечаниями)")                 
                Call Sign_Item.AppendToTextList(sign_doc.ConsentDetail(0))      
            End If
            
            If sign_doc.ConsentField(0)="Нет" Then 
                Call Sign_Item.AppendToTextList(dateTime.DateOnly & " : " & sign_doc.Stuff(0) & " -- " & sign_doc.FIO(0) & " (Не согласен) ")     
                Call Sign_Item.AppendToTextList(sign_doc.ConsentDetail(0))                              
            End If
            
            doc.signListNames = doc.Podpis
        End If 
        Set sign_doc = SignColl.GetNextDocument(sign_doc)
    Wend
    Call doc.Save(True,True)

dim item as variant
 
set item = doc.getfirstitem( названия нужного NotesRichText)
 
If item.type = 1 Then '1=richtext
                    Dim object As notesembeddedobject
                    On Error Goto errhandler
                                        'Вложение файла в поле.Где attachfile - полный путь к файлу на диске
                    Set object = item.embedobject(1454, "", attachfile) '1454 = embed_attachment                                
                End If                                        
            End If           
        End If
 
               'не забываем сохранить потом doc
 
        Exit sub
 
errhandler:
        Print "ошибка " & Str(Err) & " ("& Error$(Err) & ")"
end sub

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