If you want to run the macro on selected appointments you need to remove the startup macro and change the itemadd macro to run on demand.įor Each Item In ActiveExplorer.Selection Run the Macro Manually on Selected Appointments If Appt.AllDayEvent = True And Appt.BusyStatus = olFree Then Note: when you are creating the All Day Event, the Free/Busy status will be Free. This macro sets Free/Busy status to Busy when a new All Day Event is added to the calendar. When only the time is entered, it applies to that time, any date. To set longer reminders for appointments that occur at certain times of the day, you need to check the start time. Set longer reminders for the first appointment after lunch If Right(Appt.Subject, 8) = "Birthday" Then This will set a reminder for 7.5 days on all birthdays, including those created when you add new contacts to Outlook and enter a birth date.
#Outlook 2016 reminders not clearing code#
To set a reminder more than 18 hours before for Birthdays, remove the msgbox block and replace the appt.reminderset code with the following. You can check more characters by changing the number and phrase in Left(Appt.Subject, 1) = "!".įor example, an all day event with the subject !Training Classes would keep the 18 hour reminder, while Working downtown would not have a reminder. This sample checks the first character for a ! and if found, the reminder is left on.
To leave the reminder for appointments beginning with a specific keyword or character, replace the If Msgbox. This sample sets the reminder to 6 hours before the start, or 6PM.
End If block and replace the Appt.Reminderset block with the following lines. To change the default reminder from 18 hours to another value, remove the If Msgbox. If Appt.ReminderMinutesBeforeStart = 1080 Then End If block and replace the Appt.Reminderset block with the following code. Would you prefer removing all 18 hour reminders but want to keep reminders if you select a different reminder time? Remove the If Msgbox. To get you started, I've included some ideas below. It applies to all new appointment items, including those created by Outlook when you enter a contact's birthday. This code sample has a lot of potential - you can use it to change almost any field in appointments and events (timed appointments or all day events). If MsgBox("Do you want to remove the reminder?", vbYesNo) = vbNo Then If Appt.AllDayEvent = True And Appt.ReminderSet = True Then 'Checks to see if all day and if it has a reminder set to true If TypeOf Item Is Outlook.AppointmentItem Then Private Sub Items_ItemAdd(ByVal Item As Object) Remove Reminders on All Day Events | Remove Default 18 Hour Reminders |
Paste one of the ItemAdd macros below into ThisOutlookSession, just after the End Sub of the Application_StartUp macro above. Set Items = Ns.GetDefaultFolder(olFolderCalendar).Items Set Ns = Application.GetNamespace("MAPI") Private WithEvents Items As Outlook.Items Repeat this step after making modifications to the code. To test this macro without closing and restarting Outlook, click in the Application_Startup sub and click the Run button on the toolbar. Expand the Project to display ThisOutlookSession and paste the following code into the editor. To use these ItemAdd macros on this page, you need to add this code to the top of ThisOutlookSession: While the tweaks here work with reminders, it can be tweaked to do almost anything when a new appointment or event is saved.
When it finds one, it checks to see if it's an All Day Event, and if so, you are asked if you want to keep the reminder. This macro runs when Outlook starts and watches for new appointment items to be saved.
0 kommentar(er)
