How to Auto Set the Reminders of Weekend Appointments on Previous Friday in Outlook

Many users hope that Outlook can reminds them of the appointments, which are scheduled on weekends, on previous Friday. Now, this article will share a method to achieve it.

By default, the reminders for Outlook appointments are usually set to 15 minutes before the appointments. In this situation, if any appointments are scheduled on weekends, the reminder will alert you on weekends. However, as the time is out of your working hours, most of time, you may not see this reminder in time. Thus, some users hope to set the reminder of such appointments on previous Friday. Here we’ll share a way that can auto set the reminder of weekend appointments on the former Friday.

Auto Set the Reminders of Weekend Appointments on Previous Friday

1. At the very outset, you should launch your Outlook application.
2. Then, in the Outlook main screen, you need to press “Alt + F11” key buttons.
3. Next you’ll get access to the Outlook VBA editor window, in which you ought to find and open the “ThisOutlookSession” project.
4. Subsequently, you would be required to copy and paste the following VBA code into this project window.

Public WithEvents objAppointments As Outlook.Items

Private Sub Application_Startup()
    Set objAppointments = Application.Session.GetDefaultFolder(olFolderCalendar).Items
End Sub

Private Sub objAppointments_ItemAdd(ByVal Item As Object)
    Call SetReminderonFriday(Item)
End Sub

Private Sub objAppointments_ItemChange(ByVal Item As Object)
    Call SetReminderonFriday(Item)
End Sub

Sub SetReminderonFriday(ByVal objItem As Object)
    Dim objAppointment As Outlook.AppointmentItem
    Dim dStartDate As Date
 
    If TypeName(objItem) = "AppointmentItem" Then
       Set objAppointment = objItem
       dStartDate = Format(objAppointment.Start, "Short Date")
 
       Select Case Weekday(dStartDate)
              'If the appointment is scheduled on Saturday
              Case 7
                   objAppointment.ReminderSet = True
                   objAppointment.ReminderMinutesBeforeStart = 60 * 24
              'If the appointment is scheduled on Sunday
              Case 1
                   objAppointment.ReminderSet = True
                  objAppointment.ReminderMinutesBeforeStart = (60 * 24) * 2
       End Select
 
       objAppointment.Save
    End If
End Sub

5. Later, you should sign this code. Click on “Tools” in toolbar and select “Digital Signature” option from the drop down list. In the new dialog box, just follow its onscreen instructions.
6. After that, you can exit the window and change your Outlook macro settings to enable signed macros.
7. Finally, since then, the reminders of the appointments, which are scheduled on weekends, will be automatically set on previous Friday.

Salvage Your Outlook Data after Crashes

Many users long for a mighty means to predict Outlook errors and crashes. But, in reality, it is impossible to some extent. Outlook can get corrupted just in a flash. Therefore, even though you take various precautions, sometimes, you still cannot keep far away from Outlook data disasters. Under this circumstance, you’d better prepare an experienced and well-known Outlook fix utility, such as DataNumen Outlook Repair. It can come to your rescue and extract maximum Outlook data no matter how seriously your PST is damaged.

Author Introduction:

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