Einzelne Datei aus einem Richtextfeld in ein anderes (ohne F-Platte)

[Schnubbel]

Hallo liebe Gemeinde,

ich habe 2 Richtextfelder innerhalb eines Dokument ( Body und head).

Im RTF "head" befinden sich 3 Dateien. (Kaufvertrag.txt, Rechnung.txt, Mahnung.txt).

Ich möchte nun die Datei Rechnung.txt aus dem RTF "head" ins RTF "Body" transferieren.

Wie ich das mit Festplatte mache, weiß ich. Ich möchte dies aber Notesintern ohne Zwischenspeichern auf der Festplatte lösen.

Könnt ihr mir einen Schubs in die richtige Richtung geben?

Dim Anhangzaehler As Integer
Dim crtitem As Variant
Dim object As NotesEmbeddedObject

Set crtitem = frontdoc.GetFirstItem("head")
   
   If (crtitem Is Nothing) Then
      Msgbox "Kein Anhang gefunden"
      Exit Sub
   End If
      
Set object = crtitem.GetEmbeddedObject( "Rechnung.txt" )

Ab hier weiß ich nicht mehr weiter. Wie füge ich dem RTF "body" das object zu oder muss ich einen anderen weg gehen?


Vielen Dank schonmal

Thorsten

[ascabg]

Hallo,

Koennte man nicht einfach den Inhalt aus "head" an "Body" anhaengen und dann das ueberfluessige "Zeug" loeschen.


Andreas

[Schnubbel]

Hallo,

Koennte man nicht einfach den Inhalt aus "head" an "Body" anhaengen und dann das ueberfluessige "Zeug" loeschen.


Andreas

Nein, leider nicht. Das ganze was da hinter steckt, ist ein bisschen größer (also zumindest für einen der Verwaltungsrecht studiert hat und von Haus aus kein Programmierer ist). Ziel des Großen und Ganzen (*hust) ist, eine Sortierung der Dateien in einem Richttextfeld anhang des Dateinames.

Ich hatte mir das so vorgestellt, dass ich die Datein aus "Body" nach "Head" (was schon klappt) verschiebe und dann je nach Sortierung die Datein wieder zurück in den Body schreibe (eben das sie sortiert sind). Mein nächster Schritt ist eben eine Datei aus dem Head wieder zum Body zu schicken. Mit dem Rest wollte ich euch nicht belasten  Kann aber eben sein, dass es so wie ich es mir gedacht hab, überhaupt nicht geht....

Thorsten

[m3]

https://www-304.ibm.com/support/docview.wss?uid=swg21109976&wv=1

[Schnubbel]

https://www-304.ibm.com/support/docview.wss?uid=swg21109976&wv=1

Danke Martin, das soll mich darauf hinweisen, dass es ohne F-Platte nicht geht?! Weil das es so geht, weiß ich ja 

[m3]

Jup.

[Schnubbel]

Schade und trotzdem danke schön an euch