¿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
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.
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).
5. Hacer clic en OK, en el segundo cuadro de diálogo emergente, elija la segunda carpeta con la que desea comparar y fusionar.
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.
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.
2. Hacer clic en OK > OK. Ahora todos los elementos de las carpetas seleccionadas se han fusionado en una carpeta específica.
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.
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.
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.
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 profesionales: Guardar 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.