2 medios para eliminar rápidamente los días festivos duplicados en su calendario de Outlook

Si agrega los mismos días festivos a un mismo calendario dos o más veces por accidente, encontrará que el calendario está repleto de días festivos duplicados. En este escenario, debe desear eliminar los duplicados. Ahora, este artículo le enseñará 2 medios.

Outlook tiene una función incorporada para agregar rápidamente días festivos al calendario predeterminado. Sin duda, es bastante conveniente para los usuarios. Sin embargo, si agrega los días festivos dos o más veces por error, su calendario predeterminado se completará con los días festivos duplicados. Ahora, a continuación, le presentaremos 2 enfoques para eliminar rápidamente los duplicados.

Método 1: eliminar todos los días festivos y agregarlos de nuevo

1. Para empezar, abre tu programa Outlook.
2. Luego acceda a la carpeta Calendario de origen.
3. A continuación, cambie a la pestaña "Ver" y seleccione "Cambiar vista"> "Lista".
4. Después de eso, debe hacer clic en el botón "Categorías" en el grupo "Disposición".
5. A continuación, verá que todas las citas se han agrupado por categorías.
6. Ahora puede conocer el grupo "Vacaciones".
7. Por último, haga clic en el encabezado del grupo "Vacaciones" y luego presione la tecla "Eliminar".
8. De una vez, se han eliminado todos los días festivos existentes.
9. Después de eliminarlos, puede volver a agregar las vacaciones. En primer lugar, vaya a "Archivo"> ​​Opciones ".
10. En la ventana emergente "Opciones de Outlook", puede cambiar a la pestaña "Calendario".
11. En esta pestaña, podrá ubicar el botón "Agregar vacaciones".
12. Luego, en el nuevo cuadro de diálogo, seleccione una ubicación, como "Estados Unidos" y presione "Aceptar".
13. Finalmente, los días festivos se han vuelto a importar al Calendario predeterminado.

Método 2: eliminar vacaciones duplicadas con VBA

1. Desde el principio, presione los botones de tecla "Alt + F11".
2. A continuación, accederá a la ventana del editor de Outlook VBA, en la que podrá abrir un módulo no utilizado.
3. Posteriormente, copie el siguiente código VBA en este módulo.

Sub RemoveDuplicateHolidays()
    Dim objStores As Outlook.Stores
    Dim objStore As Outlook.Store
    Dim objPSTFile As Outlook.Folder
    Dim objFolders As Outlook.folders
    Dim objFolder As Object

    Set objStores = Outlook.Application.Session.Stores
 
    'Process all Outlook PST files in your Outlook
    For Each objStore In objStores
        Set objPSTFile = objStore.GetRootFolder
        For Each objFolder In objPSTFile.folders
            Call ProcessFolders(objFolder)
        Next
    Next

End Sub

Sub ProcessFolders(ByVal objCurrentFolder As Outlook.Folder)
    Dim objDictionary As Object
    Dim i As Long
    Dim objItem As Object
    Dim strKey As String

    Set objDictionary = CreateObject("Scripting.Dictionary")

    If objCurrentFolder.DefaultItemType = olAppointmentItem Then
       For i = objCurrentFolder.Items.count To 1 Step -1
           Set objItem = objCurrentFolder.Items.Item(i)
 
           'Get all holidays based on the "Holiday" category
           If objItem.Categories = "Holiday" Then
              strKey = objItem.Subject & "," & objItem.Location & "," & objItem.Body & "," & objItem.Categories
              strKey = Replace(strKey, ", ", Chr(32))

              If objDictionary.Exists(strKey) = True Then
                 objItem.Delete
              Else
                 objDictionary.Add strKey, True
              End If
          End If
       Next i
    End If
End Sub

4. En última instancia, puede probar esta macro.

• Haga clic en la subrutina "RemoveDuplicateHolidays".
• Luego presione el botón de la tecla F5 para ejecutarlo.
• Una vez que se completa, se eliminan todos los días festivos duplicados en todos sus calendarios de Outlook.

Recupere datos valiosos de Outlook

Es un hecho incuestionable que ningún programa puede garantizar que pueda ser inmune a errores y corrupción. Lo mismo ocurre con Outlook. Por lo tanto, para proteger sus datos de Outlook, es mejor que realice copias de seguridad de datos con regularidad. Además, debe programar un plan de recuperación de Outlook con anticipación. Por último, pero no menos importante, es prudente preparar una herramienta de reparación de buena reputación, como DataNumen Outlook Repair. Es capaz de reparar Outlook problemas en un santiamén y recupere el máximo de datos de Outlook del archivo comprometido.

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