Anhänge werden nicht entfernt

[AlexS78]

Hi,

ich möchte eine Mail versenden, bei der alle Anhänge aus dem Body Feld entfernt werden.
Dazu nutze ich folgenden Code:

If  memo.HasEmbedded Then
Forall o In rtitem.EmbeddedObjects
If ( o.Type = EMBED_ATTACHMENT ) Then
Call o.Remove
End If
End Forall
End If


(Call memo.save (True,True)

Leider sind die Anhänge nach dem versenden immer noch vorhanden.

Hat jemand einen Tip, was ich falsch mache?

Vielen Dank
Alex

[Glombi]

Sind die Anhänge tatsächlich noch da oder nur die Symbole?

[AlexS78]

Hi,

die Anhänge sind noch da.

In den Dokumenteneigenschaften geprüft.

Gruß
Alex

[dudeis]

Hast Du das rtItem richtig initialisiert ? Vielleicht hat das Richtext Feld ja auch einen anderen Namen.

Dim rtitem As Variant   
If  memo.HasEmbedded Then
   Set rtitem = memo.GetFirstItem( "Body" )
   Forall o In rtitem.EmbeddedObjects
      If ( o.Type = EMBED_ATTACHMENT ) Then
         Call o.Remove
      End If
   End Forall
End If   
Call memo.save (True,True)

Gruß,
Andreas