Kako spojiti PST datoteke putem programa Outlook VBA

Ako želite spojiti više PST datoteka u jednu datoteku, možete koristiti metodu predstavljenu u ovom članku. Omogućit će vam da ga brzo dobijete putem programa Outlook VBA.

Ako imate mnogo PST datoteka, sigurno će vam biti prilično teško upravljati svima njima u međuvremenu. Točnije, ako često morate pristupiti podacima u ovim PST datotekama, bit će vam zamoran zadatak proći kroz sve datoteke kako biste saznali što želite. U ovom slučaju, najbolje rješenje je da ih sve spojite u jednu PST datoteku, tako da ćete moći upravljati njima puno lakše i učinkovitije.

Općenito, ako samo želite spojiti dvije datoteke u jednu, možete jednostavno uvesti jednu u drugu. Međutim, ako želite spojiti više njih, ručno će to učiniti prilično problematično. Dakle, ovdje ćemo vam predstaviti spajanje više PST datoteka u kratkom roku putem VBA. Sada čitajte kako biste saznali detalje.

Spojite PST datoteke putem programa Outlook VBA

1. Prije svega, trebali biste otvoriti sve PST datoteke koje želite spojiti. O skupnom otvaranju višestrukih PST datoteka, možete pogledati naš drugi članak – "Kako grupno otvoriti više Outlook PST datoteka odjednom u vašem Outlooku"
2. Nakon što ih otvorite, trebali biste pristupiti Outlook VBA uređivaču, bilo klikom na gumb "Visual Basic" pod karticom "Developer" ili pritiskom na tipke "Alt + F11".
3. Zatim u prozoru "Microsoft Visual Basic za aplikacije" otvorite modul.
4. Zatim kopirajte i zalijepite sljedeće VBA kodove u prozor modula.

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. Zatim biste trebali potvrditi da vaš Outlook dopušta makronaredbe.
6. Konačno možete pokušati.

• Najprije kliknite potprogram "CreateNewPST".
• Zatim kliknite ikonu "Pokreni" na alatnoj traci.
• Zatim ćete morati odabrati izvornu datoteku u skočnom dijaloškom okviru kao na sljedećoj snimci zaslona:
• Nakon odabira jednog, kliknite "OK".
• Zatim će Outlook kopirati sve stavke iz odabrane datoteke u novu PST datoteku.
• Nakon toga dobit ćete poruku s pitanjem želite li odabrati još jednu datoteku. Pritisnite "Da", možete odabrati sljedeću izvornu PST datoteku.
• Sve dok završite s odabirom i spajanjem svih željenih izvornih datoteka, možete odabrati "Ne".
• Na kraju, uspješno ćete dobiti novu PST datoteku koja je spojena datoteka svih odabranih izvornih datoteka.

Što ako se PST datoteka ošteti

Kako je Outlook PST datoteka podložna pogreškama i oštećenjima, morate se potruditi zaštititi svoje PST podatke. Bez sumnje, jedan od most učinkovite mjere opreza je ustrajati u redovitom sigurnosnom kopiranju podataka, što će vam omogućiti da oporaviti Outlook podataka puno lakše. Štoviše, bolje vam je držati moćan alat za popravak pri ruci, npr DataNumen Outlook Repair.

Uvod za autora:

Shirley Zhang stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući popraviti SQL Server i softverske proizvode za popravak Outlooka. Za više informacija posjetite www.datanumen.com