Das Notes Forum

Domino 9 und frühere Versionen => ND6: Entwicklung => Thema gestartet von: AlexS78 am 07.03.06 - 13:29:11

Titel: Anhänge werden nicht entfernt
Beitrag von: AlexS78 am 07.03.06 - 13:29:11

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

Titel: Re: Anhänge werden nicht entfernt
Beitrag von: Glombi am 07.03.06 - 13:58:02

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

Titel: Re: Anhänge werden nicht entfernt
Beitrag von: AlexS78 am 07.03.06 - 14:35:46

Hi,

die Anhänge sind noch da.

In den Dokumenteneigenschaften geprüft.

Gruß
Alex

Titel: Re: Anhänge werden nicht entfernt
Beitrag von: dudeis am 07.03.06 - 16:49:58

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