I seem to have achieved it like this:
Code:
Dim myMtg As Outlook.MeetingItem
If TypeOf Inspector.CurrentItem Is AppointmentItem Then
Set objAppointment = Inspector.CurrentItem
ElseIf TypeOf Inspector.CurrentItem Is MeetingItem Then
Set myMtg = Inspector.CurrentItem.GetAssocitedAppointment(False)
Set objAppointment = myMtg
End If
Mostly seems to be working. I am seeing weird behavior as follows:
- If I set an appointment to busy/tent/outofoffice it categorizes fine
- If I reply to a meeting request as "Accept" or "Tentative" then it categories fine
- If I open any appointment or meeting on my calendar and then change to busy/tent/outofoffice it re-categorizes fine
- If I right-click on any appointment or meeting on my calendar and then change the BusyStatus it re-categorizes fine
- But, if I then right-click on a different appointment or meeting and then change the BusyStatus it will NOT re-categorize...
- But then if I open one and change BusyStatus it will be fine....
- and if I then right-click it will do fine.
So, right-clicking a second one in a row will not work.