Option for Modal Appointment Reminders

[huvanile]

This could be achieved through a toggle button on the ribbon, which would execute this code if checked:

Private Sub Application_Reminder(ByVal item As Object)
'Purpose: Displays a modal reminder for upcoming appointments.
'Reason for existence: The default outlook reminder displays behind active window where it may be invisible to the user
'exeuctes when a reminder is displayed

    Dim i As AppointmentItem

    If TypeOf item Is AppointmentItem Then
        If item.AllDayEvent = False Then
            'display reminder if meeting date is today
            If FormatDateTime(Now, vbShortDate) = FormatDateTime(item.Start, vbShortDate) Then
                MsgBox item.Subject & " @ " & FormatDateTime(item.Start, vbShortTime) & vbLf & vbLf & "Time now: " & FormatDateTime(Now, vbShortTime), _
                    vbSystemModal + vbInformation, "Meeting Reminder!"
            End If
        End If
    End If


End Sub