![]() Right click on ThisOutlookSession and choose Insert > Module. If objRem.Caption = "Create new Blue folder" Then Private Sub olRemind_BeforeReminderShow(Cancel As Boolean) If Item.MessageClass "IPM.Appointment" Then ![]() Private Sub Application_Reminder(ByVal Item As Object) Private WithEvents olRemind As Outlook.Reminders The BeforeReminderShow macro dismisses the reminder in this occurrence. In ThisOutlookSession, create the application reminder rule to run the CreateFolderRule macro. ![]() Set appointment time and add a reminder that fires at 1 AM every Sunday (I'm using a 0 minute reminder.) If you use a different subject or category, you'll need to update the macro. Create an appointment with the subject "Create new Blue folder" and a color category called "Update Sky".
0 Comments
Leave a Reply. |