როგორ გადავიტანოთ ელფოსტა ჯგუფურად ერთი საქაღალდის ყველა ქვესაქაღალდიდან მეორე საქაღალდეში Outlook-ში

შესაძლოა, თქვენ გაქვთ საქაღალდე, რომლის ქვეშ არის მრავალი ქვესაქაღალდე. თუ გსურთ მათში არსებული ელფოსტის რეორგანიზაცია, მაგალითად, ყველა ელფოსტის სწრაფი გადატანა ამ ქვესაქაღალდებიდან კონკრეტულ საქაღალდეში, შეგიძლიათ გამოიყენოთ ამ სტატიაში გაზიარებული გზა.

ზოგჯერ შეიძლება დაგჭირდეთ ელ.ფოსტის ჯგუფური გადატანა ერთი საქაღალდის ყველა ქვესაქაღალდიდან მეორე საქაღალდეში გარკვეული მიზეზების გამო, მაგალითად, ელ. ფოსტის ხელახლა კლასიფიკაცია, ასე რომ ეს ქვესაქაღალდე აღარ გამოდგება. ამ შემთხვევაში, ამ ქვესაქაღალდეების სათითაოდ დამუშავება საკმაოდ პრობლემურია. ამიტომ, აქ სხვა გზას გაგაცნობთ.

ელფოსტის ჯგუფური გადატანა ერთი საქაღალდის ყველა ქვესაქაღალდიდან მეორე საქაღალდეში

1. დასაწყისისთვის, ჩართეთ თქვენი Outlook პროგრამა.
2. შემდეგ, Outlook-ის მთავარ ეკრანზე, შეეხეთ "Alt + F11" ღილაკებს, რომლებიც მიგიყვანთ VBA რედაქტორში.
3. შემდეგი, ახალ "Microsoft Visual Basic აპლიკაციებისთვის" ფანჯარაში, თქვენ უნდა გახსნათ მოდული, რომელიც არ გამოიყენება.
4. ამის შემდეგ, დააკოპირეთ და ჩასვით შემდეგი VBA კოდი ამ მოდულში.

Dim objTargetFolder As Outlook.folder

Sub BatchMoveEmailsFromSubfoldersToAnotherFolder()
    Dim objSourceFolder As Outlook.folder
    Dim objFolder As Outlook.folder
  
    'Get the source folder whose subfolders to be processed
    Set objSourceFolder = Application.Session.PickFolder
 
    If Not (objSourceFolder Is Nothing) And objSourceFolder.DefaultItemType = olMailItem Then
       If objSourceFolder.folders.count > 0 Then
          'Select a target folder
          Set objTargetFolder = Application.Session.PickFolder
          If Not (objTargetFolder Is Nothing) Then
             For Each objFolder In objSourceFolder.folders
                 Call ProcessFolders(objFolder)
             Next
             MsgBox "Move Completed!", vbExclamation
          End If
       Else
          MsgBox "No subfolders!", vbExclamation
       End If
    End If
End Sub

Sub ProcessFolders(ByVal objFolder As Outlook.folder)
    Dim i As Long
    Dim objSubfolder As Outlook.folder
 
    For i = objFolder.Items.count To 1 Step -1
        'Move emails to the target folder
        If objFolder.Items(i).Class = olMail Then
           objFolder.Items(i).Move objTargetFolder
        End If
    Next
 
    'Process subfolders recursively
    If objFolder.folders.count > 0 Then
       For Each objSubfolder In objFolder.folders
           Call ProcessFolders(objSubfolder)
       Next
    End If
End Sub

5. ამის შემდეგ, თქვენ შეგიძლიათ გაუშვათ ეს მაკრო.

• პირველ რიგში, ამ მაკრო ფანჯარაში დააჭირეთ ღილაკს "F5".
• შემდეგ თქვენ მოგიწევთ აირჩიოთ წყაროს საქაღალდე, რომლის ქვესაქაღალდეც უნდა დამუშავდეს.
• ამის შემდეგ, თქვენ უნდა მიუთითოთ დანიშნულების საქაღალდე, რომელშიც გსურთ ელფოსტის გადატანა.
• შემდგომში, ეს მაკრო დაიწყებს მუშაობას. დასრულების შემდეგ, თქვენ მიიღებთ შეტყობინებას „დასრულებულია“.
• საბოლოო ჯამში, თქვენ შეგიძლიათ წვდომა სამიზნე საქაღალდეზე. თქვენ ნახავთ, რომ წყაროს საქაღალდის ქვეშ არსებული ქვესაქაღალდეების ყველა ელფოსტა იქ იყო.

აღადგინეთ კომპრომეტირებული Outlook მონაცემები

მიუხედავად მრავალი ფუნქციით, ისევე როგორც სხვა ელ.ფოსტის კლიენტები, Outlook მაინც ვერ აცილებს კორუფციას. უფრო და უფრო მეტი მონაცემების შენახვით, Outlook უფრო მეტად მიდრეკილი იქნება შეცდომებისა და დაზიანებისკენ. აქედან გამომდინარე, თქვენ უნდა გქონდეთ ხელთ ძლიერი სარემონტო ხელსაწყო, როგორიცაა DataNumen Outlook Repair. ის სპეციალურად შექმნილია იმისთვის Outlook-ის შესწორება საკითხები. ამრიგად, მას შეუძლია დაზიანებული Outlook ფაილის სკანირება და აღდგენა უპრობლემოდ.

ავტორი შესავალი:

შირლი ჟანგი არის მონაცემთა აღდგენის ექსპერტი DataNumen, Inc., რომელიც მსოფლიო ლიდერია მონაცემთა აღდგენის ტექნოლოგიებში, მათ შორის mdf აღდგენა და Outlook სარემონტო პროგრამული პროდუქტები. დამატებითი ინფორმაციისთვის ეწვიეთ www.datKanumen.com