Bild in RTF kopieren (Script)

    Hallo,


    mein akutes Problem ist folgendes:
    Ich habe ein Dokument in Datenbank A, welches RichTextFelder enthält.
    Ich habe einen Hotspot, der diverse Sachen per Script in dem Dokument macht.
    Eines dieser Dinge ist folgendes:
    Er soll mir aus einem Dokument in Datenbank B aus einem RTF dort den Inhalt (ein Bild) rausholen (bzw. kopieren) und in meinem aktuellen Dokument in ein RTF einfügen.
    Ich habe ein Handle auf das zweite Doc, selbstverständlich auch auf das erste, ich kann beide RTF ansprechen, aber er kopiert mir nichts.
    Ich habe es über CopyItemToDocument versucht, über AppendRTItem, nix funktioniert.
    Auch mit dem RTNavigator komme ich nicht weiter.


    Leider muss ich in dem Fall Backend und Frontend mischen. Der AW soll auf dem Dokument (in DB A) den Hotspot klicken (Frontend), aber aktualisiert werden muss das ganze im Backend.


    Weiss irgendjemand irgendeine Möglichkeit für mich? Ich bekomme zwar keine Fehler, aber es passiert auch nix, egal, ob mein RTF bearbeitbar oder berechnet ist. *seufz*


    Ich hoffe, das hat schon mal jemand hier nieder gekämpft, und freue mich auf Antworten (ja, ja, die Hoffnung stirbt zuletzt *gg*).


    Viele langsam verzweifelte Grüsse, :cry:
    Tina S.

    ich hoffe du kannst was damit anfanggen:I am trying to copy the contents of a RTF from one doc to another. it worked fine for the ***************************************************+
    aber beachte:never mind the problem was that the source RTF was computed, once I made it editable it worked fine
    *******************************************


    here is a segment of the code that I am using:
    Dim ws As New NotesUIWorkspace
    Dim s As New NotesSession


    Set uidoc = ws.CurrentDocument
    Set db = s.CurrentDatabase
    Set doc = uidoc.Document
    Set itemA = doc.GetFirstItem( "Body" )


    '****Create Fax doc
    Set fDoc = db.CreateDocument
    fDoc.Form = "iFax"
    fDoc.Status = "New"
    fDoc.Category = "Medical Review"
    fDoc.AreaCode = doc.AreaCode(0)
    fDoc.FaxNumber = doc.FaxNumber(0)
    fDoc.State = doc.State(0)
    fDoc.Subject = doc.Subject(0)
    fDoc.LeadSourceNumber = doc.LeadNumber(0)
    fDoc.DateRecieved = doc.DateRecieved(0)
    fDoc.TimeRecieved = doc.TimeRecieved(0)



    'Patient Info
    fDoc.MFNAME = doc.MFNAME(0)
    fDoc.MLNAME = doc.MLNAME(0)
    fDoc.MADD1 = doc.MADD1(0)
    fDoc.MADD2 = doc.MADD2(0)
    fDoc.MCITY = doc.MCITY(0)
    fDoc.MSTATE = doc.MSTATE(0)
    fDoc.MZIP = doc.MZIP(0)
    fDoc.MPHONE = doc.MPHONE(0)


    'Dr Info
    fDoc.I4CONM = doc.I4CONM(0)
    fDoc.I4INNM = doc.I4INNM(0)
    fDoc.I4ADD1 = doc.I4ADD1(0)
    fDoc.I4ADD2 = doc.I4ADD2(0)
    fDoc.I4CITY = doc.I4CITY(0)
    fDoc.I4ST = doc.I4ST(0)
    fDoc.I4ZIP = doc.I4ZIP(0)
    fDoc.I4PHN = doc.I4PHN(0)
    fDoc.I4FAX = doc.I4FAX(0)


    Call itemA.CopyItemToDocument( fDoc, "ifBody" )
    Call fDoc.MakeResponse( pDoc )
    Call fDoc.Save(True,False)


    All of Dims are in the Declarations section

    Guten Morgen,


    erst mal DANKE für die Antwort !! :):D


    Das werde ich heute mal ausprobieren.


    Und bzgl:

    Zitat

    aber beachte:never mind the problem was that the source RTF was computed, once I made it editable it worked fine


    -- mein Source RTF ist zwar schon editable, aber trotzdem vielen Dank für den Hinweis, hätte mir viel Zeit und Arbeit sparen können, wenn es computed gewesen wäre.


    Ich werde das Ergebnis hier bekanntgeben.


    Viele Grüsse,
    Tina S.