Outlook: Cómo eliminar elementos duplicados del calendario
A veces, hay algunos elementos duplicados en el calendario cuando importamos eventos desde otros dispositivos. Para eliminar los elementos duplicados del calendario, este tutorial introduce dos métodos diferentes: uno es eliminarlos uno por uno cuando hay pocos duplicados, y el otro es usar VBA para eliminar todos los duplicados de una vez.
Eliminar manualmente los elementos duplicados del calendario uno por uno
VBA para eliminar elementos duplicados del calendario de una vez
Eliminar manualmente los elementos duplicados del calendario uno por uno
Para eliminar los elementos duplicados del calendario uno por uno, primero necesitas listarlos en un orden específico para ver claramente los duplicados, luego eliminarlos uno por uno.
1. Generalmente, el calendario está en una vista de "Calendario", activa el calendario del que deseas eliminar duplicados, luego haz clic en "Ver" > "Cambiar vista" > "Lista".

Ahora el calendario se ha visualizado como una lista.


2. Luego, especifica una condición que uses para comparar si los elementos son duplicados, supongamos que quieres comparar si los elementos tienen el mismo asunto. Haz clic en "ASUNTO" en la lista del calendario, luego todos los elementos con el mismo asunto se colocarán juntos.

3. Ahora puedes eliminar los elementos que tienen el mismo asunto uno por uno haciendo clic derecho sobre el elemento y seleccionando "Eliminar" en el menú contextual emergente.

Asistente de Correo AI en Outlook: Respuestas más Inteligentes, Comunicación más Clara (¡magia con un solo clic!) GRATIS
Simplifica tus tareas diarias en Outlook con el Asistente de Correo AI de Kutools para Outlook. Esta poderosa herramienta aprende de tus correos electrónicos anteriores para ofrecerte respuestas inteligentes y precisas, optimizar el contenido de tus correos y ayudarte a redactar y perfeccionar mensajes sin esfuerzo.

Esta función admite:
- Respuestas Inteligentes: Obtén respuestas elaboradas a partir de tus conversaciones pasadas, personalizadas, precisas y listas para usar.
- Contenido Mejorado: Refina automáticamente el texto de tus correos electrónicos para mayor claridad e impacto.
- Redacción sin Esfuerzo: Solo proporciona palabras clave y deja que la IA haga el resto, con múltiples estilos de escritura.
- Extensiones Inteligentes: Amplía tus ideas con sugerencias contextualizadas.
- Resúmenes: Obtén resúmenes concisos de correos electrónicos largos al instante.
- Alcance Global: Traduce tus correos electrónicos a cualquier idioma fácilmente.
Esta función admite:
- Respuestas inteligentes de correo electrónico
- Contenido optimizado
- Borradores basados en palabras clave
- Extensión inteligente de contenido
- Resumen de correos electrónicos
- Traducción multilingüe
¡Lo mejor de todo es que esta función es completamente gratis para siempre! No esperes más, ¡descarga ahora el Asistente de Correo AI y disfruta!
VBA para eliminar elementos duplicados del calendario de una vez
Aquí se presentan algunos códigos VBA que pueden eliminar todos los elementos duplicados del calendario en una carpeta de calendario en diferentes casos.
1. Presiona las teclas "Alt" + "F11" para habilitar la ventana "Microsoft Visual Basic para Aplicaciones".
2. Haz clic en "Insertar" > "Módulo" para crear un nuevo módulo en blanco, luego copia y pega el siguiente código en el módulo.
VBA: eliminar todos los elementos duplicados del calendario en una categoría específica
'Sub RemoveDuplicateCalendar()
'UpdatebyExtendoffice20220413
Dim xStores As Stores
Dim xStore As Store
Dim xRootFolder As Folder
Dim xFolder As Object
Set xStores = Application.Session.Stores
For Each xStore In xStores
Set xRootFolder = xStore.GetRootFolder
For Each xFolder In xRootFolder.Folders
Call ProcessFolders(xFolder)
Next
Next
Set xStores = Nothing
End Sub
Sub ProcessFolders(ByVal CurrentFld As Folder)
Dim xDictionary As Object
Dim i As Long
Dim xItem As Object
Dim xKey As String
Dim xSubFld As Folder
On Error Resume Next
If CurrentFld.DefaultItemType <> olAppointmentItem Then Exit Sub
Set xDictionary = CreateObject("Scripting.Dictionary")
For i = CurrentFld.Items.Count To 1 Step -1
Set xItem = CurrentFld.Items.Item(i)
'change categories as you need in below script
If xItem.Categories = "date" Then
'change the comparing items as you need
xKey = xItem.Subject & xItem.Location & xItem.Body & xItem.Categories
If xDictionary.Exists(xKey) = True Then
xItem.Delete
Else
xDictionary.Add xKey, True
End If
End If
Next i
For Each xSubFld In CurrentFld.Folders
ProcessFolders xSubFld
Next
End Sub
En este VBA, se eliminarán todos los duplicados en la categoría "fecha" comparando el asunto, la ubicación, el cuerpo y la categoría; puedes cambiarlos según sea necesario.

3. Luego presiona la tecla "F5" o haz clic en Ejecutar para ejecutar el código, aparecerá un cuadro de diálogo "Macros", selecciona "RemoveDuplicateCalendar" y haz clic en "Ejecutar". .

Luego se habrán eliminado los elementos duplicados en la categoría "fecha".
VBA: eliminar todos los elementos duplicados del calendario entre categorías
Sub RemoveDuplicateCalendar()
'UpdatebyExtendoffice20220413
Dim xStores As Stores
Dim xStore As Store
Dim xRootFolder As Folder
Dim xFolder As Object
Set xStores = Application.Session.Stores
For Each xStore In xStores
Set xRootFolder = xStore.GetRootFolder
For Each xFolder In xRootFolder.Folders
Call ProcessFolders(xFolder)
Next
Next
Set xStores = Nothing
End Sub
Sub ProcessFolders(ByVal CurrentFld As Folder)
Dim xDictionary As Object
Dim i As Long
Dim xItem As Object
Dim xKey As String
Dim xSubFld As Folder
On Error Resume Next
If CurrentFld.DefaultItemType <> olAppointmentItem Then Exit Sub
Set xDictionary = CreateObject("Scripting.Dictionary")
For i = CurrentFld.Items.Count To 1 Step -1
Set xItem = CurrentFld.Items.Item(i)
'change the comparing items as you need
xKey = xItem.Subject & xItem.Location & xItem.Body & xItem.Categories
If xDictionary.Exists(xKey) = True Then
xItem.Delete
Else
xDictionary.Add xKey, True
End If
Next i
For Each xSubFld In CurrentFld.Folders
ProcessFolders xSubFld
Next
End Sub
Al ejecutar este código, se eliminarán todos los duplicados que tengan el mismo asunto, ubicación, cuerpo y categoría en cada categoría.


Nota: El VBA anterior funciona en la carpeta de calendario incluidas las subcarpetas.
Las mejores herramientas de productividad para Office
Últimas noticias: ¡Kutools para Outlook lanza su versión gratuita!
Descubre la nueva versión GRATUITA de Kutools para Outlook con más de70 funciones increíbles, ¡para que la disfrutes PARA SIEMPRE! ¡Haz clic para descargar ahora!
📧 Automatización de Email: Respuesta automática (Disponible para POP e IMAP) / Programar envío de correos / CC/BCC automático por regla al enviar correo / Reenvío automático (Regla avanzada) / Agregar saludo automáticamente / Dividir automáticamente emails con múltiples destinatarios en mensajes individuales...
📨 Gestión de Email: Recuperar correo electrónico / Bloquear correos fraudulentos por asunto y otros criterios / Eliminar correos electrónicos duplicados / Búsqueda Avanzada / Organizar carpetas...
📁 Adjuntos Pro: Guardar en lote / Desanexar en lote / Comprimir en lote / Guardar automáticamente / Desconectar automáticamente / Auto Comprimir...
🌟 Magia en la interfaz: 😊Más emojis bonitos y modernos / Avisos cuando llegan correos importantes / Minimiza Outlook en vez de cerrarlo...
👍 Funciones de un solo clic: Responder a Todos con Adjuntos / Correos electrónicos anti-phishing / 🕘Mostrar la zona horaria del remitente...
👩🏼🤝👩🏻 Contactos y Calendario: Agregar contactos en lote desde correos seleccionados / Dividir un grupo de contactos en grupos individuales / Eliminar recordatorio de cumpleaños...

