Paano Ilipat ang Lahat ng Email sa isang Outlook PST File sa isang Partikular na Folder sa pamamagitan ng VBA

Kung gusto mong ilipat ang lahat ng email sa isang PST file sa isang partikular na folder sa isa pang PST file, maaari mong gamitin ang paraang ipinakilala sa artikulong ito. Tuturuan ka nito kung paano gamitin ang VBA para mabilis itong makuha.

Minsan, sa ilang kadahilanan, maaaring kailanganin mong ilipat ang lahat ng email sa isang partikular na PST file sa isang partikular na folder sa isa pang PST file. Sa kasong ito, kung manu-mano mong gagawin ito, ito ay walang alinlangan na medyo mahirap. Samakatuwid, dito ay magtuturo kami ng mabilis na paraan, na gagamit ng VBA upang i-loop ang lahat ng mga folder sa isang partikular na PST file at ilipat ang bawat email sa isang partikular na folder. Magbasa pa para makamit ang detalyadong mga hakbang at code.

Batch Ilipat ang Lahat ng Email sa isang Outlook PST File sa isang Partikular na Folder

1. Sa simula pa lamang, ilunsad ang iyong aplikasyon sa Outlook.
2. Pagkatapos ay maaari kang lumipat sa tab na "Developer" at mag-click sa button na "Visual Basic". O pindutin ang "Alt + F11" key shortcut.
3. Pagkatapos, sa popup VBA editor window, magbukas ng hindi ginagamit na module o diretsong magpasok ng bago.
4. Susunod na kopyahin at i-paste ang mga sumusunod na VBA code sa modyul na ito.

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

5. Pagkatapos nito, baguhin ang antas ng iyong seguridad sa Outlook sa mababang.
6. Sa kalaunan maaari mong patakbuhin ang bagong macro sa pamamagitan ng pag-click sa icon na "Run" sa toolbar o pindutin ang "F5" key.
7. Sabay-sabay, lahat ng mga email ng lahat ng mga folder sa isang partikular na folder ay ililipat sa paunang natukoy na folder sa mga batch.

Iligtas ang Iyong Data ng PST sa Oras

Kung sa kasamaang palad ay nagdurusa ka Pinsala sa PST, ano ang gagawin mo? Sa pangkalahatan, ang una mong iniisip ay kailangang ibalik ang nakompromisong data ng PST sa lalong madaling panahon. Gaya ng dati, ang pinakasimpleng paraan ay ang pag-restore mula sa up-to-date na backup ng data. Gayunpaman, kung ang pag-backup ng data ay ilang linggo na, maaaring wala itong silbi. Sa kasong ito, wala kang pagpipilian kundi bumalik sa isang makapangyarihang tool sa pagbawi, tulad ng DataNumen Outlook Repair.

Panimula ng May-akda:

Si Shirley Zhang ay isang dalubhasa sa pagbawi ng data sa DataNumen, Inc., na pinuno ng mundo sa mga teknolohiya sa pagbawi ng data, kasama ang mdf ayusin at pananaw sa pag-aayos ng mga produktong software. Para sa karagdagang impormasyon pagbisita www.datanumen. Sa