以编程方式删除 Lotus Notes 设计元素继承

Question

作为创建基本修订控制系统的一部分，我想以编程方式禁用 Lotus Notes 模板上的设计元素级别继承。 到目前为止，我已尝试以下操作：

• DXL 导出 (ForceNoteFormat=true) + XSLT。 由于导入器中字段（！）上的验证问题而失败。
• DXL 导出 (ForceNoteFormat=false) + XSLT。 似乎可行，但我不想将 DXL 解决方案用于这种通用的情况。

我想探索的一个领域：

• 循环所有（设计）注释，删除$Class项目。

有人对如何做到这一点或其他方法有建议吗这会消除继承吗？

Answer 1

下面的子代码似乎有效，它从 7.0.3 客户端可以生成的任何设计元素中删除了该标志。 我从 Ian's 得到了关于 NotesNoteCollection 的线索关于同一主题的博客条目：

Private Sub clearDesignInheritance(db As notesdatabase)
    On Error Goto errorthrower

    Dim nc As NotesNoteCollection
    Set nc = db.CreateNoteCollection(True) ' Select all note types...
    nc.SelectDocuments=False ' ...except data documents.

    Call nc.BuildCollection

    Dim noteid As String
    noteid = nc.GetFirstNoteId

    Dim doc As notesdocument

    Do Until noteid=""
        Set doc = db.GetDocumentByID(noteid)
        If doc.HasItem("$Class") Then
            Call doc.RemoveItem("$Class")
            Call doc.save(False,False,False)
        End If
        noteid = nc.GetNextNoteId(noteid)
    Loop

    Exit Sub
ErrorThrower:
    Error Err, Error & Chr(13) + "Module: " & Cstr( Getthreadinfo(1) ) & ", Line: " & Cstr( Erl )
End Sub