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