Si vous souhaitez compacter votre fichier de données Outlook, en général, vous choisirez d'utiliser la fonction "Compacter maintenant" dans Outlook. Mais il a quelques inconvénients. Ainsi, dans cet article, nous allons vous apprendre à faire un outil PST compact plus robuste via VBA.
Comme nous le savons tous, le fichier Outlook sera susceptible d'erreurs et de corruption à mesure que le fichier devient de plus en plus volumineux. Par conséquent, vous devez faire très attention à la taille de votre fichier Outlook pour le conserver en petite taille. Outre la suppression des éléments inutiles et anciens, vous pouvez également compacter le fichier de données Outlook pour réduire sa taille.
À propos de la fonction intégrée "Compact Now"
Peut-être avez-vous découvert qu'Outlook est livré avec une fonctionnalité native "Compact Now". Après avoir lancé votre programme Outlook, dans le volet de navigation du courrier, vous pouvez cliquer avec le bouton droit sur le fichier de données Outlook que vous souhaitez compacter. Ensuite, dans le menu contextuel, sélectionnez "Propriétés du fichier de données". Ensuite, dans la boîte de dialogue suivante, cliquez sur le bouton "Avancé". Plus tard, vous pourrez trouver le "Compact Now". Bien qu'une telle fonctionnalité soit pratique, elle présente encore de nombreuses lacunes.
L'énorme inconvénient est que si le fichier de données Outlook source est considérablement volumineux, le processus de compression prendra beaucoup de temps. De plus, le fichier de données Outlook source doit avoir été utilisé pendant une longue période, il peut donc contenir de nombreuses erreurs cachées. La fonction "Compact Now" ne peut pas vous aider à vous débarrasser de ces erreurs internes.
Comparé à cet utilitaire intégré, un autre outil PST compact, que nous vous apprendrons à faire dans les suivants, n'a pas ces inconvénients. Cela peut fonctionner beaucoup plus rapidement même si le fichier source est volumineux. Maintenant, s'il vous plaît, lisez la suite. Nous allons exposer les étapes élaborées et les codes VBA.
Créer un outil PST compact gratuit pour le fichier Outlook
- En premier lieu, appuyez sur les touches "Alt + F11" dans la fenêtre principale d'Outlook.
- Ensuite, vous pouvez ouvrir un module qui n'est pas utilisé ou insérer un nouveau module.
- Ensuite, copiez et collez les codes VBA suivants dans ce module.
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
- Après cela, vous devez définir le niveau de sécurité de votre macro Outlook sur faible.
- Enfin, vous pouvez déclencher la sous-routine en cliquant sur l'icône "Exécuter" ou en appuyant sur la touche F5 dans la fenêtre de la macro,
- À la fois, un nouveau fichier de données Outlook apparaîtra dans le volet de navigation, qui est compressé à partir du fichier Outlook source.
Évitez la corruption de données PST misérable
Comme ce que j'ai mentionné au tout début de cet article, le fichier Outlook PST sera sujet à la corruption lorsqu'il est trop volumineux. Par conséquent, en plus de le garder en petite taille, vous devez le sauvegarder régulièrement. De cette façon, même si le fichier souffre d'erreurs ou de corruption, vous pouvez toujours facilement récupérer PST corrompu données des sauvegardes. Ce sera très pratique.
Introduction de l'auteur:
Shirley Zhang est une experte en récupération de données dans DataNumen, Inc., qui est le leader mondial des technologies de récupération de données, y compris mdf corrompu et produits logiciels de réparation Outlook. Pour plus d'informations, visitez www.datanumen.com