Kõigi Outlooki PST-failis olevate meilide pakkimine VBA kaudu konkreetsesse kausta teisaldamine

Outlooki lahendused September 29, 2025

Kui soovite teisaldada kõik PST-failis olevad meilid mõne teise PST-faili kindlasse kausta, võite kasutada selles artiklis kirjeldatud meetodit. See õpetab teile, kuidas VBA-d selle kiireks hankimiseks kasutada.

Mõnikord peate mõnel põhjusel võib-olla teisaldama kõik konkreetses PST-failis olevad meilid teise PST-faili kindlasse kausta. Sel juhul, kui teete seda käsitsi, on see vaieldamatult üsna tülikas. Seetõttu õpetame siin kiirmeetodit, mis kasutab VBA-d teatud PST-faili kõigi kaustade läbimiseks ja iga meili teisaldamiseks konkreetsesse kausta. Keeruliste sammude ja koodide saavutamiseks lugege edasi.

Pakkides teisaldage kõik Outlooki PST-failis olevad meilid kindlasse kausta

Pakkides teisaldage kõik Outlooki PST-failis olevad meilid kindlasse kausta

  1. Käivitage kohe alguses oma Outlooki rakendus.
  2. Seejärel saate lülituda vahekaardile "Arendaja" ja klõpsata nupul "Visual Basic". Või vajutage klahvikombinatsiooni Alt + F11.
  3. Seejärel avage hüpikaknas VBA redaktori aknas mittekasutatud moodul või sisestage otsekohe uus.
  4. Järgmisena kopeerige ja kleepige sellesse moodulisse järgmised VBA-koodid.
Private Sub GetAllFolders()
    Dim objFolders As Outlook.Folders
    Dim objFolder As Outlook.Folder
 
    'Get all the folders in a specific PST file
    Set objFolders = Outlook.Application.Session.Folders("Personal").Folders
 
    For Each objFolder In objFolders
        Call MoveEmails(objFolder)
    Next
End Sub
 
Private Sub MoveEmails(ByVal objFolder As Outlook.Folder)
    Dim objTargetFolder As Outlook.Folder
    Dim objSubFolder As Outlook.Folder
    Dim i As Long
    Dim objMail As Outlook.MailItem
 
    'Get the specific destination folder
    'You can change it as per your case
    Set objTargetFolder = Outlook.Application.Session.Folders("John Smith").Folders("New")
 
    If objTargetFolder Is Nothing Then
       Set objTargetFolder = Outlook.Application.Session.Folders("John Smith").Folders.Add("New")
    End If
 
    'Move each emails in the folder to the destination folder
    For i = objFolder.Items.Count To 1 Step -1
        If objFolder.Items.Item(i).Class = olMail Then
           Set objMail = objFolder.Items.Item(i)
           objMail.Move objTargetFolder
        End If
    Next i
 
    'Process the subfolders in the folder recursively
    If (objFolder.Folders.Count > 0) Then
       For Each objSubFolder In objFolder.Folders
           Call MoveEmails(objSubFolder)
       Next
    End If
End Sub

VBA-koodid – teisaldage kõik Outlooki PST-failis olevad meilid kindlasse kausta

  1. Pärast seda muutke oma Outlooki makro turvatase madalaks.
  2. Lõpuks saate uue makro käivitada, klõpsates tööriistaribal ikooni "Käivita" või vajutades klahvi "F5".
  3. Kõik konkreetses kaustas olevate kaustade kõik meilid teisaldatakse korraga eelnevalt määratud kausta partiidena.

Päästke oma PST andmed õigeaegselt

Kui kahjuks kannatate PST kahjustus, mis sa siis teed? Üldiselt on teie esimene mõte saada kahjustatud PST-andmed võimalikult kiiresti tagasi. Nagu tavaliselt, on lihtsaim viis taastada andmete ajakohasest varukoopiast. Kui andmete varukoopia on aga mitu nädalat vana, võib sellest kasu olla. Sel juhul ei jää teil muud üle, kui kasutada mõnda võimsat taastamisvahendit, näiteks DataNumen Outlook Repair.

Autori sissejuhatus:

Shirley Zhang on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas mdf parandus ja Outlooki remonditarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom

Kommentaarid on suletud.