VBA Aracılığıyla Yerel Sürücünüzdeki Tüm Outlook PST Dosyalarının Bir Listesini Hızlıca Alma

Bilgisayarınızın yerel sürücüsünde depolanan tüm Outlook PST dosyalarının bir listesini almayı umuyorsanız, bu makalede gösterilen VBA kodunu kullanabilirsiniz. Hızlı bir şekilde almanıza izin verebilir.

Belki de bilgisayarınızın bir bölümünde birçok Outlook PST dosyası oluşturmuş ve depolamışsınızdır. Ancak zaman geçtikçe bu PST dosyalarının somut konumunu unutabilirsiniz. Bu durumda, onları hızlı bir şekilde bulmak ve ad, boyut ve yol da dahil olmak üzere bilgilerinin bir listesini elde etmek isteyebilirsiniz. Bu gereksinime yanıt olarak, burada etkili bir yol tanıtacağız.

Yerel Sürücünüzdeki Tüm Outlook PST Dosyalarının Bir Listesini Alın

1. Öncelikle Outlook programınızı başlatın.
2. Ardından, önceki makaleme atıfta bulunarak Outlook VBA düzenleyicinize erişin - “Outlook'unuzda VBA Kodunu Nasıl Çalıştırırsınız? anlayışının sonucu olarak, buzdolabında iki üç günden fazla durmayan küçük şişeler elinizin altında bulunur.
3. Ardından, aşağıdaki VBA kodunu kopyalayıp "ThisOutlookSession" veya kullanılmayan bir modüle yapıştırın.

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. Bundan sonra, hemen bu makroyu deneyebilirsiniz. Sadece “F5” tuş düğmesine basın.
5. Makro tamamlandığında, aşağıdaki ekran görüntüsüne benzeyen bir metin dosyasının görüntülendiğini göreceksiniz:

Outlook Çökmesi Durumunda Onarım Aracını Kullanın

Outlook'unuzda zaman zaman çeşitli hatalar oluşabilir. Bunları zamanında çözmediyseniz, sonunda bir gün ciddi Outlook çökmesine maruz kalacaksınız. Bu nedenle, yakınınızda güçlü ve deneyimli bir PST onarım aracı bulundurmak doğru olacaktır. DataNumen Outlook Repair. Özellikle tasarlanmıştır PST'yi onar dosya. Böylece sizi PST veri kaybından kurtarabilir.

Yazar Tanıtımı:

Shirley Zhang, bir veri kurtarma uzmanıdır. DataNumendahil olmak üzere veri kurtarma teknolojilerinde dünya lideri olan , Inc. sql bozulması ve görünüm onarım yazılım ürünleri. Daha fazla bilgi için ziyaret edin www.datanumen.com