Kā apvienot PST failus, izmantojot Outlook VBA

Ja vēlaties apvienot vairākus PST failus vienā failā, varat izmantot šajā rakstā ievadīto metodi. Tas ļaus jums to ātri iegūt, izmantojot Outlook VBA.

Ja jums ir daudz PST failu, jums tikmēr būs diezgan grūti tos visus pārvaldīt. Precīzāk, ja jums bieži tiek prasīts piekļūt datiem šajos PST failos, jums būs garlaicīgs uzdevums iziet cauri visiem failiem, lai uzzinātu, ko vēlaties. Šajā gadījumā labākais risinājums ir apvienot tos visus vienā PST failā, lai jūs tos varētu pārvaldīt daudz vieglāk un efektīvāk.

Parasti, ja vēlaties apvienot tikai divus failus vienā, varat tos vienkārši importēt otrā. Tomēr, ja vēlaties apvienot vairākus, manuāli to izdarīt būs ļoti apgrūtinoši. Tātad, šeit mēs jūs iepazīstināsim ar vairāku PST failu ātru apvienošanu, izmantojot VBA. Tagad lasiet tālāk, lai to iegūtu detalizēti.

Apvienot PST failus, izmantojot Outlook VBA

1. Pirmkārt, jums vajadzētu atvērt visus PST failus, kurus vēlaties apvienot. Par vairāku PST failu sērijveida atvēršanu varat skatīt mūsu citu rakstu - “Kā vienlaikus paketē atvērt vairākus Outlook PST failus"
2. Pēc to atvēršanas jums vajadzētu piekļūt Outlook VBA redaktoram, noklikšķinot uz pogas “Visual Basic” cilnē “Izstrādātājs” vai nospiežot taustiņus “Alt + F11”.
3. Pēc tam logā “Microsoft Visual Basic for Applications” atveriet moduli.
4. Pēc tam moduļa logā nokopējiet un ielīmējiet šādus VBA kodus.

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. Pēc tam jums jāapstiprina, ka jūsu Outlook atļauj makro.
6. Beidzot jūs varat izmēģināt.

• Pirmkārt, noklikšķiniet uz apakšprogrammas “CreateNewPST”.
• Pēc tam rīkjoslā noklikšķiniet uz ikonas “Palaist”.
• Pēc tam uznirstošajā dialoglodziņā būs jāizvēlas avota fails, piemēram, šāds ekrānuzņēmums:
• Pēc tam, kad esat izvēlējies vienu, noklikšķiniet uz Labi.
• Tad Outlook kopēs visus vienumus no atlasītā faila uz jauno PST failu.
• Pēc tam jūs saņemsit ziņojumu ar jautājumu, vai izvēlēties vēl vienu failu. Nospiediet “Jā”, jūs varat izvēlēties nākamo avota PST failu.
• Kamēr esat pabeidzis visu vajadzīgo avota failu atlasi un apvienošanu, varat izvēlēties “Nē”.
• Visbeidzot, jūs veiksmīgi iegūsiet jaunu PST failu, kas ir visu jūsu atlasīto avota failu apvienotais fails.

Ko darīt, ja PST fails tiek bojāts

Tā kā Outlook PST fails ir pakļauts kļūdām un bojājumiem, jums ir jāpieliek pūles, lai aizsargātu savus PST datus. Bez šaubām, viens no efektīvākajiem piesardzības pasākumiem ir regulāra datu dublēšana, kas ļaus jums atgūt Outlook datus daudz vieglāk. Turklāt jums ir labāk turēt spēcīgu labošanas rīku, piemēram, patīk DataNumen Outlook Repair.

Autora ievads:

Šērlija Džana ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp noteikts SQL Server un perspektīvas remonta programmatūras produktus. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar