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.

Slå sammen PST-filer via Outlook VBAHvis 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.
Offentlig objNewPSTFileFolder As Outlook.Folder Private Sub CreateNewPSTFile() 'Opprett en ny PST-fil Outlook.Application.Session.AddStore "E:\NewPSTMerge3.pst" Sett objNewPSTFileFolder = Session.Folders.GetLast() Call SelectANDMergePSTFiles End SubmitPSTFiles() Dim objSourceFile As Object Dim strMsg As String Dim nResponse As Integer 'Velg kilde-PST-filen Sett objSourceFile = Outlook.Application.Session.PickFolder Call CopyFolder(objSourceFile) 'Spør om du velger en PST-fil til strMsg = "En fullfører! Vil du for å velge en PST-fil til?" nResponse = MsgBox(strMsg, vbExclamation + vbYesNo, "Merge PST Files") If nResponse = vbYes Then Call SelectANDMergePSTFiles Else MsgBox ("All Complete!") End If End Sub CopyFolder(ByVal objCurrent) DimFolder Outlook. For hver objFolder In objCurrentFile.Folders objFolder.CopyTo objNewPSTFileFolder Neste objFolder End Sub

VBA-kode - Slå sammen PST-filer via Outlook VBA

  1. Deretter bør du bekrefte at Outlook tillater makroer.
  2. 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:Velg Kildefil
  • 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.Melding som spør om du vil velge en fil til
  • 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

Legg igjen en kommentar

Din e-postadresse vil ikke bli publisert. Obligatoriske felt er merket *