将嵌入对象（EMBED_OBJECT）转换为附件

Question

我目前正在寻找将Lotus Notes文档中的现有EMBED_OBJECT转换为EMBED_ATTACHMENT的解决方案。 我打算做的是从原始路径中提取EMBEDDED_OBJECT，然后将其重新附加到“Body1”上。

我在谷歌搜索中找到了以下示例，它工作正常但仅适用于ATTACHMENT。仍然没有找到在EMBED_OBJECT类型上应用它的方法。

当我在调试过程中查看代码时，属性embobj.SOURCE获取的名称如“AT0050”而不是完整的原始路径。

我可以知道如何实现目标吗？

非常感谢

设置item = doc.GetFirstItem（“Body1”）

    Forall embobj In item.EmbeddedObjects           
        verbs = "No verbs"          
        Select Case embobj.Type

            Case EMBED_OBJECTLINK : _

            embobjType = "Object link"

            Case EMBED_ATTACHMENT : _

            embobjType = "Attachment"
            Call embobj.ExtractFile( "c:\" &  embobj.source)

                Case EMBED_OBJECT : embobjType = "Object"

        End Select

Answer 1

嵌入的对象没有“文件名”。它们是什么样的物体？只是办公室文件？对于office文档，您可以打开对象并通过办公自动化保存文件，并使用正确的文件类型再次附加文件。