VSTO：缓存交换模式 VS LastModificationTime

Question

我正在开发一个 VSTO Outlook 加载项，它依赖于 Outlook 约会的 LastModificationTime 属性。问题是当缓存交换模式打开时，每次关闭 Outlook 时 LastModificationTime 属性都会自动更新。是否有可能的解决方案可以用来获取用户更改约会时的日期和时间，而不是缓存交换模式更改约会时的日期和时间？

看到没有很多回复，我想更详细地描述我的问题 - 这就是发生的情况：

1. 我更改了一个项目（异常行为仅发生在我更改的项目上）
2. LastModificationTime 更改为我的时间已保存该项目（我使用 OutlookSpy 看到了更改）。 （例如，LastModificationTime 3:30:00 PM）
3. 我工作到下午 4:00:00 PM 并检查 LastModificationTime，它仍然显示 3:30:00 PM
4. 我关闭 Outlook
5. 我打开 Outlook 并检查 LastModificationTime。现在，LastModificationTime 显示 3:30:42，而不是 3:30:00。 为什么我重新打开 Outlook 后又多了 42 秒？

感谢您给我的任何建议。

Answer 1

我找到了解决问题的两种解决方法，#1 对我来说不可接受，#2 我实际使用过：

解决方案 #1：使用注册表项在加载项关闭时禁用 Exchange 服务器，并在加载项启动时重新启用它。下面是示例代码：

    Private Sub ThisAddIn_Startup(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Startup
    Try
        Dim regTopKey As String = "HKEY_CURRENT_USER"
        Dim regPath As String = "\Software\Microsoft\Windows NT\CurrentVersion\Windows Messaging Subsystem\Profiles\Outlook\13dbb0c8aa05101a9bb000aa002fc45a"
        Dim oldValue As Byte() = Registry.GetValue(regTopKey & regPath, "00036601_Backup", Nothing)
        If oldValue IsNot Nothing Then
            Registry.SetValue(regTopKey & regPath, "00036601", oldValue, RegistryValueKind.Binary)
        End If
    Catch
    End Try
End Sub

Private Sub ThisAddIn_Shutdown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shutdown
    Try
        Dim disableExchangeMode As Byte() = {4, 0, 0, 0}
        Dim regTopKey As String = "HKEY_CURRENT_USER"
        Dim regPath As String = "\Software\Microsoft\Windows NT\CurrentVersion\Windows Messaging Subsystem\Profiles\Outlook\13dbb0c8aa05101a9bb000aa002fc45a"
        Dim currentValue As Byte() = Registry.GetValue(regTopKey & regPath, "00036601", Nothing)
        If currentValue IsNot Nothing Then
            Registry.SetValue(regTopKey & regPath, "00036601_Backup", currentValue, RegistryValueKind.Binary)
        End If
        Registry.SetValue(regTopKey & regPath, "00036601", disableExchangeMode, RegistryValueKind.Binary)
    Catch
    End Try
End Sub

解决方案 #2：检测用户何时更改约会项目并将更改保存在用户定义的属性字段中。以下是示例代码：

Private Sub appointmentSave(ByVal Item As Object) Handles _m_olAppointment.ItemChange, _m_olAppointment.ItemAdd
    Try
        Dim dateNow As Date = Date.Now
        If TypeOf Item Is Outlook.AppointmentItem Then
            If (dateNow - _lastFolderSwitch).TotalMilliseconds > 500 Then
                _lastFolderSwitch = dateNow
                Dim appointmentItem As Outlook.AppointmentItem = CType(Item, Outlook.AppointmentItem)
                If (dateNow - appointmentItem.LastModificationTime).TotalMilliseconds < 100 Then
                    Dim lastModifiedDate As Outlook.UserProperty = appointmentItem.UserProperties.Add("lastModifiedDate", Microsoft.Office.Interop.Outlook.OlUserPropertyType.olText, True)
                    lastModifiedDate.Value = dateNow.ToString
                    appointmentItem.Save()
                End If
            End If
        End If
    Catch ex As Exception
        MsgBox(ex.ToString)
    End Try
End Sub

谢谢大家的帮助