Cách di chuyển hàng loạt email từ tất cả các thư mục con của một thư mục sang một thư mục khác trong Outlook

Có lẽ bạn có một thư mục trong đó có nhiều thư mục con. Nếu muốn sắp xếp lại các email trong đó, chẳng hạn như chuyển nhanh toàn bộ email từ các thư mục con này sang một thư mục cụ thể, bạn có thể sử dụng cách được chia sẻ trong bài viết này.

Đôi khi, bạn có thể cần di chuyển hàng loạt email từ tất cả các thư mục con của một thư mục này sang thư mục khác vì một số lý do, chẳng hạn như bạn muốn phân loại lại email, vì vậy các thư mục con này không còn hữu ích nữa. Trong trường hợp này, việc xử lý từng thư mục con này khá rắc rối. Do đó, ở đây chúng tôi sẽ giới thiệu cho bạn một cách khác.

Di chuyển hàng loạt email từ tất cả các thư mục con của một thư mục này sang thư mục khác

1. Ngay từ đầu, hãy khởi động chương trình Outlook của bạn.
2. Sau đó, trong màn hình chính của Outlook, hãy nhấn vào các nút phím “Alt + F11”, thao tác này sẽ đưa bạn đến trình chỉnh sửa VBA.
3. Tiếp theo, trong cửa sổ “Microsoft Visual Basic for Applications” mới, bạn cần mở một mô-đun không được sử dụng.
4. Sau đó, sao chép và dán mã VBA sau vào mô-đun này.

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. Sau đó, bạn có thể chạy macro này.

• Trước hết, trong cửa sổ macro này, hãy nhấn nút phím “F5”.
• Sau đó, bạn sẽ được yêu cầu chọn một thư mục nguồn có các thư mục con sẽ được xử lý.
• Sau đó, bạn cần chỉ định thư mục đích mà bạn muốn chuyển email đến.
• Sau đó, macro này sẽ bắt đầu hoạt động. Khi hoàn tất, bạn sẽ nhận được thông báo "Hoàn thành".
• Cuối cùng, bạn có thể truy cập vào thư mục đích. Bạn sẽ thấy rằng tất cả các email trong các thư mục con thuộc thư mục nguồn đã được chuyển đến đó.

Khôi phục dữ liệu Outlook bị xâm phạm

Mặc dù tự hào về nhiều tính năng, giống như các ứng dụng email khách khác, Outlook vẫn không thể thoát khỏi tình trạng bị hỏng. Với lượng dữ liệu được lưu trữ ngày càng nhiều, Outlook sẽ ngày càng dễ bị lỗi và hư hỏng. Do đó, bạn cần phải giữ một công cụ sửa chữa hiệu quả tiện dụng, như DataNumen Outlook Repair. Nó được thiết kế đặc biệt để sửa chữa Outlook vấn đề. Qua đó, nó có thể quét và khôi phục tệp Outlook bị hỏng một cách dễ dàng.

Giới thiệu tác giả:

Shirley Zhang là một chuyên gia phục hồi dữ liệu trong DataNumen, Inc., công ty hàng đầu thế giới về công nghệ khôi phục dữ liệu, bao gồm phục hồi mdf và các sản phẩm phần mềm sửa chữa triển vọng. Để biết thêm thông tin, hãy truy cập www.datKanumen.com