2 Methods to Set the Default End Date of Recurring Outlook Appointments

In Outlook, when you enable “Recurrence” for an appointment, by default, it will be set with no end date. If you would like to change it and set a default end date for recurring appointments, you can use the methods introduced in this article.

When you create a new appointment and click “Recurrence” button, in the popup “Appointment Recurrence” dialog box, you can see that “No end date” is selected by default, as shown in the following figure. If you dislike this and want to set a default end date, such as 90 days from the first occurrence, you can read on. Here we will teach you 2 approaches to realize it.

Method 1: Set by Changing Registry

1. To begin with, go to “Start Menu” and search “regedit”.
2. Then, click on the found “regedit” program.
3. Next, “User Account Control” dialog box will display, in which you need click “Yes”.
4. After getting into “Registry Editor” window, navigate to the path – ” HKEY_CURRENT_USER\Software\Microsoft\Office\<Outlookversion>\Outlook\Options\Calendar”
5. Later, right click the “Calendar” and choose “New” > “DWORD (32-bit) Value”.
6. Subsequently, name this new value as “RecurrencesDefault”.
7. Next, double click the value.
8. In the popup “Edit DWORD (32-bit) Value” dialog box, input a number in the “Value data” field. It refers to the count of days from today. For instance, if it’s “90”, Outlook will set the recurrence end date to 90 days from today.
9. Afterwards, click “OK” and exit Registry Editor properly.
10. Eventually, restart your Outlook and try to create a recurring appointment. Its end date will be set as per the “RecurrencesDefault” value.

Method 2: Set with Outlook VBA

1. For a start, trigger Outlook VBA editor by “Alt + F11”.
2. Then, put the following VBA code into “ThisOutlookSession” project.

Public WithEvents objInspectors As Outlook.Inspectors
Public WithEvents objAppointment As Outlook.AppointmentItem

Private Sub Application_Startup()
     Set objInspectors = Outlook.Application.Inspectors
End Sub

Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector)
    If TypeOf Inspector.CurrentItem Is AppointmentItem Then
       Set objAppointment = Inspector.CurrentItem
    End If
End Sub

Private Sub objAppointment_PropertyChange(ByVal Name As String)
    Dim objRecurrencePattern As Outlook.RecurrencePattern
 
    'Change enable "Recurrence"
    If Name = "IsRecurring" Then
       If objAppointment.IsRecurring = True Then
          Set objRecurrencePattern = objAppointment.GetRecurrencePattern
          'Change the end date to 30 days from the start date
          'Alter "30" as per your needs
          objRecurrencePattern.PatternEndDate = objRecurrencePattern.PatternStartDate + 30
       End If
    End If
End Sub

3. Lastly, click into the “Application_Startup” macro and press “F5”.
4. At present, you can create a new appointment.
5. Afterwards, click “Recurrence” button, modify the recurrence settings with keeping “No end date”, and click “OK”.
6. Later, you can re-click “Recurrence” to check. You will see that the end date has been changed as per your VBA code.

Fix Inaccessible Outlook PST File

Have you ever received any error messages involving “inaccessible PST file” in your Outlook? If you have, how did you deal with them? Maybe Scanpst occurred to your minds in the first place. However when you tried it to fix Outlook, it failed, too. In this scenario, your last resort is either experienced data recovery software like DataNumen Outlook Repair or specialized recovery service.

Author Introduction:

Shirley Zhang is a data recovery expert in DataNumen, Inc., which is the world leader in data recovery technologies, including sql fix and outlook repair software products. For more information visit www.datanumen.com