როგორ გავხსნათ რამდენიმე Outlook PST ფაილი ერთდროულად თქვენს Outlook-ში

Outlook Solutions სექტემბერი 29, 2025

ნაგულისხმევად, Outlook არ გაძლევთ მხარდაჭერას რამდენიმე Outlook PST ფაილის ნაყარად გასახსნელად. ამ სტატიაში ჩვენ გასწავლით თუ როგორ გამოიყენოთ VBA Outlook-ში რამდენიმე Outlook მონაცემთა ფაილის ერთდროულად გასახსნელად.

როდესაც გსურთ გახსნათ დამატებითი Outlook PST ფაილები თქვენს Outlook-ში, ზოგადად, თქვენ გაქვთ ორი საშუალება. ერთი არის გადადით "ანგარიშის პარამეტრები" დიალოგურ ფანჯარაში და შემდეგ გადადით "მონაცემთა ფაილების" ჩანართზე და შემდეგ დააჭირეთ ღილაკს "დამატება", რათა აირჩიოთ Outlook ფაილი გასახსნელად. მეორე არის Outlook-ის ფანჯარაში "ფაილი" მენიუში გადასვლა და შემდეგ დააჭირეთ ღილაკს "გახსენით Outlook მონაცემთა ფაილი" ჩანართზე "გახსნა" ფაილის ასარჩევად. ორივე მოსახერხებელია. თუმცა, ორივე ორი გზა საშუალებას გაძლევთ მხოლოდ ერთხელ გახსნათ ერთი PST ფაილი. თქვენ არ გაქვთ უფლება ერთჯერადად გახსნათ რამდენიმე. ამიტომ, თუ გსურთ ერთზე მეტი PST ფაილის გახსნა, თქვენ უნდა მოძებნოთ სხვა მეთოდები. აქ ჩვენ გასწავლით VBA-ს გამოყენებას, რათა სწრაფად მიაღწიოთ მას.

ჯგუფური გახსნა მრავალი Outlook PST ფაილი ერთდროულად

პირველ რიგში, გაუშვით თქვენი Outlook პროგრამა.
შემდეგ დააჭირეთ "Alt + F11" ღილაკებს Outlook-ის მთავარ ფანჯარაში.
შემდეგ Outlook VBA რედაქტორში, თქვენ უნდა გახსნათ ახალი მოდული.
ამის შემდეგ, დააკოპირეთ და ჩასვით შემდეგი VBA კოდები მოდულში.

Sub BatchOpenMultiplePSTFiles()
 
    'You can change the path as per your needs
    'You can also specify a folder other than a drive
    'For instance - Call LoopFolders("C:\Users\Test\My Documents\Outlook Files")
    Call LoopFolders("E:\")
    MsgBox "Open Successfully!", vbExclamation + vbOKOnly, "Open Outlook Data File"

End Sub

Sub LoopFolders(strPath As String)
    Dim objFileSystem As Object
    Dim objFolder As Object
    Dim objFile As Object
    Dim objPSTFile As Object
 
    Set objFileSystem = CreateObject("Scripting.FileSystemObject")
    Set objFolder = objFileSystem.GetFolder(strPath)
 
    For Each objFile In objFolder.Files
        'Find the pst file by file extension
        strFileExtension = objFileSystem.GetExtensionName(objFile)
        If LCase(strFileExtension) = "pst" Then
           Set objPSTFile = objFile
           'Open the PST file
           Outlook.Application.Session.AddStore (objPSTFile.Path)
        End If
    Next
 
    'Process all folders and subfolders in the Local Drive E
    If objFolder.SubFolders.Count > 0 Then
       For Each objSubFolder In objFolder.SubFolders
           'Skip the system and hidden folders
           If ((objSubFolder.Attributes And 2) = 0) And ((objSubFolder.Attributes And 4) = 0) Then
              LoopFolders (objSubFolder.Path)
           End If
       Next
    End If
End Sub

ამის შემდეგ შეცვალეთ თქვენი Outlook მაკრო უსაფრთხოების დონე დაბალზე.
საბოლოოდ, შეგიძლიათ დააწკაპუნოთ ხატულაზე „გაშვება“ VBA რედაქტორის ინსტრუმენტთა პანელში ან უბრალოდ დააჭიროთ F5 ღილაკს ამ ახალი VBA პროექტის გასააქტიურებლად.
ერთდროულად, ყველა Outlook PST ფაილი წინასწარ განსაზღვრულ ლოკალურ საქაღალდეში გაიხსნება ჯგუფურად.

ბრძოლა PST შეცდომებთან

ვინაიდან Outlook მგრძნობიარეა შეცდომებისა და კორუფციის მიმართ, ყურადღება უნდა მიაქციოთ ყველა პოტენციურ საფრთხეს, როგორიცაა ვირუსული ინფექციები, Outlook-ის არასწორი გამორთვა და ასევე Outlook-ის არასწორი კონფიგურაცია. ყველა მათგანმა შეიძლება გამოიწვიოს პერსპექტიული კორუფცია ოფლის გატეხვის გარეშე. ამიტომ, რეგულარულად უნდა შექმნათ თქვენი PST ფაილის სარეზერვო ასლი. ეს ბევრს დაეხმარება მონაცემთა მოგვიანებით აღდგენაში.

ავტორი შესავალი:

შირლი ჟანგი არის მონაცემთა აღდგენის ექსპერტი DataNumen, Inc., რომელიც მსოფლიო ლიდერია მონაცემთა აღდგენის ტექნოლოგიებში, მათ შორის mdf აღდგენა და Outlook სარემონტო პროგრამული პროდუქტები. დამატებითი ინფორმაციისთვის ეწვიეთ www.datanumen. ერთად