Saltar al contenido principal

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

En Outlook, puede tener muchas cuentas de correo electrónico con muchas carpetas; en algunos casos, desea fusionar dos carpetas en una y eliminar los elementos duplicados. ¿Cómo puede resolver rápidamente este trabajo? 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 por código VBA

Fusionar varias carpetas y eliminar elementos duplicados con Kutools para Outlook


Fusionar dos carpetas sin duplicados en una por código VBA

Para fusionar dos carpetas en una y eliminar los elementos duplicados, puede manejarlo con el código VBA siguiendo los siguientes pasos:

1. Prensa Alt + F11 claves para habilitar el Microsoft Visual Basic para aplicaciones ventana

2. Haga doble clic en Esta sesión de Outlook en Proyecto1 en el panel izquierdo, luego copie y pegue el código siguiente en el script derecho.

VBA: fusionar dos carpetas sin diplicados

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 fusionar carpetas sin duplicados 1

3. Hacer clic en Herramientas > Referencias y en el cuadro de diálogo emergente, marque Tiempo de ejecución de secuencias de comandos de Microsoft casilla de verificación.

doc fusionar carpetas sin duplicados 2 doc flecha derecha doc fusionar carpetas sin duplicados 3

4. Hacer clic en OK. Ahora presiona F5 clave para ejecutar el código. Aparece un cuadro de diálogo para recordarle 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 fusionar carpetas sin duplicados 4

5. Hacer clic en OK, en el segundo cuadro de diálogo emergente, elija la segunda carpeta con la que desea comparar y fusionar.
doc fusionar carpetas sin duplicados 5

6. Hacer clic en OK, ahora, todos los elementos de la primera carpeta se moverán a la segunda carpeta y también se eliminarán los duplicados.
doc fusionar carpetas sin duplicados 6


Fusionar varias 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 su Consolidar carpetas y Correos electrónicos duplicados utilidades que pueden manejar este trabajo fácil y rápidamente.

Kutools for Outlook , Incluye 100+ potentes funciones y herramientas para Microsoft Outlook 2016, 2013, 2010 y Office 365.

Instalación gratuita Kutools para Outlook, y luego siga los pasos a continuación:

Combinar varias carpetas

1. Hacer clic en Kutools Más > Consolidar carpetas, luego en el Fusionar varias carpetas en una diálogo, haga clic Añada para agregar las carpetas a la lista que se fusionarán, elija una carpeta como carpeta de destino.
doc consolidar y eliminar duplicado 1

2. Hacer clic en OK > OK. Ahora todos los elementos de las carpetas seleccionadas se han fusionado en una carpeta específica.
doc consolidar y eliminar duplicado 2

Eliminar elementos duplicados

3. Hacer clic en Kutools > Eliminar duplicado > Correos electrónicos duplicados. Entonces en el Mensajes duplicados cuadro de diálogo, marque la carpeta que desea eliminar los duplicados.
doc consolidar y eliminar duplicado 3

4. Hacer clic en Siguienteen Configuración de mensajes duplicados cuadro de diálogo, especifique los criterios que utiliza para comparar correos electrónicos, luego marque Eliminar mensajes duplicados opción y seleccione Compare los mensajes duplicados dentro de una sola carpeta.
doc consolidar y eliminar duplicado 4

5. Hacer clic en Siguiente > Siguiente, se han filtrado los correos electrónicos duplicados. Hacer clic Eliminar mensaje duplicado botón> OK para eliminar los correos electrónicos duplicados con éxito.
doc consolidar y eliminar duplicado 5 doc fusionar carpetas sin duplicados 6


Las mejores herramientas de productividad de oficina

Kutools para Outlook - Más de 100 potentes funciones para potenciar tu perspectiva

🤖 Asistente de correo AI: Correos electrónicos profesionales instantáneos con magia de IA: respuestas geniales con un clic, tono perfecto y dominio multilingüe. ¡Transforme el correo electrónico sin esfuerzo! ...

📧 Automatización de correo electrónico: Fuera de la oficina (disponible para POP e IMAP)  /  Programar envío de correos electrónicos  /  CC/CCO automático según reglas al enviar correo electrónico  /  Reenvío automático (reglas avanzadas)   /  Agregar saludo automáticamente   /  Divida automáticamente correos electrónicos de múltiples destinatarios en mensajes individuales ...

📨 Gestión de correo electrónico: Recuperar correos electrónicos fácilmente  /  Bloquear correos electrónicos fraudulentos por sujetos y otras personas  /  Eliminar correos electrónicos duplicados  /  Búsqueda Avanzada  /  Consolidar carpetas ...

📁 Archivos adjuntos profesionalesGuardar lote  /  Separación de lotes  /  Comprimir por lotes  /  Ahorro automático   /  Desconexión automática  /  Autocompresión ...

???? Interfaz mágica: 😊Más emojis bonitos y geniales   /  Aumente su productividad en Outlook con vistas con pestañas  /  Minimizar Outlook en lugar de cerrar ...

👍 Maravillas con un clic: Responder a todos los archivos adjuntos entrantes  /   Correos electrónicos antiphishing  /  🕘Mostrar zona horaria del remitente ...

👩🏼‍🤝‍👩🏻 Contactos y calendario: Agregar por lotes contactos de correos electrónicos seleccionados  /  Dividir un grupo de contactos en grupos individuales  /  Eliminar recordatorios de cumpleaños ...

Mas de Características 100 ¡Espere su exploración! Haga clic aquí para descubrir más.

 

 

Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations