Ինչպես խմբաքանակով տեղափոխել բոլոր նամակները Outlook PST ֆայլում հատուկ թղթապանակ VBA-ի միջոցով

Outlook լուծումներ Սեպտեմբեր 29, 2025

Եթե ցանկանում եք PST ֆայլի բոլոր նամակները տեղափոխել մեկ այլ PST ֆայլի որոշակի պանակ, կարող եք օգտագործել այս հոդվածում ներկայացված մեթոդը: Այն կսովորեցնի ձեզ, թե ինչպես օգտագործել VBA՝ այն արագ ստանալու համար:

Երբեմն, ինչ-ինչ պատճառներով, ձեզ կարող է անհրաժեշտ լինել որոշակի PST ֆայլի բոլոր նամակները տեղափոխել մեկ այլ PST ֆայլի որոշակի պանակ: Այս դեպքում, եթե դուք դա անում եք ձեռքով, դա անկասկած բավականին անհանգիստ կլինի: Հետևաբար, այստեղ մենք կսովորեցնենք արագ մեթոդ, որը կօգտագործի VBA-ն՝ որոշակի PST ֆայլի բոլոր թղթապանակները պտտելու և յուրաքանչյուր նամակ տեղափոխելու որոշակի թղթապանակ: Կարդացեք մանրամասն քայլերին և ծածկագրերին հասնելու համար:

Փաթեթի բոլոր նամակները Outlook PST ֆայլում տեղափոխել հատուկ թղթապանակ

Հենց սկզբից գործարկեք ձեր Outlook հավելվածը:
Այնուհետև կարող եք անցնել «Developer» ներդիրին և սեղմել «Visual Basic» կոճակը: Կամ սեղմեք «Alt + F11» ստեղնաշարի դյուրանցումները:
Այնուհետև, բացվող VBA խմբագրիչի պատուհանում բացեք չօգտագործվող մոդուլը կամ ուղղակիորեն տեղադրեք նորը:
Հաջորդը պատճենեք և տեղադրեք հետևյալ VBA կոդերը այս մոդուլում:

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

Դրանից հետո փոխեք ձեր Outlook մակրո անվտանգության մակարդակը ցածր:
Ի վերջո, դուք կարող եք գործարկել նոր մակրո՝ սեղմելով «Run» պատկերակը գործիքագոտում կամ սեղմելով «F5» ստեղնը:
Միանգամից կոնկրետ թղթապանակի բոլոր թղթապանակների բոլոր նամակները խմբաքանակով կտեղափոխվեն կանխորոշված թղթապանակ:

Ժամանակին փրկեք ձեր PST տվյալները

Եթե ցավոք տառապում եք PST- ի վնաս, ի՞նչ եք անելու այդ ժամանակ։ Ընդհանրապես, ձեր առաջին միտքը պետք է հնարավորինս շուտ վերադարձնեք վնասված PST տվյալները: Ինչպես միշտ, ամենապարզ միջոցը տվյալների արդիական պահուստավորումից վերականգնելն է: Այնուամենայնիվ, եթե տվյալների կրկնօրինակը մի քանի շաբաթ է, այն կարող է անօգուտ լինել: Այս դեպքում դուք այլ ելք չունեք, քան կրկին դիմել վերականգնման հզոր գործիքին, ինչպիսին է DataNumen Outlook Repair.

Հեղինակի ներածություն.

Shirley Zhang- ը տվյալների վերականգման փորձագետ է DataNumen, Inc., որը տվյալների վերականգման տեխնոլոգիաների համաշխարհային առաջատարն է, այդ թվում mdf շտկել և հեռանկարների նորոգման ծրագրակազմի արտադրանքները: Լրացուցիչ տեղեկությունների համար այցելեք www.datanumen.com