Eingebettetes Bild in RTF in ein neues Dokument kopieren

[Lloyd]

Hallo,
ich komm einfach nicht weiter. Ich habe in einer DB eine Memo-Maske eingebaut und lasse mir Mails dahinschicken. Den Inhalt des Feldes "Body" kopiere ich manuell über eine Schalftläche in ein neues Dokument. Ist in dem Body-Feld ein Bild angehangen, dann wird das RTF-Feld sauber von dokA nach dokB kopiert. Ist aber in dem Body-Feld ein importiertes Bild, dann wird dieses ignoriert und lediglich die Textpassagen von dokA nach dokB kopiert. Wie krieg ich das umgangen. Ich hab hier im Forum schon diverse Beiträge gefunden, aber keiner hat bislang gefruchtet.

Auszug aus dem Script:
Dim itemA As NotesItem
...
Set itemA = docA.GetFirstItem("Body")
Call itemA.CopyItemToDocument(docB,"Body")
...

Gruss
Lloyd

[pram]

vielleicht:
dim item2 as new NotesRichTextItem(docB)
call item2.appendRtItem(item1)
call item2.compact 'vermutl unnötig

(untested)


Gruß
Roland

[Lloyd]

Nee leider auch nicht.
Ich habs jetzt so probiert:

Dim rtitemA As Variant
Dim rtitemB As NotesRichTextItem
Set rtitemA = docA.GetFirstItem("Body")
Set rtitemB = New NotesRichtextItem(doc,"Body")
Call rtitemB.AppendRTItem(rtitemA)

Immer das gleiche Ergebnis. Angehängte Bilder kommen mit, importierte Bilder nicht.

[Lloyd]

Hmm, ich hab noch ein wenig rumprobiert.
Ich habe mir dafür eine neue Maske erstellt und mit dem anfänglichen Script getestet, und siehe da hier geht es.

Also scheint es in meinem Script irgendeine Abhängigkeit zu geben. Dafür hole ich mal ein wenig mehr aus. Ich habe hier im Forum auch Beträge gefunden die von Problemen beim kopieren von RTF-Feldern zwischen Front-End und Backend berichten, daber nachstellen konnte ich das leider noch nicht. Das importierte Bild und alles was an Text davor steht wird abgeschnitte, alles was dahinter kommt wird kopiert.
Ich füge mal noch ein paar mehr Zeilen meines Quellcodes ein, vielleicht hat jemand noch eine Idee?

Set uidoc = ws.CurrentDocument
Set docA = uidoc.Document
Set doc = db.CreateDocument
...
Dim itemA As NotesItem
...
Set itemA = docA.GetFirstItem("Body")
Call itemA.CopyItemToDocument(doc,"Body")
...

Call doc.Save(True,False)
Call uidoc.Save(True,False)
Call uidoc.Close
Call ws.EditDocument(False,doc)

[Driri]

Ist das UIDoc ein neues, noch nicht gespeichertes Dokument ?

[Lloyd]

Nein, das UIDOC ist die eingegangene eMail mit ein paar Feldern die ich öffne. Ich öffne diese eMail und klicke dann auf die Schaltfläche um das Feld "Body"  mit samit Inhalt in einem neuen Dokument in der selben Datenkbank anzulegen.
Habe wieder etwas rausgefunden:
Beim Zugriff auf das Item (Set itemA = docA.GetFirstItem("Body")) fehlt schon das eingebettete Bild und alles was an Text davor steht. Also kann der Fehler nicht bei der Übergabe vom Frontend-Doc an das Backend-Doc passieren, sondern beim Zugriff auf das Frontend-Doc, was ich ja über Set docA = uidoc.Document ins Backend gelegt habe. Gibt es hier irgendwas zu beachten?

[Lloyd]

Ich habe eine Riecher in welche Richtung es geht - es muß sich keiner mehr damit beschäftigen. Ich poste die Lösung, sobald ich die Lösung 100%ig habe.

[Lloyd]

Ok, ich habs rausgefunden.
In meiner Memo-Maske war das Feld "Body" berechnet und als berechneter Wert stand 'Body' drin, so dass keinerlei Änderungen von Mitarbeitern am Ursprungstext der Mail möglich waren. Und genau das war der Grund. Mache ich aus dem berechneten Feld ein bearbeitbares Feld, dann funktioniert alles einwandfrei und man kann das RichTextItem inkl. aller Objekte die drin stecken kopieren. Warum man bei berechneten RichTextFelder nicht die eingebetteten Objekte kopieren kann weiß ich leider auch nicht.
Vielen Dank für alle Beiträge, die mich auf die richtige Spur gebracht haben.