I am using 32-bit Outlook 2013. I am trying to modify properties of an existing, selected calendar item in an additional Exchange account in the profile (MultiEx). The code works against appointment items in the primary, i.e., first added, account in the profile. Additionally, it works against shared calendars that are open in the profile. It does not, however, work against selected appointment items in the calendar of the additional Exchange account.
Sub SetAvailandReminder()
Dim oAppt As Outlook.AppointmentItem
Set oAppt = Application.ActiveExplorer.Selection.Item(1)
oAppt.ReminderSet = False
oAppt.BusyStatus = olFree
oAppt.Save
End Sub
I don't get any error, just that the changes are not saved and reflected. I am able to display a MsgBox and output any of the properties of the item, so the selection object is correctly bound to the appointment item. I can't figure out why the same code works against the primary calendar and shared calendars, but not the multi-Ex account, even though it is correctly reading the appointment's properties.
Scott
Sub SetAvailandReminder()
Dim oAppt As Outlook.AppointmentItem
Set oAppt = Application.ActiveExplorer.Selection.Item(1)
oAppt.ReminderSet = False
oAppt.BusyStatus = olFree
oAppt.Save
End Sub
I don't get any error, just that the changes are not saved and reflected. I am able to display a MsgBox and output any of the properties of the item, so the selection object is correctly bound to the appointment item. I can't figure out why the same code works against the primary calendar and shared calendars, but not the multi-Ex account, even though it is correctly reading the appointment's properties.
Scott