Probleme d'extraction de fichier EmbeddedObject

[fripouille76]

Bonjour à tous,

Voila j'ai un problème d'extraction de fichier par agent:

Le client à une base GED dans laquelle il a des documents avec des pièces jointes. Cette même base est vérouillé coté structure , impossible de voir les propriétés des documents, voir de l'ouvrir dans le designer.
J'ai à partir d'une base vide, récupérer les documents et je peux dès lors identifier clairement les champs text rich et même afficher les pièces jointes.

J'essaye tant bien que mal depuis de boucler sur ces documents et d'extraire mes pièces jointes, mais j'ai l'impression qu'il n'arrive pas à trouver d'objet.

mon problème c'est que bien qu'il existe une pièce jointe il sort sur le IsEmpty à tous les coups.....!! bizarre non. De plus, lorsque j'essaye d'acceder à l'ensemble des objets (avec ) j'ai un type mismatch.
Aurais je oublier quelque chose?

merci pour votre aide

Voici le code que j'utilises pour extraire la piece jointe
[syntax="LotusScript"]
'######
Set rtitem1 = doc.GetFirstItem("RTF_1" )

If Not rtitem1 Is Nothing Then

If ( rtitem1.Type = RICHTEXT ) Then

If Not IsEmpty(rtitem1.EmbeddedObjects) Then

ForAll o In rtitem1.EmbeddedObjects

If ( o.Type = EMBED_ATTACHMENT ) Then

Call o.ExtractFile( "c:\Repertoire\" +o.Name)

End If

End ForAll

End If

End If

End If

#####
[/syntax]

[Michael DELIQUE]

salut

il est possible que les pj ne soient pas stockés dans un champ rich text

[fripouille76]

c bon je me suis dépatouiller je pointais pas sur le bon champ text rich..difficile de bien voir, sans la structure du form.
merci de votre aide