Cómo eliminar rápidamente los recordatorios de las ocurrencias de fin de semana de una cita de Outlook recurrente

Después de programar una cita periódica en su calendario de Outlook, si desea eliminar los recordatorios de las ocurrencias que caen los fines de semana, puede utilizar el método presentado en este artículo.

¿Tiene citas recurrentes en su calendario de Outlook? Por ejemplo, ha programado una cita recurrente cada 4 días. En este caso, algunas ocurrencias de esta cita caerían en fines de semana. En este punto, los recordatorios de estas ocurrencias de fin de semana pueden ser inútiles para ti. Por lo tanto, le gustaría eliminar sus recordatorios. Centrándonos en este requisito, aquí presentaremos una forma efectiva y conveniente.

Eliminar los recordatorios para las ocurrencias de fin de semana de una cita periódica

1. Desde el principio, inicie la aplicación Outlook.
2. Luego, diríjase al editor de Outlook VBA a través de las teclas "Alt + F11".
3. Luego, coloque el siguiente código VBA en un proyecto o módulo.

Sub RemoveRemindersOfWeekendOccurrencesOfRecurringAppointments()
    Dim objAppointment As Outlook.AppointmentItem
    Dim objCalendar As Outlook.Folder
    Dim objCalendarItems As Outlook.Items
    Dim objRecurrencePattern As RecurrencePattern
    Dim dStartDate, dEndDate As Date
    Dim dCurrentDate, dActualTime As Date
    Dim strFilter As String
    Dim objFoundAppointment As Outlook.AppointmentItem
    Dim objOccurrence As Outlook.AppointmentItem
   
    Set objAppointment = Application.ActiveExplorer.Selection.Item(1)
 
    Set objCalendar = Application.Session.GetDefaultFolder(olFolderCalendar)
    Set objCalendarItems = objCalendar.Items
    objCalendarItems.Sort "[Start]", False
    objCalendarItems.IncludeRecurrences = True
 
    Set objRecurrencePattern = objAppointment.GetRecurrencePattern
    dStartDate = Format(objRecurrencePattern.PatternStartDate, "MM/DD/YYYY")
    dEndDate = Format(objRecurrencePattern.PatternEndDate, "MM/DD/YYYY")
   
    dCurrentDate = dStartDate
    Do Until dCurrentDate >= dEndDate
       If Weekday(dCurrentDate) = vbSaturday Or Weekday(dCurrentDate) = vbSunday Then
          dActualTime = dCurrentDate & " " & objRecurrencePattern.StartTime
          dActualTime = Format(dActualTime, "ddddd hh:mm:ss AMPM")
 
          strFilter = "[Start] <= " & Chr(34) & dCurrentDate & " 11:59 PM" & Chr(34) & " AND [End] > " & Chr(34) & dCurrentDate & " 00:00 AM" & Chr(34) & " AND [Subject] = " & Chr(34) & objAppointment.Subject & Chr(34)
          Set objFoundAppointment = objCalendarItems.Find(strFilter)
 
          If Not objFoundAppointment Is Nothing Then
             'Get the occurrence on weekends
             Set objOccurrence = objRecurrencePattern.GetOccurrence(dActualTime)
 
             'Remove the reminders
             With objOccurrence
                 .Subject = "(C)" & objAppointment.Subject
                 .ReminderSet = False
                 .Save
             End With
           End If
       End If
       dCurrentDate = DateAdd("d", 1, dCurrentDate)
    Loop
End Sub

4. Después de eso, puede cerrar la ventana.
5. Posteriormente, siga los pasos que se muestran en el artículo “Cómo ejecutar código VBA en su Outlook”Para agregar esta macro a la barra de herramientas de acceso rápido.
6. Eventualmente, ejecute esta macro ahora.

• En primer lugar, seleccione una aparición de la cita periódica.
• A continuación, haga clic en el botón de macro en la barra de herramientas de acceso rápido.
• Una vez completada la macro, se eliminarán los recordatorios de las ocurrencias programadas para los fines de semana. Además, los temas se cambiarán en función del código, como en la siguiente captura de pantalla:

Proteja Outlook de la corrupción

Al igual que otros archivos comunes, como documentos de Word, hojas de cálculo de Excel, el archivo de datos de Outlook es vulnerable. Por lo tanto, debe tomar algunas precauciones poderosas para reducir las posibilidades de corrupción de Outlook. Por ejemplo, debe persistir en una copia de seguridad de datos PST regular. Además, para evitar la pérdida de datos, debemos tener una herramienta de reparación de Outlook cerca, como DataNumen Outlook Repair. Es capaz de reparar Outlook problemas con facilidad sin esfuerzo.

Introducción del autor:

Shirley Zhang es experta en recuperación de datos en DataNumen, Inc., que es el líder mundial en tecnologías de recuperación de datos, incluyendo corrupción sql y productos de software de reparación de Outlook. Para más información visite www.datanumen.com