Lotus Notes文档级全局错误处理实现方案问询

嘿，我很熟悉Lotus Notes（现在叫HCL Notes）里的LotusScript开发，针对你的问题，我得先说明：LotusScript本身并不支持单个NotesDocument级别的全局错误捕获，但我们有几种非常实用的方法来实现错误处理的标准化和集中化，彻底解决你现在重复代码、版本不一致的问题。

1. 封装通用错误处理函数（最直接的方案） #

咱们可以把所有重复的错误处理逻辑抽成一个公共函数，放到共享的Script Library里，然后每个函数/子程序里只需要调用这个函数就行，不用再写重复的ErrorHandler代码。

步骤： #

• 首先创建一个Script Library（比如叫GlobalErrorHandlers），里面写通用的错误处理函数：

Sub HandleError(errNum As Integer, errLine As Integer, sourceFunc As String, optional doc As NotesDocument)
    ' 这里写你标准化的错误逻辑：比如记录日志、弹出提示、清理资源等
    Dim errMsg As String
    errMsg = "错误发生在函数: " & sourceFunc & Chr(10) & _
             "错误号: " & Cstr(errNum) & Chr(10) & _
             "错误描述: " & Error$(errNum) & Chr(10) & _
             "错误行号: " & Cstr(errLine)
    
    ' 示例：弹出错误提示
    MsgBox errMsg, MB_EXCLAMATION, "应用错误"
    
    ' 如果需要记录到文档日志（可选）
    If Not(doc Is Nothing) Then
        doc.LogError = errMsg
        Call doc.Save(True, False)
    End If
    
    ' 这里可以根据需要添加更多统一逻辑：比如发送邮件通知、写入服务器日志等
End Sub

• 然后在每个需要错误处理的函数里，只需要保留极简的错误分支：

Sub MyDocumentOperation(doc As NotesDocument)
    On Error Goto ErrorHandler
    
    ' 你的业务逻辑代码...
    Call doc.ReplaceItemValue("Status", "Processed")
    ' ...

ExitSub:
    Exit Sub
ErrorHandler:
    ' 调用通用错误处理函数，传入必要的上下文
    Call HandleError(Err, Erl, "MyDocumentOperation", doc)
    Resume ExitSub
End Sub

这样一来，所有错误处理的逻辑都集中在HandleError函数里，以后要更新只需要改这个函数，所有引用的地方都会同步，完美解决你之前部分ErrorHandler没更新的问题。

2. 用类模块封装更灵活的错误处理 #

如果你的错误处理需要更复杂的上下文管理（比如跟踪当前操作的用户、文档状态），可以创建一个错误处理类，把错误处理的行为封装成对象：

示例类代码（放在Script Library里）： #

Class ErrorHandler
    Private m_source As String
    Private m_doc As NotesDocument
    
    Sub New(source As String, optional doc As NotesDocument)
        m_source = source
        Set m_doc = doc
    End Sub
    
    Sub Handle(errNum As Integer, errLine As Integer)
        Dim errMsg As String
        errMsg = "操作[" & m_source & "]出错: " & Chr(10) & _
                 "错误号: " & Cstr(errNum) & Chr(10) & _
                 "描述: " & Error$(errNum)
        
        ' 统一的错误处理逻辑
        MsgBox errMsg, MB_EXCLAMATION, "应用提示"
        
        ' 可选：记录到文档
        If Not(m_doc Is Nothing) Then
            Call m_doc.AppendItemValue("ErrorLog", Now() & ": " & errMsg)
            Call m_doc.Save(True, False)
        End If
    End Sub
End Class

在文档的代码里使用： #

Sub ApproveDocument(doc As NotesDocument)
    On Error Goto ErrorHandler
    Dim errHandler As New ErrorHandler("ApproveDocument", doc)
    
    ' 业务逻辑...
    Call doc.ReplaceItemValue("ApprovalStatus", "Approved")
    ' ...

ExitSub:
    Set errHandler = Nothing
    Exit Sub
ErrorHandler:
    Call errHandler.Handle(Err, Erl)
    Resume ExitSub
End Sub

这种方式的好处是可以根据不同的操作场景初始化不同的错误处理实例，保留更丰富的上下文信息。

3. 关键注意事项 #

• Script Library的引用：确保所有需要错误处理的表单、文档脚本都引用了你的错误处理库，这样才能调用公共函数/类。
• 上下文信息收集：尽量把当前的文档、操作名称、用户信息等传给错误处理函数，方便后续排查问题。
• 资源清理：在错误处理后，记得清理可能占用的资源（比如打开的NotesDatabase、NotesDocument对象），避免内存泄漏。

虽然LotusScript没有真正意义上的全局错误捕获，但通过上面的方法，完全可以实现错误处理的标准化和集中化，让你不用再维护重复的代码，也能统一所有模块的错误行为。

内容的提问来源于stack exchange，提问作者Sidney