2 formas de eliminar recordatorios por lotes de todos los elementos de calendario gratuitos o provisionales en Outlook

Para los elementos del calendario que se muestran como "Gratis" o "Provisional", es posible que desee eliminar sus recordatorios. Ahora, en este artículo, presentaremos 2 métodos que pueden permitirle obtenerlo a granel.

Quizás haya configurado una hora de recordatorio predeterminada para todos los elementos del calendario. En este caso, no importa si hay artículos ocupados, fuera de la oficina, gratis o provisionales, siempre tendrán un recordatorio habilitado. Sin embargo, por lo general, los elementos gratuitos y provisionales en realidad no requieren recordatorios. Por lo tanto, desea eliminar por lotes los recordatorios de dichos elementos. Entonces, aquí te enseñaremos 2 medios para realizarlo de una vez.

Método 1: Eliminar por lotes en un calendario manualmente

1. Primero que nada, abre un calendario.
2. Luego, cambie a la pestaña "Ver" y haga clic en "Cambiar vista"> "Lista".
3. A continuación, haga clic en el botón "Ver configuración".
4. En el cuadro de diálogo emergente, presione el botón "Agrupar por".
5. Después de eso, en otro cuadro de diálogo nuevo, seleccione "Recordatorio" en "Agrupar elementos por" y haga clic en "Aceptar".
6. Más tarde, haga clic en el botón "Columnas".
7. En el cuadro de diálogo "Mostrar columnas", agregue la columna "Mostrar hora como" y presione "Aceptar".
8. Posteriormente, haga clic en "Aceptar" para guardar la configuración de la vista.
9. En la lista de elementos del calendario, busque y seleccione todos los elementos libres / provisionales en el grupo "Recordatorio: Sí".
10. Finalmente, arrástrelos y suéltelos en el grupo "Recordatorio: No".

Método 2: Eliminar por lotes en todos los calendarios con VBA

1. En primer lugar, presione "Alt + F11" para activar el editor de VBA.
2. Luego, copie el código VBA a continuación en un módulo.

Sub RemoveReminders_TentativeCalendarItems()
    Dim objStore As Outlook.Store
    Dim objFolder As Outlook.Folder
 
    For Each objStore In Application.Session.Stores
        'Process all Calendar folders
        For Each objFolder In objStore.GetRootFolder.Folders
            If objFolder.DefaultItemType = olAppointmentItem Then
               Call ProcessFolders(objFolder)
            End If
        Next
    Next
End Sub

Sub ProcessFolders(ByVal objCalendar As Outlook.Folder)
    Dim i As Long
    Dim objAppointment As Outlook.AppointmentItem
    Dim objSubCalendar As Outlook.Folder
 
    'Remove Reminders from Free/Tentative Calendar Items
    For i = objCalendar.Items.Count To 1 Step -1
        Set objAppointment = objCalendar.Items(i)
        If objAppointment.BusyStatus = olFree Or objAppointment.BusyStatus = olTentative Then
           If objAppointment.ReminderSet = True Then
              objAppointment.ReminderSet = False
              objAppointment.Save
           End If
        End If
    Next
 
    'Process Subfolders Recursively
    If objCalendar.Folders.Count > 0 Then
       For Each objSubCalendar In objCalendar.Folders
           Call ProcessFolders(objSubCalendar)
       Next
    End If
End Sub

3. Luego, mueva el cursor a la primera subrutina.
4. Finalmente, presione la tecla "F5".
5. De una vez, se eliminarán todos los recordatorios de elementos de calendario gratuitos o provisionales.

Hacer frente a los inquietantes problemas de perspectiva

Es bastante común encontrar problemas diversos en Outlook, como daños en el archivo PST, infección por virus, eliminación accidental de elementos, etc. Para abordarlos a tiempo y de manera efectiva, es recomendable mantener un archivo confiable. Reparación de PST herramienta en las proximidades, como DataNumen Outlook Repair. Puede salvarlo de la molesta pérdida de datos de Outlook.

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 reparar mdf y productos de software de reparación de Outlook. Para más información visite www.datanumen.com