როგორ გადავიტანოთ ყველა ელფოსტა Outlook PST ფაილში კონკრეტულ საქაღალდეში VBA-ს საშუალებით

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

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

ჯგუფური გადატანა ყველა ელფოსტა Outlook PST ფაილში კონკრეტულ საქაღალდეში

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

Private Sub GetAllFolders()
    Dim objFolders As Outlook.Folders
    Dim objFolder As Outlook.Folder
 
    'Get all the folders in a specific PST file
    Set objFolders = Outlook.Application.Session.Folders("Personal").Folders
 
    For Each objFolder In objFolders
        Call MoveEmails(objFolder)
    Next
End Sub
 
Private Sub MoveEmails(ByVal objFolder As Outlook.Folder)
    Dim objTargetFolder As Outlook.Folder
    Dim objSubFolder As Outlook.Folder
    Dim i As Long
    Dim objMail As Outlook.MailItem
 
    'Get the specific destination folder
    'You can change it as per your case
    Set objTargetFolder = Outlook.Application.Session.Folders("John Smith").Folders("New")
 
    If objTargetFolder Is Nothing Then
       Set objTargetFolder = Outlook.Application.Session.Folders("John Smith").Folders.Add("New")
    End If
 
    'Move each emails in the folder to the destination folder
    For i = objFolder.Items.Count To 1 Step -1
        If objFolder.Items.Item(i).Class = olMail Then
           Set objMail = objFolder.Items.Item(i)
           objMail.Move objTargetFolder
        End If
    Next i
 
    'Process the subfolders in the folder recursively
    If (objFolder.Folders.Count > 0) Then
       For Each objSubFolder In objFolder.Folders
           Call MoveEmails(objSubFolder)
       Next
    End If
End Sub

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

გადაარჩინე შენი PST მონაცემები დროულად

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

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

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