¿Cómo fusionar dos carpetas sin duplicados en una sola carpeta en Outlook?

Author: Sun Last Modified: 2025-08-06

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

doc merge folders without duplicates 1

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).
doc merge folders without duplicates 4

5. Haga clic en "Aceptar". En el segundo cuadro de diálogo emergente, elija la segunda carpeta con la que desea comparar y fusionar.
doc merge folders without duplicates 5

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.
doc merge folders without duplicates 6

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.

¡Desbloquea la máxima eficiencia en el correo electrónico con Kutools para Outlook! Accede a 70 funciones poderosas completamente gratis, para siempre. ¡Descarga la versión gratuita 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.
doc consolidate and remove duplicate 2

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.
doc merge folders without duplicates 6