El siguiente artículo Notas Los elementos da la descripción de todos los elementos de Notes. Se menciona que EMBEDDEDOBJECT (1090) significa objeto incrustado . Sin embargo, mi código no funciona para esta parte.
A continuación se presenta la pieza de código para extraer la imagen:
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
Si especifico como x.Type = 1090, entonces la imagen inliine no consigue extraer.
Pero si puedo especificar como x.Type = 1084 (lo que significa archivo adjunto) , en la misma pieza de código, funciona.
Imagen integrada se supone que es un objeto incrustado y no un archivo adjunto . ¿Podría alguien por favor decir la razón para este problema?