Lotus Notes / Domino Sonstiges > Tipps und Tricks

Anhänge lösen, löschen .....

<< < (2/2)

koehlerbv:
Copy & paste ist kreuzgefährlich in der Entwicklung, wenn man nicht weiss, was man tut ...


--- Code: ---If ( rtitem.Type = RICHTEXT ) Then
         If doc.HasEmbedded = True then
            Forall o In rtitem.EmbeddedObjects
               Call o.ExtractFile(  folder+"\"  & o.Name )
               Call o.Remove
            End Forall
            Call doc.Save (False, False)
         End If
      End If
--- Ende Code ---

Bernhard

Pascal:
Vielen Dank und ich gebe Dir zu 100% Recht, habe zum Glück nur mir selber "geschadet" .
Jetzt ists perfekt

Danke

Pascal

Navigation

[0] Themen-Index

[*] Vorherige Sete