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()
Call DeRefReminders
End Sub
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)
'On Error...
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...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.