Anhang löschen

[skywook]

Hallo,
brache mal wieder eure Hilfe.
Habe schon mit zwie Varianten versucht einen Anhang aus dem Dokument zu löschen. Wenn das Dokument danach aufgerufen wird ist der Anhang zwar gelöscht aber das Icon des Anhanges ist noch im RichTextFeld vorhanden. Wie bekomme ich den das Feld komplett leer.

Beispiel 1
Set rtitem = notesdoc.GetFirstItem( "Anhang" )
If ( rtitem.Type = RICHTEXT ) Then
      Call notesDoc.RemoveItem("$File")
      Call notesdoc.RemoveItem("Anhang")
      Call notesdoc.Save( True, True )      
End If      
...

Beispiel 2
Set rtitem = doc.GetFirstItem( "Anhang" )
If Isarray (rtitem.EmbeddedObjects) Then
  If ( rtitem.Type = RICHTEXT ) Then
      Forall alle In rtitem.EmbeddedObjects
        If ( alle.Type = EMBED_ATTACHMENT ) Then
             Call alle.Remove
......

[koehlerbv]

Beispiel 1 ist auf jeden Fall verkehrt: $File und das RTI bieten eine Einheit, andererseits können sich $File-Items auch auf mehrere RTIs beziehen.

Beispiel 2 ist der dokumentierte Weg, der eigentlich funktionieren muss (oder ich habe gerade Tomaten auf den Augen). Welche Version von Notes bzw. Domino (je nachdem, wo der Code läuft) verwendest Du?

Bernhard

[Untitled]

Vergiss nicht, das Dokument neu zu Öffnen. Die Änderungen werden erst dann sichtbar.

Moritz

[koehlerbv]

Davon bin ich jetzt ausgegangen, Moritz:

Wenn das Dokument danach aufgerufen wird ist der Anhang zwar gelöscht aber das Icon des Anhanges ist noch im RichTextFeld vorhanden.

Schauen wir mal, was skywook noch ermitteln kann. Das Problem dürfte woanders liegen.

Bernhard

[skywook]

Danke Bernhard und Moritz,

ich lösche den Anhang im Backend. Und öffne das Doc danach (derzeit noch) manuell. Aber wie schon gesagt, der Anhang ist gelöscht aber das Symbol ist im Feld noch enthalten. Gibt es da noch einen anderen Trick den Anhang komplett aus dem Document zu löschen.