Set stream = session.CreateStream
stream.WriteText {<database
xmlns='http://www.lotus.com/dxl'
version='6'
advancedtemplate = '} + Cstr(currentDoc.GetItemValue("isAdvancedTemplate")(0)) + {'
copyprofiledocswithdesign = '} + Cstr(currentDoc.GetItemValue("copyProfileDocuments")(0)) + {'
singlecopytemplate = '} + Cstr(currentDoc.GetItemValue("singleCopyTemplate")(0)) + {'
title = '} + Cstr(currentDoc.GetItemValue("databaseTitle")(0)) + {'
templatename='} + Replace(newFileName,".ntf","")+ {'
fromtemplate=''>
</database>}
Set mp = session.CreateDXLImporter(stream, dbTemplate) ' Nun wird der Stream geschrieben
With mp
.ReplaceDbProperties = True
.Process
End With
Hmmm warum setzt er die Eigenschaften für meine DB nicht. habe auch schon versucht einfach True und False hard reinzucoden , aber auch das wollter er nicht aktzeptieren.