EmbeddedObjects :: Attention

[oguruma]

Une petite précision sur EmbeddedObjects

sur un document EmbeddedObjects ne renvoie pas les pièces jointes elle ne renvoie que les objets OLE

sur un champ RT EmbeddedObjects renvoie les pj et OLE

petite astuce pour tester si EmbeddedObjects est valorisé

dim vObjet as variant
...
...

vObjet = doc.EmbeddedObjects

if isArray(vObjet) then
if not isEmpty(vObjet) then
forall o in vObj
...
...
...
end forall
end if
end if


petit rappel : tout ceci est exposé dans mon tutoriel sur le traitements des PJ (LS avancé)