Conozca el script para eliminar correos electrónicos duplicados en Outlook

Conozca el script para eliminar correos electrónicos duplicados en Outlook

Consulta de usuario - Hola, anoche encontré datos corruptos en mi Outlook mientras movía elementos de datos de un almacenamiento en línea a un archivo PST. La buena noticia es que pude recuperar los datos de mi archivo PST, pero muchos de los elementos están duplicados. Ahora conozco el método manual para eliminar correos electrónicos duplicados. Pero estoy buscando una forma instantánea como la secuencia de comandos VBA o macros para eliminar correos electrónicos duplicados en Outlook. Entonces alguien conoce la solución, así que por favor ayúdame.

Bueno, los correos electrónicos duplicados en Outlook son un problema muy común que enfrentan muchos usuarios de Outlook. Pero las consecuencias de los correos electrónicos duplicados son más dolorosas. Por lo tanto, los usuarios quieren una solución instantánea para deshacerse de él y comenzar a buscar VBScript o macros para eliminar correos electrónicos duplicados en Outlook porque estos scripts ofrecen la opción de eliminar correos electrónicos duplicados de forma masiva.

Así que quédese con nosotros porque aquí en este artículo discutiremos el script para eliminar correos electrónicos duplicados en Outlook. Pero antes de comenzar el blog, veamos cuáles son las razones de los correos electrónicos duplicados en Outlook.

¿Por qué ocurren los correos electrónicos duplicados en Outlook?

  • Las reglas de Outlook son una de las principales razones detrás de los correos electrónicos duplicados porque las reglas incorrectas descargan los mismos correos electrónicos una y otra vez. Esto, a su vez, los usuarios terminan con una gran cantidad de correos electrónicos duplicados en su buzón de Outlook.
  • Si los usuarios han establecido un breve intervalo de tiempo para la actualización de la bandeja de entrada, el componente del buzón no se puede sincronizar correctamente y crear correos electrónicos duplicados en la bandeja de entrada
  • El uso del mismo correo electrónico varias veces en varios dispositivos es el motivo de la sincronización repetida de los datos entrantes, lo que conduce a correos electrónicos duplicados en Outlook.
  • A veces, debido a una mala conexión a Internet, el servidor de correo de Outlook deja de responder mientras envía / recibe correos electrónicos en Outlook. Además, la próxima sincronización descargará los correos electrónicos anteriores nuevamente.

¿Cómo escribir un script para eliminar correos electrónicos duplicados en Outlook?

Aquí, en esta sección, estamos hablando de los VBscripts que están escritos en VB Editor. Básicamente, VBA significa Visual Basic for Application y se utiliza para crear macros que pueden realizar automáticamente tareas complejas y complicadas en Outlook. Pero recuerde que esta actividad contiene programación, así que siga todos los pasos con cuidado.

1. Primero, abra el programa Outlook y presione Alt + F11 para abrir el editor de VB

2. En la ventana del editor de VBA, haga doble clic para abrir un módulo en uso o inserte directamente un nuevo módulo a través de "Insertar"> "Módulo"

3. Ahora copie y pegue los siguientes códigos VBA en el módulo

Sub MoveDuplicates públicos ()
Dim objOL como Outlook.Application
Atenuar objFolder como Outlook.MAPIFfolder
Atenuar objDupFolder como Outlook.MAPIFfolder
Dim objDictionary como objeto
Dim I As Long
Dim objItem como objeto
Dim strKey como cadena

Establecer objOL = Outlook.Application
Establecer objDictionary = CreateObject ("scripting.dictionary")
Establecer objFolder = objOL.ActiveExplorer.currentFolder

En caso de error, reanudar siguiente
Establecer objDupFolder = objFolder.Folders.Item ("Duplicados")
Si objDupFolder no es nada, entonces
Establecer objDupFolder = objFolder.Folders.Add ("Duplicados")
Terminara si

Para i = objFolder.Items.count 1-pass -1
Establecer objeto objeto = carpeta objeto.Items.Item (i)
'Marque solo el tipo de elementos de correo electrónico
Si InStr (1, objItem.MessageClass) <> "IPM.Schedule" Entonces

strKey = objItem.Subject & "," & objItem.Body & "," & objItem.SentOn
strKey = Reemplazar (strKey, ",", Chr (32))
Si objDictionary.Exists (strKey) = True Entonces
objItem.Sove objDupFolder
'usa esto para cancelar inmediatamente
'objItem.Delete
Otro
objDictionary.Add strKey, True
Terminara si
Terminara si

Vamos

Fin de subtítulo

4. Una vez que se pegue el código, firme esta macro y cambie el nivel de seguridad de la macro de Outlook hacia abajo

5. Ahora, ejecute este nuevo proyecto de VBA haciendo clic en el icono "Ejecutar" en la barra de herramientas superior

6. Seleccione la carpeta a la que desea mover los correos electrónicos duplicados.

7. Finalmente, después de unos minutos, todos los correos electrónicos duplicados se eliminan simultáneamente en

Solución de un clic para eliminar correos electrónicos duplicados en Outlook

Bueno, como vemos, el método de scripting anterior es totalmente técnico. Por lo tanto, hay muy pocas posibilidades de que los usuarios no técnicos puedan completar esta tarea. Además, es hora de ejecutarlo cuando tiene muchos correos electrónicos duplicados en Outlook. Sin embargo, sabemos que Outlook es susceptible de descargar correos electrónicos duplicados, por lo que, en tal escenario, los usuarios deben esforzarse más para guardar sus datos de Outlook.

Entonces, en esta situación problemática, podemos intentar Herramienta de eliminación de duplicados de SysTools. Esta es la herramienta que hace la misma tarea en unos pocos clics, también capaz de eliminar correos electrónicos duplicados de Outlook PST, OST y BAK. Mientras usa este software, no necesita preocuparse por la pérdida de datos y el software ofrece una opción para eliminar duplicados de los contactos, calendarios, tareas, notas y diarios de Outlook.

Veamos los cinco sencillos pasos del software para eliminar correos electrónicos duplicados en Outlook

1. Descargue e instale el software desde el botón de descarga de arriba

2. Ahora, haga clic en Agregar archivo o Agregar carpeta para agregar archivos de Outlook.

3. Seleccione la ubicación de destino para guardar el archivo de Outlook gratuito duplicado

4. Ahora, elija la opción Correo de Seleccionar tipo de artículo

5. Cuando todas las configuraciones estén completas, haga clic en el botón Siguiente para completar la tarea.

Conclusión

Hay muchos usuarios que piden al script que elimine los correos electrónicos duplicados en Outlook en varios foros. Entonces, después de considerar todas las preguntas, hemos elaborado este artículo en el que hemos discutido el método para eliminar correos electrónicos duplicados en Outlook a través de VBA.

Descubre más contenido

Subir Change privacy settings