Заменить имя шаблона без Notesapi

Оказываеться название базы, мастер шаблон и шаблон наследования для каждой базы находиться в документе иконки базы ( который имеет постоянный ID ) в поле $Title

Ниже приведён формат в котором должна содержиться инфформация в поле $Title:

Database_Title + CHR(10) + "#1" + Master_Template_Name + CHR(10) + "#2" + Design_Template_Name

так что, всё что необходимо: взять документ иконки и изменить в нём одно поле.

curTitle = db.Title & Chr$(10) & "#2" & TemplateName
Set iconDoc = db.GetDocumentByID("FFFF0010")
Call iconDoc.ReplaceItemValue("$Title",curTitle)
Call iconDoc.Save(True,True)

вот и всё. Для базы db мы заменили шаблон из которого будет идти наследование дизайна( указатель #2 ) .



Источник тут

 

В версии 8.х работает так

db.Title = Title & Chr$(10) & "#2" & designTemplate