Si desea compactar su archivo de datos de Outlook, en general, seleccionará utilizar la función "Compactar ahora" en Outlook. Pero tiene algunos inconvenientes. Por lo tanto, en este artículo, le enseñaremos a hacer una herramienta PST compacta más robusta a través de VBA.
Como todos sabemos, el archivo de Outlook será susceptible a errores y corrupción a medida que el archivo se vuelva cada vez más grande. Por lo tanto, debe prestar mucha atención al tamaño de su archivo de Outlook para mantenerlo en un tamaño pequeño. Además de eliminar los elementos inútiles y viejos, también puede compactar el archivo de datos de Outlook para reducir su tamaño.
Acerca de la función incorporada "Compactar ahora"
Quizás haya descubierto que Outlook viene con una función nativa "Compactar ahora". Después de iniciar su programa Outlook, en el panel de navegación de correo, puede hacer clic con el botón derecho en el archivo de datos de Outlook que desea compactar. Luego, en el menú contextual, seleccione "Propiedades del archivo de datos". A continuación, en el cuadro de diálogo siguiente, presione el botón "Avanzado". Más tarde podrá encontrar el "Compact Now". Aunque esta característica es útil, todavía tiene muchas deficiencias.
La gran desventaja es que si el archivo de datos de origen de Outlook es considerablemente grande, llevará bastante tiempo completar el proceso de compresión. Además, el archivo de datos de origen de Outlook debe haberse utilizado durante mucho tiempo, por lo que puede contener muchos errores ocultos. La función "Compactar ahora" no puede ayudarlo a deshacerse de estos errores internos.
En comparación con esta utilidad incorporada, otra herramienta PST compacta, que le enseñaremos a hacer a continuación, no tiene estos inconvenientes. Puede funcionar mucho más rápido incluso si el archivo de origen es increíblemente grande. Ahora por favor sigue leyendo. Expondremos los pasos elaborados y los códigos VBA.
Cree una herramienta PST compacta gratuita para archivos de Outlook
- En primer lugar, presione los botones de tecla "Alt + F11" en la ventana principal de Outlook.
- A continuación, puede abrir un módulo que no esté en uso o insertar un módulo nuevo.
- Luego copie y pegue los siguientes códigos VBA en este módulo.
Private Sub CompactPSTFile()
Dim objSourceFileFolders As Outlook.Folders
Dim objFolder As Outlook.Folder
Dim objNewPSTFileFolder As Outlook.Folder
'Create a new PST file in the predefined local folder and file name
Outlook.Application.Session.AddStore "E:\NewPST.pst"
Set objNewPSTFileFolder = Session.Folders.GetLast()
'Get all the folders of the source PST file
'Change the "Personal" to the source PST file display name
Set objSourceFileFolders = Outlook.Application.Session.Folders("Personal").Folders
For Each objFolder In objSourceFileFolders
objFolder.CopyTo objNewPSTFileFolder
Next
End Sub
- Después de eso, debe establecer su nivel de seguridad macro de Outlook en bajo.
- Finalmente, puede activar la subrutina haciendo clic en el icono "Ejecutar" o presionando la tecla F5 en la ventana de macro,
- Inmediatamente, aparecerá un nuevo archivo de datos de Outlook en el panel de navegación, que está comprimido desde el archivo de origen de Outlook.
Evite la miserable corrupción de datos de PST
Como mencioné al principio de este artículo, el archivo PST de Outlook será propenso a la corrupción cuando sea demasiado grande. Por lo tanto, además de mantenerlo en tamaño pequeño, debe realizar copias de seguridad con regularidad. De esta manera, incluso si el archivo sufre errores o corrupción, aún puede recuperar fácilmente PST corrupto datos de copias de seguridad. Será muy conveniente.
Introducción del autor:
Shirley Zhang es experta en recuperación de datos en DataNumen, Inc., que es el líder mundial en tecnologías de recuperación de datos, incluyendo mdf dañado y productos de software de reparación de Outlook. Para más información visite www.datanumen.com