ある予定表から別の予定表に予定の項目を同期したいと考えています。特定の UserProperty に基づいて予定を更新する ItemChange ハンドラーを実装しました。予定を削除すると ItemRemove イベントが発生し、そこで他のカレンダーで削除を処理できると思いましたが、実際には、ItemChange イベントが最初に発生します。
ItemChange ハンドラでこのケースを無視できるように、渡されたアイテムが削除されたかどうかを確認するにはどうすればよいですか? Null、Nothing、または Empty をチェックしようとしましたが、Item オブジェクトは Appointment であり、ほとんどのプロパティ (EntryId、UserProperies など) がエラーになります。
ここに私の質問を理解するのに役立ついくつかの簡略化されたコードがあります
Private Sub newCal_ItemChange(ByVal Item As Object)
Dim appointment As Outlook.appointmentItem
Set appointment = Item
If (appointment <> deleted) Then
' update other calendars
Else
' do nothing and proceed with ItemRemove Event
End If
End Sub