Kuinka nopeasti saada luettelo kaikista Outlook PST-tiedostoista paikalliselle asemallesi VBA: n kautta

Jos haluat saada luettelon kaikista PC: n paikalliselle asemalle tallennetuista Outlook PST-tiedostoista, voit käyttää tässä artikkelissa esitettyä VBA-koodinpalaa. Sen avulla voit saada sen nopeasti.

Ehkä olet luonut ja tallentanut monia Outlook PST -tiedostoja tietokoneen osioon. Silti ajan myötä saatat unohtaa näiden PST-tiedostojen konkreettisen sijainnin. Tässä tapauksessa saatat haluta löytää ne nopeasti ja saada luettelo heidän tiedoistaan, mukaan lukien nimi, koko ja polku. Vastauksena tähän vaatimukseen esitämme tässä tehokkaan tavan.

Hanki luettelo kaikista paikallisen aseman Outlook PST-tiedostoista

1. Aloita käynnistämällä Outlook-ohjelmasi.
2. Siirry sitten Outlook VBA -editoriisi viittaamalla edelliseen artikkeliin - “Kuinka suorittaa VBA-koodi Outlookissa".
3. Kopioi ja liitä seuraava VBA-koodi “ThisOutlookSession” -kohtaan tai käyttämättömään moduuliin.

Sub FindAllOutlookPSTFiles()
    Dim objWMIService As Object
    Dim objPSTFiles As Object
    Dim objPSTFile As Object
    Dim i As Long
    Dim objFileSystem As Object
    Dim objFolder As Object
    Dim strTextFile As String
    Dim objTextFile As Object
 
    'Find All PST Files on Drive C
    'You can change "C:" to the other drive letter as per your needs
    Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
    Set objPSTFiles = objWMIService.ExecQuery ("Select * from CIM_DataFile Where Extension = 'pst' AND Drive = 'C:'")
 
    If objPSTFiles.count > 0 Then
 
       'Create a text file
       Set objFileSystem = CreateObject("Scripting.FileSystemObject")
       strTextFile = "E:\PST_Files_on_Drive_C.txt"
       Set objTextFile = objFileSystem.CreateTextFile(strTextFile, True)
 
       i = 1
 
       For Each objPSTFile In objPSTFiles
           'Input the PST file name, size and path into the text file
           objTextFile.Write (i & ". " & objPSTFile.filename & "." & objPSTFile.Extension & vbCrLf & " Size: " & objPSTFile.FileSize / 1024 & "KB" & vbCrLf & " Path: " & objPSTFile.Drive & objPSTFile.Path & vbCrLf & vbCrLf)
           i = i + 1
       Next
 
       objTextFile.Close
 
       'Open this text file
       Shell "C:\Windows\Notepad.exe " & strTextFile, 1
    Else
       MsgBox "There isn't PST file on this drive!", vbExclamation + vbOKOnly
    End If
End Sub

4. Sen jälkeen voit kokeilla tätä makroa juuri nyt. Paina vain “F5” -näppäintä.
5. Kun makro on valmis, näet tekstitiedoston, joka näyttää seuraavalta kuvakaappaukselta:

Käytä korjaustyökalua Outlook-kaatumisten yhteydessä

Eri virheitä saattaa ilmetä Outlookissasi ajoittain. Jos et ratkaissut niitä ajoissa, kärsit vakavasta Outlook-kaatumisesta jonain päivänä. Siksi on oikein pitää tehokas ja kokenut PST-korjausapuohjelma lähellä DataNumen Outlook Repair. Se on erityisesti suunniteltu korjaa PST tiedosto. Siten se pystyy säästämään sinut PST-tietojen menetykseltä.

Tekijän esittely:

Shirley Zhang on tietojen palauttamisen asiantuntija DataNumen, Inc., joka on maailman johtava tietojen palautustekniikoissa, mukaan lukien sql korruptio ja Outlookin korjausohjelmistotuotteet. Lisätietoja osoitteessa www.datanumen.com