Outlook 2013 - Daily Reminder with Yes / No Message Box, Record Response

[acombest]

I have some experience with VBA but I am new to applying it to outlook.
I am curious how I would go about having a daily reminder that also pop up a message box with a yes, no response and then record that response on a excel document.

I am not entirely sure about what sub I should be using

Private Sub Application_Reminder(ByVal Item As Object)
End Sub

If anyone could give me an example or point me in the right direction about how to approach this I would be greatly appreciative.
Thanks,
-AJ

 

[John_w]

Yes, I think Application_Reminder (in the ThisOutlookSession module within the Outlook VBA editor) is the correct routine to handle reminders. A basic routine would be something like this:

Private Sub Application_Reminder(ByVal Item As Object)

    Dim outAppointment As Outlook.AppointmentItem
    Dim response As VbMsgBoxResult   
    
    If TypeOf Item Is Outlook.AppointmentItem Then
        Set outAppointment = Item
        response = MsgBox("Click response for reminder " & outAppointment.Body, vbYesNo)
    End If
    
End Sub

As you can see, it checks whether the Item which triggered the Application_Reminder event handler is an AppointmentItem (I don't know which other type of Item might trigger it) and then displays a message box asking for a Yes or No response.

The routine would then write the response to an Excel workbook - there should be example code on this forum which opens, writes to and saves an Excel workbook from Outlook.