修改收件人时MailItem_PropertyChange事件触发三次如何解决？

这是Outlook对象模型的固有行为：To、CC、BCC三个属性底层都绑定到同一套收件人集合，修改任意一个收件人相关字段时，Outlook会内部同步更新另外两个属性的显示值，因此会连续三次触发PropertyChange事件，分别返回To、CC、BCC的属性名，属于正常的底层同步逻辑，不是代码bug。

不要仅通过事件返回的属性名判断是否触发逻辑，额外缓存上一次的To字段值，每次触发事件时对比当前值与缓存值，只有值发生真实变更时才执行业务逻辑，同时新增事件锁防止修改邮件内容时递归触发事件。

完整实现代码如下：

' 模块级变量，缓存上一次的To属性值
Dim lastToValue As String
' 事件锁，避免修改邮件内容时递归触发事件
Dim isProcessing As Boolean

Private Sub objMail_PropertyChange(ByVal Name As String)
    ' 正在处理业务逻辑时直接跳过，防止递归
    If isProcessing Then Exit Sub
    ' 非收件人相关属性变更直接跳过，减少不必要的校验
    If Name <> "To" And Name <> "CC" And Name <> "BCC" Then Exit Sub
    
    ' 只有To的实际值和缓存值不一致时，才执行业务逻辑
    If objMail.To <> lastToValue Then
        isProcessing = True
        ' 你的原有业务逻辑
        objMail.HTMLBody = "Hallo Zusammen" & objMail.HTMLBody
        ' 更新缓存值为当前最新的To值
        lastToValue = objMail.To
        isProcessing = False
    End If
End Sub

补充注意事项 #

• 如果需要处理新建邮件场景，建议在邮件初始化阶段（比如NewInspector事件触发时）给lastToValue赋初始值为当前邮件的To属性值，避免第一次触发事件时误判
• 如果业务场景允许，也可以加入100ms左右的延迟逻辑，等三次事件全部触发完成后再做一次值校验，进一步降低误判概率

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