Dateianhänge per Script löschen

[NotesRookie]

Hi All,

wie kann ich Dateianhänge per Script löschen ?

Irgendwie kriege ich es nicht 100 % hin. Es wird die Datei zwar gelöscht ( aus dem besagten Feld ). Die Datei selbt wird aber ans Ende des Dokumentes gesetzt.

Dankbar für jede Hilfe !

Gruß,
Marcus

[Glombi]

Kannst Du mal den Code posten?
Ist das eine Web oder reine Notes Anwendung?

Was heißt, die Datei bleibt drin? Ist das die vollständige Datei oder nur das Bitmap? Kann Du den Anhang nach dem Löschen noch starten?

Andreas

[NotesRookie]

Hallo Andreas,

ich hab wohl den falschen Befehl genutzt :

Set rtitem = doc.GetFirstItem( "Dateianhang" )
Call rtitem.Remove

Logischerweise wurde dann das Feld gelöscht und die Datei ans Ende des Dokumentes gehangen.

Ich werde es mal so probieren :

Dim doc As NotesDocument
Dim rtitem As Variant
Dim object As NotesEmbeddedObject
Set rtitem = doc.GetFirstItem( "Dateianhang" )
Set object = rtitem.GetEmbeddedObject( "City picture" )
Call object.Remove
Call doc.Save( True, True )

Dann sollte es funktionieren ...


Gruß,
Marcus

[NotesRookie]

Fast vergessen ...

Reine Notesanwendung, kein Web.

[Glombi]

Mit dem neuen Code sollte es funktionieren.

Andreas