получить имя-имя из 1 из 2 полей с богатым текстом

Question

У меня есть форма с 2-мя богатыми текстовыми полями. Они оба хранят фотографии. У меня есть 1 текстовое поле, чтобы сохранить имя второго текстового поля. Для этого я использую: @Subset (@AttachmentNames; 1) , но проблема в том, что таким образом у меня нет контроля над тем, из какого поля текстового поля добавляется имя приложения. Любая идея?

Answer 1

К сожалению, с Формулой нет способа сделать это. В LotusScript вы можете сделать что-то вроде:

Dim ws as New NotesUIWorkspace 
Dim uidoc as NotesUIDocument 
Dim doc as NotesDocument 
Dim body1 as NotesRichtextItem 
Dim body2 as NotesRichtextItem 

Set uidoc = ws.CurrentDocument 
Set doc = uidoc.Document 
Set body1 = doc.GetFirstItem("NameOfFirstField") 
Set body2 = doc.GetFirstItem("NameOfFirstField") 

If Not Isempty(body1.EmbeddedObjects) Then  
    Forall o In rtitem.EmbeddedObjects  
    If (o.Type = EMBED_ATTACHMENT) Then   
     'Found attachment: add name to list 
     'do something with o.Source, this is the name of the attachment 
    End If 
    End Forall 
End If 

ухода Тека: Приставки в LotusScript только ток после сохранения документа ...

Answer 2

Вы можете использовать LotusScript. RichTextItem может содержать EmbeddedObject, который имеет свойство Source. Для вложений это содержит имя файла.

Цитата из файла справки:

Dim doc As NotesDocument 
Dim rtitem As Variant 
Dim object As NotesEmbeddedObject 
Dim sourceName As String  
'...set value of doc... 
Set rtitem = doc.GetFirstItem("Body") 
If (rtitem.Type = RICHTEXT) Then 
    Set object = rtitem.GetEmbeddedObject("City picture") 
    sourceName = object.Source 
End If