It seems I figured out what to do and it works here's the code for the entire class module:
Dim WithEvents m_colReminders As Outlook.Reminders
Dim m_intBusyStatus As Integer
Private Sub Class_Terminate()
Public Sub InitReminders(objApp As Outlook.Application)...
I guess Michael isn't around.
Anyway, Diane, I have a question for you... I pasted the code you suggested into my editor and then noticed that you put single quote marks at the beginning of 3 lines:
'Private Sub m_colReminders_ReminderFire(ByVal ReminderObject As Outlook.Reminder)
Thank you for the thoughtful reply. I won't be able to try it out until tomorrow sometime, but I do want to clarify...
Is still possible to trigger the command with ID, 5497... "Go To Today" in Outlook 2016?
I am not a VBA programmer. The following is the main sub of a project that I cobbled together for Outlook 2007 and was pleased to find it worked for Outlook 2010 a few years later. However, we are moving to Outlook 2016 now and I've found that it does not work as intended.
We have displays...