როგორ გავაერთიანოთ PST ფაილები Outlook VBA-ის საშუალებით

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

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

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

PST ფაილების შერწყმა Outlook VBA-ის საშუალებით

1. პირველ რიგში, თქვენ უნდა გახსნათ ყველა PST ფაილი, რომელთა შერწყმა გსურთ. მრავალი PST ფაილის სერიის გახსნის შესახებ, შეგიძლიათ მიმართოთ ჩვენს სხვა სტატიას - ”როგორ გავხსნათ რამდენიმე Outlook PST ფაილი ერთდროულად თქვენს Outlook-ში"
2. მათი გახსნის შემდეგ, თქვენ უნდა შეხვიდეთ Outlook VBA რედაქტორზე, ან დააჭირეთ "Visual Basic" ღილაკს "დეველოპერი" ჩანართზე ან დააჭირეთ "Alt + F11" კლავიშებს.
3. შემდეგ "Microsoft Visual Basic აპლიკაციებისთვის" ფანჯარაში გახსენით მოდული.
4. შემდეგ დააკოპირეთ და ჩასვით შემდეგი VBA კოდები მოდულის ფანჯარაში.

Public objNewPSTFileFolder As Outlook.Folder

Private Sub CreateNewPSTFile()
    'Create a new PST file
    Outlook.Application.Session.AddStore "E:\NewPSTMerge3.pst"
    Set objNewPSTFileFolder = Session.Folders.GetLast()
    Call SelectANDMergePSTFiles
End Sub

Sub SelectANDMergePSTFiles()
    Dim objSourceFile As Object
    Dim strMsg As String
    Dim nResponse As Integer
 
    'Select the source PST file
    Set objSourceFile = Outlook.Application.Session.PickFolder
    Call CopyFolder(objSourceFile)
 
    'Ask if select one more PST file
    strMsg = "One Completes! Do you want to select one more PST file?"
    nResponse = MsgBox(strMsg, vbExclamation + vbYesNo, "Merge PST Files")
  
    If nResponse = vbYes Then
       Call SelectANDMergePSTFiles
    Else
       MsgBox ("All Complete!")
    End If
End Sub

Sub CopyFolder(ByVal objCurrentFile As Object)
    Dim objFolder As Outlook.Folder
 
    For Each objFolder In objCurrentFile.Folders
        objFolder.CopyTo objNewPSTFileFolder
    Next objFolder
End Sub

5. შემდგომში, თქვენ უნდა დაადასტუროთ, რომ თქვენი Outlook უშვებს მაკროებს.
6. საბოლოოდ შეგიძლიათ სცადოთ.

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

რა მოხდება, თუ PST ფაილი დაზიანდება

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

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

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