從2個富文本字段中的1個獲取附件名

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