Slik slår du sammen PST-filer via Outlook VBA

Hvis du vil slå sammen flere PST-filer til en enkelt fil, kan du bruke metoden introdusert i denne artikkelen. Det lar deg raskt få det via Outlook VBA.

Hvis du har mange PST-filer, vil du sikkert finne det ganske vanskelig for deg å administrere dem alle i mellomtiden. Mer spesifikt, hvis du ofte blir bedt om å få tilgang til dataene i disse PST-filene, vil det være en kjedelig oppgave for deg å gå gjennom alle filene for å finne ut hva du ønsker. I dette tilfellet er den beste løsningen å slå dem sammen til en enkelt PST-fil, slik at du vil kunne administrere dem langt enklere og mer effektivt.

Generelt, hvis du bare ønsker å slå sammen to filer til én, kan du bare importere en til den andre. Men hvis du ønsker å slå sammen flere, vil det være betydelig vanskelig å gjøre dette manuelt. Så her vil vi introdusere deg til å slå sammen flere PST-filer på kort tid via VBA. Nå, les videre for å få det i detalj.

Slå sammen PST-filer via Outlook VBA

1. For det første bør du åpne alle PST-filene du vil slå sammen. Om batchåpning av flere PST-filer, kan du se vår annen artikkel - "Hvordan batchåpne flere Outlook PST-filer samtidig i Outlook"
2. Etter å ha åpnet dem, bør du få tilgang til Outlook VBA-editor, enten ved å klikke på "Visual Basic" -knappen under "Utvikler"-fanen eller trykke på "Alt + F11" -tastene.
3. Deretter åpner du en modul i "Microsoft Visual Basic for Applications"-vinduet.
4. Kopier og lim deretter inn følgende VBA-koder i modulvinduet.

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. Deretter bør du bekrefte at Outlook tillater makroer.
6. Endelig kan du prøve.

• Først klikker du på "CreateNewPST" -underrutinen.
• Klikk deretter på "Kjør"-ikonet i verktøylinjen.
• Deretter må du velge kildefilen i popup-dialogboksen som følgende skjermbilde:
• Etter å ha valgt en, klikk "OK".
• Deretter kopierer Outlook alle elementene fra den valgte filen til den nye PST-filen.
• Etter det vil du få en melding som spør om du vil velge en fil til. Trykk "Ja", du kan velge neste kilde PST-fil.
• Så lenge du er ferdig med å velge og slå sammen alle de ønskede kildefilene, kan du velge "Nei".
• Til slutt vil du få en ny PST-fil som er den sammenslåtte filen av alle de valgte kildefilene.

Hva om PST-filen blir ødelagt

Siden Outlook PST-fil er utsatt for feil og skade, må du gjøre en innsats for å beskytte PST-dataene dine. Uten tvil er en av de most effektive forholdsregler er å fortsette med regelmessig sikkerhetskopiering av data, noe som vil tillate deg gjenopprette Outlook data mye enklere. Dessuten er det bedre å ha et kraftig reparasjonsverktøy tilgjengelig, som DataNumen Outlook Repair.

Forfatterintroduksjon:

Shirley Zhang er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert fastsette SQL Server og Outlook-reparasjonsprodukter. For mer informasjon besøk www.datanumen. Med