Jak zbiorczo przenosić wiadomości e-mail ze wszystkich podfolderów jednego folderu do innego folderu w programie Outlook

Być może masz folder, w którym znajduje się wiele podfolderów. Jeśli chcesz przeorganizować zawarte w nich wiadomości e-mail, na przykład szybko przenieść wszystkie wiadomości e-mail z tych podfolderów do określonego folderu, możesz użyć sposobu udostępnionego w tym artykule.

Czasami może być konieczne grupowe przeniesienie wiadomości e-mail ze wszystkich podfolderów jednego folderu do innego folderu z pewnych powodów, na przykład w celu ponownej klasyfikacji wiadomości e-mail, aby te podfoldery nie były już przydatne. W takim przypadku przetwarzanie tych podfolderów jeden po drugim jest dość kłopotliwe. Dlatego tutaj przedstawimy Ci inny sposób.

Grupowe przenoszenie wiadomości e-mail ze wszystkich podfolderów jednego folderu do innego folderu

1. Na samym początku uruchom program Outlook.
2. Następnie na głównym ekranie Outlooka naciśnij klawisze „Alt + F11”, co przeniesie Cię do edytora VBA.
3. Następnie w nowym oknie „Microsoft Visual Basic for Applications” należy otworzyć moduł, który nie jest używany.
4. Następnie skopiuj i wklej następujący kod VBA do tego modułu.

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. Następnie możesz uruchomić to makro.

• Po pierwsze, w tym oknie makra naciśnij klawisz „F5”.
• Następnie będziesz musiał wybrać folder źródłowy, którego podfoldery mają zostać przetworzone.
• Następnie musisz określić folder docelowy, do którego chcesz przenieść wiadomości e-mail.
• Następnie to makro zacznie działać. Po zakończeniu pojawi się komunikat „Zakończono”.
• Ostatecznie uzyskasz dostęp do folderu docelowego. Zobaczysz, że wszystkie wiadomości e-mail z podfolderów w folderze źródłowym znajdują się właśnie tam.

Przywróć zagrożone dane programu Outlook

Pomimo wielu funkcji, podobnie jak inne programy pocztowe, Outlook nadal nie może uciec przed korupcją. Przy coraz większej ilości przechowywanych danych Outlook będzie coraz bardziej podatny na błędy i uszkodzenia. Dlatego musisz mieć pod ręką potężne narzędzie naprawcze, takie jak DataNumen Outlook Repair. Jest specjalnie zaprojektowany do naprawić Outlooka zagadnienia. W ten sposób może z łatwością skanować i przywracać uszkodzony plik programu Outlook.

Wprowadzenie autora:

Shirley Zhang jest ekspertem w dziedzinie odzyskiwania danych w DataNumen, Inc., która jest światowym liderem w technologiach odzyskiwania danych, w tym odzyskiwanie mdf i oprogramowanie do naprawy programu Outlook. po więcej informacji odwiedź www.datKanumen.com