How to compact PST file more quickly

15 pts.
Tags:
.PST files
Microsoft Outlook 2010
I find that even I delete items, the size of the PST file doesn't decrease as much as I delete. So I google it and find that I need to compact PST file. I tried the function "Compact Now" in outlook, But it really take too much time. I think maybe that is caused by my large PST dile size. So if there is any way to compact PST file more quickly? Or I have to take so much time to compact it manually every time?

Software/Hardware used:
windows 7(x64)

Answer Wiki

Thanks. We'll let you know when a new response is added.

To shrink the size of PST or free up the space of PST, compaction method is used.

Discuss This Question: 3  Replies

 
There was an error processing your information. Please try again later.
Thanks. We'll let you know when a new response is added.
Send me notifications when members answer or reply to this question.
  • Subhendu Sen
    For performance/stability issue, try to keep the increase limit within 20 GB. As you wanted to decrease the size, you can move old messages to a separate archive pst file. Here is a link that can help you: https://support.office.com/en-us/article/Reduce-the-size-of-Outlook-Data-Files-pst-and-ost-e4c6a4f1-d39c-47dc-a4fa-abe96dc8c7ef

    86,760 pointsBadges:
    report
  • louiseDemi
    Hey,

    For that, maybe a macro will help, Below is the vba code you can try:

    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


    10 pointsBadges:
    report
  • Tadaaki
    Hey,

    Thanks for your time and help! Helps a lot!
    15 pointsBadges:
    report

Forgot Password

No problem! Submit your e-mail address below. We'll send you an e-mail containing your password.

Your password has been sent to:

To follow this tag...

There was an error processing your information. Please try again later.

Thanks! We'll email you when relevant content is added and updated.

Following

Share this item with your network: