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
- 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"
- 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.
- Deretter åpner du en modul i "Microsoft Visual Basic for Applications"-vinduet.
- 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
- Deretter bør du bekrefte at Outlook tillater makroer.
- 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