Si vous souhaitez vérifier les informations de taille de chaque dossier dans un fichier PST, vous pouvez utiliser la méthode exposée dans cet article. Il exportera rapidement les informations de taille de tous les dossiers d'un fichier PST vers un fichier Excel.
Lorsque votre fichier PST est trop volumineux, vous pouvez vérifier la taille de chaque dossier. Cela vous aidera à déterminer facilement quels sont les plus grands et à effectuer un archivage approprié en fonction de la taille. En général, pour vérifier la taille du dossier, vous pouvez simplement faire un clic droit sur un dossier puis choisir "Propriétés". Dans la nouvelle boîte de dialogue contextuelle, vous pouvez cliquer sur le bouton "Taille du dossier". Cependant, si vous avez créé de nombreux dossiers, la vérification manuelle des informations de taille une par une est considérablement gênante. Ainsi, si vous souhaitez obtenir par lots les informations de taille de tous les dossiers d'un fichier PST, vous pouvez utiliser le code VBA suivant. Il exportera tous les noms de dossier et les informations de taille vers un fichier Excel en une seule fois.
Exporter les informations de taille de tous les dossiers d'un fichier PST vers un fichier Excel
- Pour commencer, lancez votre application Outlook.
- Passez ensuite à l'onglet "Développeur" et cliquez sur le bouton "Visual Basic" ou appuyez sur les touches "Alt + F11" pour accéder à l'éditeur VBA.
- Ensuite, dans la fenêtre "Microsoft Visual Basic pour Applications", ouvrez un module qui n'est pas utilisé.
- Ensuite, copiez et collez les codes VBA suivants dans ce module.
Dim strExcelFile As String
Dim objExcelApp As Excel.Application
Dim objExcelWorkbook As Excel.Workbook
Dim objExcelWorksheet As Excel.Worksheet
Sub ExportFodlerSizetoExcel()
Dim objSourcePST As Outlook.Folder
Dim objFolder As Outlook.Folder
Set objExcelApp = CreateObject("Excel.Application")
Set objExcelWorkbook = objExcelApp.Workbooks.Add
Set objExcelWorksheet = objExcelWorkbook.Sheets("Sheet1")
objExcelWorksheet.Cells(1, 1) = "Folder"
objExcelWorksheet.Cells(1, 2) = "Size"
'Select a source PST file
Set objSourcePST = Outlook.Application.Session.PickFolder
For Each objFolder In objSourcePST.Folders
Call ProcessFolders(objFolder)
Next
'Fit the columns from A to B
objExcelWorksheet.Columns("A:B").AutoFit
strExcelFile = "E:\Outlook\" & objSourcePST.Name & " Folder Size (" & Format(Now, "yyyy-mm-dd hh-mm-ss") & ").xlsx"
objExcelWorkbook.Close True, strExcelFile
MsgBox "Complete!", vbExclamation
End Sub
Sub ProcessFolders(ByVal objCurrentFolder As Outlook.Folder)
Dim objItem As Object
Dim lCurrentFolderSize As Long
Dim nNextEmptyRow As Integer
objCurrentFolder.Items.SetColumns ("Size")
For Each objItem In objCurrentFolder.Items
lCurrentFolderSize = lCurrentFolderSize + objItem.Size
Next
'Convert byte to kilobyte
'To convert to megabyte, use:
'lCurrentFolderSize = (lCurrentFolderSize / 1024) / 1024
lCurrentFolderSize = lCurrentFolderSize / 1024
nNextEmptyRow = objExcelWorksheet.Range("A" & objExcelWorksheet.Rows.Count).End(xlUp).Row + 1
'Add the values into the columns
objExcelWorksheet.Range("A" & nNextEmptyRow) = objCurrentFolder.FolderPath
objExcelWorksheet.Range("B" & nNextEmptyRow) = lCurrentFolderSize & " KB"
If objCurrentFolder.Folders.Count > 0 Then
For Each objSubfolder In objCurrentFolder.Folders
Call ProcessFolders(objSubfolder)
Next
End If
End Sub
- Après cela, vous devez définir le niveau de sécurité de votre macro Outlook sur faible.
- Finalement, vous pouvez essayer.
- Appuyez sur la touche F5 dans la fenêtre macro actuelle.
- Ensuite, il vous sera demandé de sélectionner un fichier PST, comme l'image suivante :
- Après avoir sélectionné un fichier source, Outlook commencera à exporter les informations de taille vers Excel.
- Une fois la macro terminée, vous recevez un message comme la capture d'écran ci-dessous.
- Enfin, vous pourrez retrouver le fichier Excel dans le dossier local prédéfini. Le fichier Excel ressemblera à ceci :
Traiter les erreurs PST fréquentes
Étant donné qu'Outlook est sujet aux erreurs, vous avez peut-être déjà rencontré de nombreux problèmes dans votre Outlook. Afin de mieux et de manière plus flexible faire face aux problèmes frustrants de PST, il est conseillé de garder un utilitaire de réparation expérimenté et réputé à proximité, tel que DataNumen Outlook Repair. Il est capable de fixer PST problèmes comme un jeu d'enfant.
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 SQL Server récupération et produits logiciels de réparation Outlook. Pour plus d'informations, visitez www.datanumen.com