Lotus notes 将附件从一个表单复制到另一个lotus notes

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

Set item1=tardoc.GetFirstItem（“注释”）
Set item=sourcedoc.GetFirstItem（“当前_US”）
如果不是，则项目为空
如果item.Type=RICHTEXT，则
设置rtitem=项目
如果不是Isempty（rtitem.EmbeddedObjects），则
对于rtitem.EmbeddedObjects中的所有fileItem
如果fileItem.Type=EMBED\u附件，则
调用fileItem.ExtractFile（文件路径_
&Cstr（文件项.名称））
attFile=filepath&Cstr（fileItem.Name）
调用item1.EmbedObject（嵌入附件“”，attFile）
如果结束
端孔
如果结束
如果结束
如果结束

sourcedoc是必须从中复制附件的文档，tardoc是必须将附件复制到的文档，它也是打开的新文档，因此在此表单的postopen事件中，我编写了代码。但在这一行，代码无法表示未设置对象变量。

---

调用item1.EmbedObject（EMBED_ATTACHMENT，“，attFile）

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

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

Dim会话作为新便笺会话
将工作区设置为新工作区
Dim tardoc As NOTES文档
Dim项目1作为注释RichTextItem
设置tardoc=session.CurrentDatabase.CreateDocument
tardoc.Form=“YourForm”
Set item1=tardoc.CreateRichtextItem（“注释”）
Set item=sourcedoc.GetFirstItem（“当前_US”）
如果不是，则项目为空
如果item.Type=RICHTEXT，则
... 你的代码。。。
如果结束
如果结束
调用workspace.EditDocument（True，tardoc）

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

Set item1=tardoc.CreateRichTextItem（“注释”）

当我在按钮中使用此代码时，得到的变量不包含对象错误。此外，单击此按钮后，目标文档应以编辑模式打开。谢谢你的帮助！我的代码示例只是一个片段。别忘了另外设置sourcedoc。激活Lotusscript调试器以查看“variant not container”错误发生的位置。最后一行中的True参数确保目标文档以编辑模式打开。