¿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.
¡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.
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
Ú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...
