У меня есть входящее электронное письмо (почта в БД), содержащее RichTextField, в котором найдены «некоторые» вложения. Я также нахожу вложения не в RTF, а в документе как $FILE.Я пытаюсь получить доступ ко всем объектам, чтобы скопировать их в другое исходящее электронное письмо. Я могу найти $FILE, используя приведенный ниже код.
Dim rtiObject as NotesEmbeddedObject
Dim rti_Email as NotesRichTextItem
Dim obj_Email as NotesEmbeddedObject
ForAll p in mailDoc.items
if p.Name = "$FILE" then
set obj_Email = mailDoc.GetAttachment(p.Values(0)) 'this will return the Name of the attachment (or file)
set rtiObject = rti_Email.EmbedObject( EMBED_ATTACHMENT, "", obj_Email.Name) 'this is supposed to attach the file to the document's RTF
End If
End ForAll
Когда этот скрипт запускается, он находит файлы $FILE и возвращает имя, но не объект, и оттуда я ничего не могу с ним сделать.
Что мне нужно сделать, чтобы получить вложение/объект ($FILE) из исходного документа и прикрепить его к RTF в исходящем электронном письме?
Я думал о том, чтобы отсоединить вложение от сети, а затем прикрепить его к исходящему письму, а затем удалить вложение из сети, но это кажется нецелесообразным.
Есть ли лучший способ обработки этих вложений типа $FILE во входящей электронной почте, который облегчил бы эту задачу?