Cách tự động di chuyển email đến một thư mục cụ thể sau khi bạn chuyển tiếp nó trong Outlook

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

Để giữ cho hộp thư của bạn theo thứ tự, bạn có thể quen với việc lưu các email cụ thể vào thư mục cụ thể. Bài viết này sẽ cho bạn biết cách sử dụng Outlook VBA để tự động di chuyển email sau khi bạn chuyển tiếp nó.

Lưu trữ các email tương tự trong một thư mục thư cụ thể là một mẹo hay để quản lý một lượng lớn email. Chắc hẳn những người dùng khác nhau đều phải có những tiêu chí phân loại và quản lý mail riêng. Chẳng hạn, bạn có thể muốn phân loại email của mình theo các hành động tiếp theo đối với chúng, chẳng hạn như trả lời, chuyển tiếp hoặc các hành động khác. Nếu bạn muốn tự động di chuyển email đến một thư mục cụ thể, chẳng hạn như “Đã chuyển tiếp”, khi bạn chuyển tiếp nó, bạn có thể áp dụng các thao tác sau và mã VBA để chuyển tiếp nhanh chóng.

Tự động di chuyển email đến một thư mục cụ thể sau khi bạn chuyển tiếp nó

Trước tiên, hãy khởi chạy Outlook.
Sau đó chuyển sang tab "Nhà phát triển".

Lưu ý: Nếu bạn không tìm thấy tab này, bạn nên vào “File” > “Options” > “Customize Ribbon” để kích hoạt nó trước.

Sau khi tab này hiển thị, bạn có thể tìm và nhấp vào nút “Visual Basic” bên dưới tab đó.
Sau đó, một cửa sổ “Microsoft Visual Basic for Applications” mới sẽ bật lên. Trong đó, bạn nên nhấp đúp vào dự án “ThisOutlookSession” ở phía bên trái để mở nó.
Sau đó, bạn có thể sao chép và dán các mã VBA sau vào đó.

Public WithEvents objExplorer As Outlook.Explorer
Public WithEvents objMail As Outlook.MailItem

Private Sub Application_Startup()
    Set objExplorer = Outlook.Application.ActiveExplorer
End Sub

Private Sub objExplorer_SelectionChange()
    On Error Resume Next
    Set objMail = objExplorer.Selection.Item(1)
End Sub

Private Sub objMail_Forward(ByVal Response As Object, Cancel As Boolean)
    Dim objInboxFolder As Folder
    Dim objTargetFolder As Folder
 
    Set objInboxFolder = Outlook.Application.Session.GetDefaultFolder(olFolderInbox)
 
    On Error Resume Next
    Set objTargetFolder = objInboxFolder.parent.Folders("Forwarded")
    If objTargetFolder Is Nothing Then
       Set objTargetFolder = objInboxFolder.parent.Folders.Add("Forwarded")
    End If
    objMail.Categories = "Forwarded"
    objMail.Move objTargetFolder
End Sub

Sau đó, bạn sẽ được yêu cầu ký vào dự án VBA mới.

Đầu tiên, sử dụng công cụ tích hợp “Chứng chỉ kỹ thuật số cho các dự án VBA” để tạo chứng chỉ kỹ thuật số.
Sau đó gán chứng chỉ cho macro này, giống như ảnh chụp màn hình sau:

Sau đó, bạn có thể thay đổi cài đặt macro của mình để cho phép macro được ký điện tử.
cuối cùng restart Outlook để kích hoạt macro mới. Từ giờ trở đi, khi bạn chọn một email và nhấp vào nút “Chuyển tiếp”, email đó sẽ được chuyển ngay đến thư mục “Đã chuyển tiếp”.

Tránh tham nhũng dữ liệu Outlook PST không mong muốn

Một trong số chúngost rắc rối đã gây khó chịu cho người dùng Outlook trong một thời gian dài là Outlook dễ bị hỏng. Tức là khổ thiệt hại PST là một vấn đề phổ biến. Do đó, để tránh mất dữ liệu triển vọng, tốt hơn hết bạn nên tạo một bản sao lưu nhất quán và cập nhật cho dữ liệu PST của mình.

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 hư hỏng SQL Server 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