![]() Body = "This Appointment reminder fires in 5" Set objAppointment = Application.CreateItem(olAppointmentItem) ' Using a 1 min reminder so 6 = reminder fires at 5 min. If objRem.Caption = "This Appointment reminder fires in 5" ThenÄim objAppointment As Outlook.AppointmentItem Private Sub olRemind_BeforeReminderShow(Cancel As Boolean) ' Create another appt to repeat the process If Item.MessageClass "IPM.Appointment" Then Private Sub Application_Reminder(ByVal Item As Object) Private WithEvents olRemind As Outlook.Reminders ' The Private subs go in ThisOutlookSession Other "reminder macros" are at " Open a Webpage when a Task Reminder Fires" and " Send an Email When a Reminder Fires" If you need to rerun the process kicked off by the reminder, run CreateAppointment macro from the VBA editor at any time.
0 Comments
Leave a Reply. |