Cách tự động di chuyển các mục trong một thư mục sang thư mục mẹ của nó trước khi xóa nó trong Outlook

giải pháp triển vọng Tháng Chín 29, 2025

Theo mặc định, trong Outlook, khi bạn xóa một thư mục, các mục của nó cũng sẽ được chuyển đến thư mục “Các mục đã xóa”. Nếu bạn muốn Outlook tự động di chuyển các mục trong một thư mục vào thư mục mẹ của nó trước khi xóa nó, bạn có thể sử dụng phương tiện được chia sẻ trong bài viết này.

Khi bạn xóa một thư mục, Outlook sẽ cảnh báo rằng tất cả nội dung của thư mục đó cũng sẽ được chuyển vào thư mục “Mục đã xóa”. Tuy nhiên, hầu hết thời gian, bạn chỉ muốn xóa thư mục này mà không bao gồm các mục được lưu trữ bên trong. Do đó, bạn hy vọng rằng các mục có thể được tự động chuyển vào thư mục cha của thư mục đó. Ở đây, chúng tôi sẽ hướng dẫn bạn cách thực hiện điều này thông qua VBA. Nếu bạn chưa biết gì về VBA, bạn có thể đọc bài viết trước của tôi – “Cách chạy mã VBA trong Outlook của bạn".

Tự động di chuyển các mục trong một thư mục vào thư mục mẹ của nó trước khi xóa nó

Để bắt đầu, hãy truy cập trình soạn thảo Outlook VBA thông qua “Alt + F11”.
Sau đó, trong cửa sổ mới, hãy mở dự án “ThisOutlookSession”.
Sau đó, sao chép và dán mã VBA sau vào dự án này.

'Display the macro in the context menu
Sub Application_FolderContextMenuDisplay(ByVal CommandBar As Office.CommandBar, ByVal Folder As Outlook.Folder)
    Dim objCommandBarButton As Office.CommandBarButton
 
    Set objCommandBarButton = CommandBar.Controls.Add(msoControlButton)
    With objCommandBarButton
         .Style = msoButtonIconAndCaption
         .Caption = "[Smart] Delete Folder"
         .FaceId = 1668
         .OnAction = "Project1.ThisOutlookSession.DeleteFolder_MoveItemsToParentFolder"
    End With
End Sub

Sub DeleteFolder_MoveItemsToParentFolder()
    Dim objCurrentFolder As Outlook.Folder
    Dim objParentFolder As Outlook.Folder

    Set objCurrentFolder = Outlook.ActiveExplorer.CurrentFolder
    Set objParentFolder = objCurrentFolder.Parent
    
    Dim i As Long
    'Move items to parent folder
    For i = objCurrentFolder.Items.Count To 1 Step -1
        objCurrentFolder.Items.Item(i).Move objParentFolder
    Next
 
    'Delete the current folder
    objCurrentFolder.Delete
End Sub

Sau đó, bạn có thể chụp ngay bây giờ.
Đầu tiên, nhấp chuột phải vào thư mục con bạn muốn xóa.
Sau đó, từ menu ngữ cảnh, chọn tùy chọn “[Smart] Delete Folder”.
Ngay lập tức, Outlook sẽ xóa thư mục và di chuyển các mục của nó sang thư mục mẹ.
Trong trường hợp của tôi, tôi xóa thư mục con “To Bob”. Thư mục mẹ của nó là “Sent Items”. Do đó, tất cả các mục của nó đã được chuyển đến “Mục đã gửi”, giống như ảnh chụp màn hình sau.

Hãy nhớ rằng Outlook dễ bị tổn thương

Bạn nên ghi nhớ một sự thật không cần bàn cãi – Outlook rất dễ bị lỗi hoặc hỏng. Do đó, bạn phải cẩn thận với tất cả các mối đe dọa tiềm ẩn xung quanh tệp dữ liệu Outlook của mình, bao gồm vi-rút, thoát không đúng cách, v.v. Bên cạnh đó, bạn nên chuẩn bị một công cụ sửa lỗi Outlook mạnh mẽ và đáng tin cậy, chẳng hạn như DataNumen Outlook Repair. Nó có thể hỗ trợ bạn sửa chữa Outlook vấn đề trong vòng vài phút

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 sửa chữa 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.datanumennăm