Suppression icon attachement dans Rtitem

[camilleB]

Bonjour,
j'ai du mal à supprimer l’icône liée a un fichier dans un champ Richtext.
D'après la technote d'IBM il faut procéder ainsi:

Code : Tout sélectionner

Set rtitem=doc.GetFirstItem("Body")
      Forall o In rtitem.EmbeddedObjects
               If(o.Type=EMBED_ATTACHMENT) Then
                  Call o.remove   
               End If
               
            End Forall


Je supprime bien le fichier, mais l’icône persiste.
Auriez vous une petite idée! Merci.
cdt
camille

[Michael DELIQUE]

salut

tu as enregistrer,fermé puis réouvert ton doc apres ?

[camilleB]

Salut,
oui, j'ai fait çà en premier connaissant un petit peu le travail avec les richtextItem!
Mais cela ne change rien!
l’icône reste dans dans le champ en Front-end. Je me suis dit alors qu'il suffirait d'effacer le contenu du champ.

Code : Tout sélectionner

Set rtitem=doc.GetFirstItem("Body")
            Forall o In rtitem.EmbeddedObjects
               If(o.Type=EMBED_ATTACHMENT) Then
                  Call o.remove   
               End If
            End Forall
            Call source.FieldSetText("Body","")
            Call doc.Save(True,True)


Et là plus d'icone!
Sinon je n'ai rien trouvé d'autre.
cdt
camille