Hallo an alle!
ich habe ein LotusScript Problem mit der NotesRichTextItem.AppendRTItem Funktion, wenn ich den Body eines Mail Dokuments in ein anderes NotesRichTextItem kopieren möchte.
Im Normalfall funktioniert das aber nun habe ich einen Fall, wo eine eingebettetes OLE Objekt im Body enthalten ist, welches scheinbar nicht mehr vollständig ist. Man kann es sehen aber es hat keine Eigenschaften.
Wenn ich das Objekt aus dem Mailtext lösche, gibt es keine Probleme, da ich aber die Originalmail nicht verändern darf, ist das keine Option
Wie komme ich an den RTF-Text ran, wenn genannte Funktion mit einem Fehler abbricht.
[4005 - Note item not found (Body) ]
Hier ein Stück code:
------------
Set rtitem = doc.GetFirstItem("Body")
Dim db As NotesDatabase
Set db =session.CurrentDatabase
Dim newDoc As NotesDocument
Set newDoc = New NotesDocument(db)
newDoc.Form = "MimeConvert"
Set rtitem2 = New NotesRichTextItem(newDoc, "MimeRichTextField")
Call rtitem2.AppendRTItem(rtitem) <<<< Fehler 4005
Call newDoc.Save(True, True)
--------------
Form und Item sind übrigens von uns - wir brauchen die zur Umwandlung in HTML.
Ich hänge jetzt schon einige Zeit an diesem Problem, daher ist jeder Hinweis willkommen.
Danke schon mal im Voraus.
Falko