Приложить файл к текстовому элементу в документе Lotus

Question

Я пытаюсь прикрепить файл к моему документу в файле Lotus.My, который находится здесь, в c: \ dev \ 3.txt, моя форма - это Test и поле richtext где я хочу прикрепить поле, это «тест». Я попробовал этот LotusScript код, чтобы прикрепить файл к полю «тест», но поместить файл в конце документа, а не в поле:

Dim uidoc As notesuidocument 
Dim w As New notesuiworkspace 
Dim object As NotesEmbeddedObject 
Dim doc As NotesDocument 
Dim rtitem As NotesRichTextItem 
Set uidoc=w.currentdocument 
Set doc = uidoc.Document 

Set rtitem = doc.GetFirstItem("test") 
Set object= rtitem.EmbedObject(EMBED_ATTACHMENT, "", "C:\dev\3.txt") 
doc.Form = "Test" 

Call doc.Save(True, False) 

Call uidoc.Close 

Answer 1

пытаются использовать этот код:

files = workspace.OpenFileDialog(True, "File List","", "") 
Forall i In files 
    Set object = rtitem.EmbedObject(EMBED_ATTACHMENT, "",i,"") 
End Forall