¿Cómo fusionar dos carpetas sin duplicados en una sola carpeta en Outlook?
En Outlook, puede tener muchas cuentas de correo electrónico con múltiples carpetas. En algunos casos, es posible que desee fusionar dos carpetas en una y eliminar los elementos duplicados. ¿Cómo puede resolver esta tarea rápidamente? En este artículo, presento un código VBA para ayudarlo a manejarlo lo más rápido posible en Outlook.
Fusionar dos carpetas sin duplicados en una mediante código VBA
Fusionar múltiples carpetas y eliminar elementos duplicados con Kutools para Outlook
Fusionar dos carpetas sin duplicados en una mediante código VBA
Para fusionar dos carpetas en una y eliminar los elementos duplicados, puede manejarlo con código VBA siguiendo estos pasos:
1. Presione las teclas "Alt + F11" para abrir la ventana "Microsoft Visual Basic para Aplicaciones".
2. Haga doble clic en "ThisOutlookSession" de "Project1" en el panel izquierdo, luego copie y pegue el siguiente código en la ventana de script de la derecha.
VBA: Fusionar dos carpetas sin duplicados
Sub MergeOutlookFolders_WithoutDuplicates()
'UpdatebyExtendoffice20180521
Dim xSourceFolder As Outlook.Folder
Dim xTargetFolder As Outlook.Folder
Dim xCount, i As Long
Dim xItem As Object
Dim xSourceItem As Object
Dim xTargetItem As Object
Dim xDictionary As Scripting.Dictionary 'Object
Dim xStr As String
On Error Resume Next
Set xDictionary = New Scripting.Dictionary
Set xSourceFolder = Application.Session.PickFolder
Set xTargetFolder = Application.Session.PickFolder
xCount = 0
If xSourceFolder.DefaultItemType <> xTargetFolder.DefaultItemType Then
MsgBox "Error: The two folders are not in same type!", vbExclamation + vbOKOnly, "Kutools for Outlook"
Exit Sub
End If
For i = xSourceFolder.Items.Count To 1 Step -1
Set xSourceItem = xSourceFolder.Items.Item(i)
xSourceItem.Move xTargetFolder
Next
For i = xTargetFolder.Items.Count To 1 Step -1
Set xTargetItem = xTargetFolder.Items.Item(i)
Select Case xTargetItem.Class
Case olMail
With xTargetItem
xStr = .Subject & .Body & .SentOn
End With
Case olAppointment
With xTargetItem
xStr = .Subject & .Start & .Duration & .Location & .Body
End With
Case olContact
With xTargetItem
xStr = .FullName & .Email1Address & .Email2Address & .Email3Address
End With
Case olTask
With xTargetItem
xStr = .Subject & .StartDate & .DueDate & .Body
End With
End Select
If xDictionary.Exists(xStr) = True Then
xTargetItem.Delete
xCount = xCount + 1
Else
xDictionary.Add xStr, True
End If
Next i
If xCount <> 0 Then
MsgBox xCount & " duplicates removed when merging!", vbInformation + vbOKOnly, "Kutools for Outlook"
End If
End Sub
3. Haga clic en "Herramientas" > "Referencias", y en el cuadro de diálogo emergente, marque la casilla "Microsoft Scripting Runtime".
 |  |  |
4. Haga clic en "Aceptar". Ahora presione la tecla "F5" para ejecutar el código. Aparecerá un cuadro de diálogo recordándole que seleccione la primera carpeta que desea fusionar (nota: todos los elementos de la primera carpeta se eliminarán después de fusionarse con la segunda carpeta).
5. Haga clic en "Aceptar". En el segundo cuadro de diálogo emergente, elija la segunda carpeta con la que desea comparar y fusionar.
6. Haga clic en "Aceptar". Ahora, todos los elementos de la primera carpeta se moverán a la segunda carpeta, y los duplicados se eliminarán.
Fusionar múltiples carpetas y eliminar elementos duplicados con Kutools para Outlook
Si no está familiarizado con el código VBA, intente usar "Kutools para Outlook", un complemento útil, con sus utilidades "Organizar carpetas" y "Correos electrónicos duplicados", que pueden manejar fácil y rápidamente esta tarea.
¡Dile adiós a la ineficiencia de Outlook! Kutools para Outlook facilita el procesamiento de correos electrónicos en lote, ¡ahora con funciones gratuitas impulsadas por inteligencia artificial! Descarga Kutools para Outlook ahora!!
Fusionar múltiples carpetas
1. Haga clic en "Kutools Plus" > "Organizar carpetas", luego, en el cuadro de diálogo "Organizar varias carpetas en una", haga clic en "Agregar" para agregar las carpetas que desea fusionar a la lista y elija una carpeta como carpeta de destino.
2. Haga clic en "Aceptar" > "Aceptar". Ahora, todos los elementos de las carpetas seleccionadas se han fusionado en la carpeta especificada.
Eliminar elementos duplicados
3. Haga clic en "Kutools" > "Eliminar duplicados" > "Correos electrónicos duplicados". Luego, en el cuadro de diálogo "Correos duplicados", marque la carpeta donde desea eliminar duplicados.
4. Haga clic en "Siguiente". En el cuadro de diálogo "Configuración de mensajes duplicados", especifique los criterios que usará para comparar correos electrónicos. Luego, marque la opción "Eliminar correos electrónicos duplicados" y seleccione "Comparar dentro de una sola carpeta".
5. Haga clic en "Siguiente" > "Siguiente", y los correos electrónicos duplicados se filtrarán. Haga clic en el botón "Eliminar mensaje duplicado" > "Aceptar" para eliminar correctamente los correos electrónicos duplicados.
Las mejores herramientas de productividad para Office
Noticia de última hora: ¡Kutools para Outlook lanza su versión gratuita!
¡Descubre el nuevo Kutools para Outlook con más de100 increíbles funciones! Haz clic para descargar ahora.
📧 Automatización de correo electrónico: Respuesta automática (disponible para POP e IMAP) / Programar envío de correo electrónico / CC/BCC automático por regla al enviar correo / Reenvío automático (Regla avanzada) / Agregar saludo automáticamente / Dividir automáticamente correos con múltiples destinatarios en emails individuales...
📨 Gestión de correo electrónico: Recuperar correo electrónico / Bloquear correos fraudulentos por asunto y otros filtros / Eliminar 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 emails importantes / Minimizar Outlook en vez de cerrar...
👍 Funciones en un clic: Responder a Todos con Adjuntos / Correos antiphishing / 🕘Mostrar la zona horaria del remitente...
👩🏼🤝👩🏻 Contactos y Calendario: Agregar contacto en lote desde emails seleccionados / Dividir un grupo de contactos en grupos individuales / Eliminar recordatorio de cumpleaños...
Utiliza Kutools en tu idioma preferido — disponible en Inglés, Español, Alemán, Francés, Chino y más de40 idiomas adicionales.
🚀 Descarga con un solo clic — Consigue todos los complementos para Office
Muy recomendado: Kutools para Office (5 en1)
Descarga los cinco instaladores a la vez con solo un clic — Kutools para Excel, Outlook, Word, PowerPoint y Office Tab Pro. Haz clic para descargar ahora.
- ✅ Comodidad en un solo clic: Descarga los cinco paquetes de instalación en una sola acción.
- 🚀 Listo para cualquier tarea en Office: Instala los complementos que necesites cuando los necesites.
- 🧰 Incluye: Kutools para Excel / Kutools para Outlook / Kutools para Word / Office Tab Pro / Kutools para PowerPoint