Прикрепите файл к элементу форматированного текста в Lotus Document

Я пытаюсь прикрепить файл к моему документу в Lotus. Мой файл находится здесь, в c:\dev\3.txt, моя форма - Test, а поле Richtext, к которому я хочу прикрепить поле, - "test". Я попробовал этот код 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

attachment richtext lotusscript lotus-notes lotus
person user3082877    schedule 29.04.2015    source источник
comment
Является ли Test действительно Richtextitem? я не вижу ничего плохого в вашем коде на первый взгляд...   -  person Torsten Link    schedule 29.04.2015
comment
Похоже, это код кнопки действия, поэтому может возникнуть проблема с синхронизацией документов между интерфейсом и сервером. Я слишком долго не играл с этим, но если это то, что происходит, то этот старый метод может быть ключом: ?OpenDocument" rel="nofollow noreferrer">www-10.lotus.com/ldd/nd6forum.nsf/   -  person Richard Schwartz    schedule 29.04.2015
comment
Дополнение к вопросу Торстена: вы можете проверить это, используя If (rtitem.Type=RICHTEXT) Then... Или, может быть, даже If (doc.HasItem(test)) Then...   -  person Lothar Mueller    schedule 01.05.2015

Ответы (1)


arrow_upward
2
arrow_downward

попробуйте использовать этот код:

files = workspace.OpenFileDialog(True, "File List","", "")
Forall i In files
  Set object = rtitem.EmbedObject(EMBED_ATTACHMENT, "",i,"")
End Forall
person Michele De Nardi    schedule 22.05.2015