Làm cách nào để di chuyển email đến thư mục được chỉ định sau khi chỉ định danh mục nhất định trong Outlook?
Giả sử bạn đã chỉ định một danh mục cho một email đã nhận trong Outlook của mình, sau khi gán danh mục, bạn muốn email này tự động di chuyển đến một thư mục email nhất định có tên với tên danh mục. Ví dụ: một email được gán với danh mục “Riêng tư” sẽ được chuyển đến tên thư mục “Riêng tư” trong Outlook của bạn. Làm thế nào để đạt được nó? Phương pháp trong bài viết này có thể giúp bạn giải quyết vấn đề một cách dễ dàng.
Di chuyển email đến thư mục được chỉ định sau khi chỉ định danh mục nhất định với VBA
Di chuyển email đến thư mục được chỉ định sau khi chỉ định danh mục nhất định với VBA
Mã VBA dưới đây có thể giúp tự động di chuyển email đến thư mục được chỉ định sau khi chỉ định danh mục nhất định trong Outlook. Hãy làm như sau.
1. Nhấn nút Khác + F11 phím để mở Microsoft Visual Basic cho các ứng dụng cửa sổ.
2. bên trong Microsoft Visual Basic cho các ứng dụng cửa sổ, nhấp đúp để mở ThisOutlookSession (Mã) cửa sổ. Sau đó sao chép mã VBA bên dưới vào cửa sổ. Xem ảnh chụp màn hình:
Mã VBA: Di chuyển email đến thư mục được chỉ định sau khi chỉ định danh mục nhất định
Private WithEvents xInboxFld As Outlook.Folder
Private WithEvents xInboxItems As Outlook.Items
Private Sub Application_Startup()
Set xInboxFld = Outlook.Application.Session.GetDefaultFolder(olFolderInbox)
Set xInboxItems = xInboxFld.Items
End Sub
Private Sub xInboxItems_ItemChange(ByVal Item As Object)
Dim xMailItem As Outlook.MailItem
Dim xFlds As Outlook.Folders
Dim xFld As Outlook.Folder
Dim xTargetFld As Outlook.Folder
Dim xFlag As Boolean
On Error Resume Next
If Item.Class = olMail Then
Set xMailItem = Item
xFlag = False
If xMailItem.Categories <> "" Then
Set xFlds = Application.Session.GetDefaultFolder(olFolderInbox).Folders
If xFlds.Count <> 0 Then
For Each xFld In xFlds
If xFld.Name = xMailItem.Categories Then
xFlag = True
End If
Next
End If
If xFlag = False Then
Application.Session.GetDefaultFolder(olFolderInbox).Folders.Add xMailItem.Categories, olFolderInbox
End If
Set xTargetFld = Application.Session.GetDefaultFolder(olFolderInbox).Folders(xMailItem.Categories)
xMailItem.Move xTargetFld
End If
End If
End Sub
3. Lưu mã và khởi động lại Outlook.
4. Từ bây giờ, khi gán danh mục cho một email nhận, một thư mục có tên danh mục sẽ được tạo tự động trong thư mục Hộp thư đến có email được chuyển đến. Xem ảnh chụp màn hình:
Chú thích: Tất cả các email được chỉ định với cùng một danh mục sẽ được tự động chuyển đến cùng một thư mục. Nhưng nếu một danh mục mới được gán cho một email, một thư mục mới sẽ được tạo tự động.
Các bài liên quan:
- Làm cách nào để gán danh mục cho email gửi đi trong Outlook?
- Làm cách nào để giữ các danh mục gốc khi trả lời hoặc chuyển tiếp email trong Outlook?
Công cụ năng suất văn phòng tốt nhất
Nâng cao kỹ năng Excel của bạn với Kutools for Excel và trải nghiệm hiệu quả hơn bao giờ hết. Kutools for Excel cung cấp hơn 300 tính năng nâng cao để tăng năng suất và tiết kiệm thời gian. Bấm vào đây để có được tính năng bạn cần nhất...
Tab Office mang lại giao diện Tab cho Office và giúp công việc của bạn trở nên dễ dàng hơn nhiều
- Cho phép chỉnh sửa và đọc theo thẻ trong Word, Excel, PowerPoint, Publisher, Access, Visio và Project.
- Mở và tạo nhiều tài liệu trong các tab mới của cùng một cửa sổ, thay vì trong các cửa sổ mới.
- Tăng 50% năng suất của bạn và giảm hàng trăm cú nhấp chuột cho bạn mỗi ngày!
