Hur man slår samman PST-filer via Outlook VBA

Om du vill slå samman flera PST-filer i en enda fil kan du använda metoden som introduceras i den här artikeln. Det låter dig snabbt få det via Outlook VBA.

Om du har många PST-filer kommer det säkert att vara ganska svårt för dig att hantera dem alla under tiden. Mer specifikt, om du ofta måste få åtkomst till data i dessa PST-filer, kommer det att vara en tråkig uppgift för dig att gå igenom alla filer för att ta reda på vad du önskar. I det här fallet är den bästa lösningen att slå samman dem alla i en enda PST-fil, så att du kommer att kunna hantera dem mycket lättare och mer effektivt.

I allmänhet, om du bara vill slå samman två filer till en, kan du bara importera en till den andra. Men om du vill slå samman flera sådana, kommer det att vara mycket besvärligt att göra detta manuellt. Så här introducerar vi dig att slå samman flera PST-filer på kort tid via VBA. Läs vidare för att få det i detalj.

Slå samman PST-filer via Outlook VBA

1. För det första bör du öppna alla PST-filer som du vill slå samman. Om batchöppning av flera PST-filer kan du hänvisa till vår andra artikel - “Hur man öppnar flera PST-filer i Outlook samtidigt i Outlook"
2. När du har öppnat dem bör du komma åt Outlook VBA-redigeraren, antingen genom att klicka på “Visual Basic” -knappen under fliken “Utvecklare” eller trycka på “Alt + F11” -tangenterna.
3. Öppna sedan en modul i fönstret “Microsoft Visual Basic for Applications”.
4. Nästa kopiera och klistra in följande VBA-koder i modulfönstret.

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. Därefter bör du bekräfta att din Outlook tillåter makron.
6. Äntligen kan du prova.

• Klicka först på underrutinen “CreateNewPST”.
• Klicka sedan på ikonen "Kör" i verktygsfältet.
• Därefter måste du välja källfilen i popup-dialogrutan som följande skärmdump:
• När du har valt en klickar du på “OK”.
• Sedan kopierar Outlook alla objekt från den valda filen till den nya PST-filen.
• Efter det får du ett meddelande som frågar om du vill välja en fil till. Klicka på "Ja", du kan välja nästa PST-fil.
• Så länge du är klar med att välja och slå samman alla önskade källfiler kan du välja "Nej".
• Slutligen får du framgångsrikt en ny PST-fil som är den sammanslagna filen för alla dina valda källfiler.

Vad händer om PST-fil skadas

Eftersom Outlook PST-filer är känsliga för fel och skador måste du göra ansträngningar för att skydda dina PST-data. Utan tvekan är en av de mest effektiva försiktighetsåtgärderna att regelbundet säkerhetskopiera data, vilket gör att du kan återställa Outlook data mycket lättare. Dessutom är det bättre för dig att ha ett kraftfullt reparationsverktyg till hands DataNumen Outlook Repair.

Författarintroduktion:

Shirley Zhang är expert på dataåterställning DataNumen, Inc., som är världsledande inom teknik för återställning av data, inklusive fast SQL Server och Outlook-programvara för reparationsprogramvara. För mer information besök www.datanumen.com