¿Cómo combinar dos carpetas en una sola en Outlook sin incluir elementos duplicados?

En Outlook, es posible que gestione numerosas cuentas de correo electrónico con múltiples carpetas. En algunos casos, querrá combinar dos carpetas en una y eliminar los elementos duplicados. ¿Cómo puede llevar a cabo esta tarea rápidamente? En este artículo, le presento un código VBA que le permitirá hacerlo de la forma más ágil posible en Outlook.

Combinar dos carpetas sin duplicados en una mediante código VBA

Combine varias carpetas y elimine los elementos duplicados con Kutools para Outlook

---

Combinar dos carpetas sin duplicados en una mediante código VBA

Para combinar dos carpetas en una y eliminar los elementos duplicados, puede utilizar un código VBA siguiendo estos pasos:

1. Pulse las teclas «Alt + F11» para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

2. Haga doble clic en «ThisOutlookSession» dentro de «Project1» en el panel izquierdo y, a continuación, copie y pegue el siguiente código en la ventana de scripts situada a la derecha.

VBA: Combinar 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 que aparece, active la casilla «Microsoft Scripting Runtime».

4. Haga clic en «Aceptar». A continuación, pulse la tecla «F5» para ejecutar el código. Aparecerá un cuadro de diálogo que le recordará que seleccione la primera carpeta que desea combinar (nota: todos los elementos de esta carpeta se eliminarán tras combinarse con la segunda).

5. Haga clic en «Aceptar». En el segundo cuadro de diálogo emergente, seleccione la segunda carpeta que desea comparar y combinar.

6. Haga clic en «Aceptar». A continuación, todos los elementos de la primera carpeta se trasladarán a la segunda y se eliminarán los duplicados.

---

Combine varias carpetas y elimine los elementos duplicados con Kutools para Outlook

Si no está familiarizado con el código VBA, pruebe «Kutools para Outlook», un complemento práctico que, gracias a sus funciones «Organizar carpetas» y «Correos electrónicos duplicados», le permite realizar esta tarea de forma fácil y rápida.

Combinar varias carpetas

1. Haga clic en «KUTOOLS PLUS» > «Organizar carpetas» y, en el cuadro de diálogo «Organizar varias carpetas en una carpeta», pulse «Agregar» para incluir en la lista las carpetas que desea combinar y seleccione una carpeta de destino.

2. Haga clic en «Aceptar» > «Aceptar». Ahora, todos los elementos de las carpetas seleccionadas se han combinado en la carpeta especificada.

Eliminar elementos duplicados

3. Haga clic en «Kutools» > «Eliminar duplicados» > «Correos electrónicos duplicados». A continuación, en el cuadro de diálogo «Correos duplicados», marque la carpeta en la que desea eliminar los duplicados.

4. Haga clic en «Siguiente». En el cuadro de diálogo «Configuración de Correos duplicados», defina los criterios que desea utilizar para comparar los correos electrónicos. A continuación, active la opción «Eliminar correos electrónicos duplicados» y seleccione «Comparar dentro de una sola carpeta».

5. Haga clic en «Siguiente» > «Siguiente» para filtrar los correos electrónicos duplicados. Luego, pulse el botón «Eliminar mensajes duplicados» > «Aceptar» para eliminarlos correctamente.