Private Sub Application_Reminder(ByVal Item As Object)
If TypeOf Item Is AppointmentItem Then
MsgBox "Appointment ", vbSystemModal, "Outlook Macro"
While you are working at other applications or websites and minimize the Outlook window, you maybe miss some reminders in Outlook. So how to make the Outlook reminders pop up always on the top of screen while using computer for dismissing any reminders? In this article, I introduce a VBA code to handle it.
1. Press Alt + F11 keys to open Microsoft Visual Basic for Applications window.
2. Double click at ThisOutlookSession from the Project1 pane, copy and paste below code to the script.
VBA: Reminders pop up on top
Private Sub Application_Reminder(ByVal Item As Object) 'UpdatebyExtendoffice20180418 Dim xAppointment As AppointmentItem If Item.Class = olAppointment Then Set xAppointment = Item MsgBox xAppointment.Subject, 4096 + vbInformation + vbOKOnly, "Kutools for Outlook" End If End Sub
3. Save and close the Microsoft Visual Basic for Applications window.
Now even if the Outlook is minimized, the reminders will pop up on the top of the screen while you are working at other applications.