Attachments werden nicht im RichTextFeld angehängt

[Colibri]

Ich hänge über eine Maskenaktion Dateien in einem Richtextfeld an

...
Set doc = uidoc.document
Set rtitem = doc.GetFirstItem("prot")
Set object = rtitem.EmbedObject( EMBED_ATTACHMENT, "", "c:\prot.txt")
...
Call uidoc.save   
Call uidoc.close
Call doc.save(True,True)
Set uidoc = ws.editdocument(True, doc, False)

An den Notes 6.5 Clients funktioniert das noch wunderbar, das File prot.txt hängt als Attachment im Richtextfeld prot.

Bei den Notes 8.5 Clients hängt das File nun aber nicht mehr im Feld, sondern ganz unten am Dokument, unterhalb einer Trennlinie.

Hat jemand eine Idee?

Dietmar

[m3]

Die Datei ist angehängt, der Code funktioniert also.
Möchtest Du Dein Problem/Frage ev. genauer beschreiben?

[Colibri]

   verstehe die Antwort nicht.

Problem: siehe Notes 8.5 Clients

Frage: Wie wird es wieder so wie bei Notes 6.5 Clients?

[Axel]

Dieses Problem hatten wir hier schon ein paarmal.

Guckst du z.B. hier: http://atnotes.de/index.php/topic,50270.0.html

Axel

[Peter Klett]

Ich finde die Reihenfolge Deiner Speicheraktivitäten ungewöhnlich und würde es einmal so ausprobieren:

Dim id As String
Set doc = uidoc.document
id = doc.UniversalID
Call uidoc.save  
Call uidoc.close
Delete doc
Set doc = db.GetDocumentByUnid (id)
Set rtitem = doc.GetFirstItem("prot")
Set object = rtitem.EmbedObject( EMBED_ATTACHMENT, "", "c:\prot.txt")
...
Call doc.save(True,True)
Set uidoc = ws.editdocument(True, doc, False)

Das nur als Gerüst, ohne jegliches Fehlerhandling.

Üblicherweise ist davon auszugehen, wenn die Datei separat unten am Dokument angehängt ist, dass das Richtextitem fehlt, in dem die Datei angehängt werden sollte.

[Colibri]

Ich finde die Reihenfolge Deiner Speicheraktivitäten ungewöhnlich und würde es einmal so ausprobieren:

Volltreffer!!

Was unter 6.5 noch ging, geht unter 8.5 nicht mehr, aber mit Deiner Variante funktioniert es in beiden Versionen.

Danke!