Dokumente in eine neue DB übernehmen

    hallo,


    ich möchte von einer alten DB dokumente in eine neue DB übernehmen. die felder und das form sind unterschiedlich. habe das versucht mit einem script zu lösen was auch geht, bis auf ein "rich text" feld in dem "print screens" drin sind. diese werden leider nicht übernommen. kann mir jemand sagen wie ich ein "rich text" feld "umbenennen" kann damit der ganze inhalt mitkommt ?
    das feld: CHLOG_body enthält die "print screens"


    hier das script:


    Sub Initialize

    Dim Database As NotesDatabase
    Dim DocumentCollection As NotesDocumentCollection
    Dim Document As NotesDocument

    Dim Session As New NotesSession

    ' Get all unprocessed (selected) documents

    Set Database = Session.CurrentDatabase
    Set DocumentCollection = Database.UnprocessedDocuments
    Set Document = DocumentCollection.GetFirstDocument()

    While Not(Document Is Nothing)

    Call Document.ReplaceItemValue("Form", "CM")
    Call Document.ReplaceItemValue("CMErsteller", Document.CHLOG_creator(0))
    Call Document.RemoveItem("CHLOG_creator")
    Call Document.ReplaceItemValue("CMDatum", Document.CHLOG_date(0))
    Call Document.RemoveItem("CHLOG_date")
    Call Document.ReplaceItemValue("CMSystem", Document.CHLOG_system(0))
    Call Document.RemoveItem("CHLOG_system")
    Call Document.ReplaceItemValue("CMText", Document.GetitemValue("CHLOG_body")(0))
    Call Document.RemoveItem("CHLOG_body")
    Call Document.RemoveItem("CHLOG_offlinetime")

    ' Refresh all form fields and save the document

    Call Document.ComputeWithForm(False, False)
    Call Document.Save(True, False)

    ' Get next unprocessed document

    Set Document = DocumentCollection.GetNextDocument(Document)

    Wend

    End Sub


    gruss und danke
    Björn

    Es funktioniert mit COPYALLITEMS.


    Danach gehst du die items der Kopie durch und wirfst alles raus, was diu nicht mehr brauchst bzw. benennst es um.