vba - 如何在VBA中同时单击和拖动约会对象时捕获Appt_Write事件

Question

我正在 try catch 日历约会对象上的 appt_Write 事件。下面的代码适用于所有情况，除非用户选择约会并单击一次拖动它。

有没有更好的方法来设置 appt 对象，以便我可以为任何日历上的任何约会捕获 appt_Write 事件？

Private WithEvents objExplorer As Outlook.Explorer
Private WithEvents appt As Outlook.AppointmentItem

Public Sub Application_Startup()
Set objExplorer = Application.ActiveExplorer
End Sub

Private Sub objExplorer_SelectionChange()
 If objExplorer.CurrentFolder.DefaultItemType = olAppointmentItem Then
    If objExplorer.Selection.Count > 0 Then
      Set appt = objExplorer.Selection(1)
    End If
  End If
End Sub


Private Sub appt_Write(Cancel As Boolean)
'Do something with Appt Object here.  When a user clicks and drags,
'this write event has already fired by the time the Appt object is set.
End If
End Sub

Answer 1

您可以尝试在文件夹上使用 Items.ItemChange 事件，但它只会在项目更改后触发。