注释 EMBEDDEDOBJECT (1090) 不是 return 内联图像

Notes EMBEDDEDOBJECT (1090) doesn't return an inline image

下面的文章Notes items给出了所有注释项的描述。其中提到EMBEDDEDOBJECT(1090)表示嵌入对象。然而,我的代码不适用于这部分。

以下是提取图片的代码:

If edoc.HasEmbedded Then
ForAll x In edoc.items
    If x.Type = 1090 Then
    Set neoAttachment = edoc.GetAttachment(x.values(0))
    strImageFilepath = Temppath & neoAttachment.name
    Call neoAttachment.ExtractFile(strImageFilepath)
    Set Attachobject = rititem.EmbedObject( EMBED_ATTACHMENT, "", strImageFilepath)
    End If
End Forall

如果我指定为 x.Type=1090,则不会提取内联图像。

但是如果我指定为x.Type=1084(这意味着文件附件),在同一段代码中,它可以工作。

内联图像应该是嵌入对象并且不是附件。谁能告诉我这个问题的原因吗?

Notes 体系结构随着时间的推移而发展,词汇有点...嗯...很难。

嵌入对象可以是附件或 OLE 对象。嵌入对象(通常)有两部分:一段数据标记对象在 NotesRichTextItem 中出现的位置,另一段数据存储对象的实际位。在这两种情况下,标记都是通过 NoteRichTextItem 访问的,并被称为嵌入对象,但实际位存储在 NotesRichTextItem 之外的它们自己单独的 NotesItem 中。 NotesEmbeddedObject class 与这两个部分一起工作,并试图向您隐藏第二项的存在,但它始终存在。

类型 1090 是嵌入的 OLE 对象。如果嵌入对象是内嵌图像,则 NotesItem 对象存储为文件附件,类型为 1084。