The easiest way to handle events in Outlook VBA code is to use the
ThisOutlookSession class module, which is always in scope.

To get events on an appointment you need to handle first NewInspector() to
instantiate an event handling item and then handle events on the item.

In ThisOutlookSession, at the class level:

Dim WithEvents colInsp As Outlook.Inspectors
Dim WithEvents oAppt As Outlook.AppointmentItem

Private Sub Application_Startup()
Set colInsp = Application.Inspectors
End Sub

Private Sub colInspectors_NewInspector(Inspector As Inspector)
If Inspector.CurrentItem.Class = olAppointment Then
Set oAppt = Inspector.CurrentItem
End If
End Sub

That will instantiate the appointment object as an event handling object and
you then can handle the Close() and Write() events on the item.


"Jan T." <noreply> wrote in message
news:OK2dnXJt0NUAd63RnZ2dnUVZ_uwAAAAA@posted.comnet...