将附件从一个表格复制到另一个莲花笔记答案

【问题标题】：Copying attachments from one form to another lotus notes将附件从一个表格复制到另一个莲花笔记
【发布时间】：2016-12-01 07:01:29
【问题描述】：

我有一个要求，其中有一个带有附件的文档，当我单击一个按钮时，它会打开一个新表单。此表单必须在富文本字段中包含该附件。我在打开的新表单的 PostOpen 事件中编写了以下代码

    Set item1= tardoc.GetFirstItem("Comments")
    Set item= sourcedoc.GetFirstItem("Current_US")
    If Not item Is Nothing Then
        If item.Type = RICHTEXT Then
            Set rtitem = item
            If Not Isempty(rtitem.EmbeddedObjects) Then
                Forall fileItem In rtitem.EmbeddedObjects
                    If fileItem.Type = EMBED_ATTACHMENT Then
                        Call fileItem.ExtractFile(filepath _
                        & Cstr(fileItem.Name))
                        attFile = filepath & Cstr(fileItem.Name)
                        Call item1.EmbedObject( EMBED_ATTACHMENT, "", attFile)
                    End If
                End Forall
            End If 
        End If 
    End If

sourcedoc 是必须从中复制附件的文档，tardoc 是必须将附件复制到的文档，它也是打开的新文档，因此在此表单的 postopen 事件中，我已经写了代码。但是在这一行代码失败说对象变量未设置。调用 item1.EmbedObject(EMBED_ATTACHMENT, "", attFile)

【问题讨论】：

标签： lotus-notes lotusscript

【解决方案1】：

代码在 Postopen 事件中不起作用，因为更改富文本字段为时已晚。

在带有后端类的按钮中创建文档，然后打开文档进行编辑。

Dim session As New NotesSession
Dim workspace As New NotesUIWorkspace
Dim tardoc As NotesDocument
Dim item1 As NotesRichTextItem

Set tardoc = session.CurrentDatabase.CreateDocument
tardoc.Form = "YourForm"
Set item1= tardoc.CreateRichtextItem("Comments")
Set item= sourcedoc.GetFirstItem("Current_US")
If Not item Is Nothing Then
    If item.Type = RICHTEXT Then
        ... your code ...
    End If 
End If
Call workspace.EditDocument(True, tardoc)

由于 tardoc 是一个新文档，您必须首先创建目标富文本字段

Set item1= tardoc.CreateRichTextItem("Comments")

【讨论】：

当我在按钮中使用此代码时，我得到一个变体不包含对象错误。同样在单击此按钮时，目标文档应以编辑模式打开。感谢您的帮助！
我的代码示例只是一个片段。不要忘记另外设置 sourcedoc。激活 Lotusscript 调试器以查看发生“变体不包含容器”错误的位置。最后一行的 True-parameter 确保目标文档在编辑模式下打开。