将嵌入对象（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文档，您可以打开对象并通过办公自动化保存文件，并使用正确的文件类型再次附加文件。