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.
Save or Export Multiple emails to other fomat files(PDF/HTML/WORD/EXCEL) in Outlook
|Sometimes, you may want to save or export the emails to a folder as other format files, such as PDF, Word or Excel files in Outlook. In Outlook, neither of the Save as and Export function can handle this job. However, Kutools for Outlook's Save as file utility can export multiple emails to a folder as files with multiple formats at once time . Click for 45 days free trial!|
|Kutools for Outlook: with dozens of handy Outlook add-ins, free to try with no limitation in 45 days.|
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.