注释 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。
下面的文章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。