Một số người dùng Outlook thích phân loại email của họ theo danh mục màu liên hệ của người gửi. Chỉ định danh mục theo cách thủ công sẽ rất cồng kềnh. Bài viết này sẽ giới thiệu cách nhận ra nó tự động với Outlook VBA.
Để cải thiện hiệu quả công việc của bạn trong Outlook, bạn sẽ nỗ lực quản lý email của mình tốt hơn. Không còn nghi ngờ gì nữa, “Danh mục màu” là một tính năng tốt về mặt này. Nhiều người dùng thích sử dụng nó để sắp xếp và phân biệt thư của họ. Tất nhiên, cơ sở cụ thể của việc phân loại màu sắc email là tùy thuộc vào thói quen cá nhân của bạn. Chẳng hạn, một số người dùng đã phân loại danh bạ của họ bằng màu sắc, do đó, họ hy vọng sẽ phân loại email của mình theo danh mục liên hệ của người gửi. Nếu bạn thực hiện việc này theo cách thủ công, chắc chắn sẽ rất lộn xộn ở chỗ trước tiên bạn phải kiểm tra danh mục liên hệ của người gửi và sau đó gán thủ công cho email.
Để giải quyết yêu cầu này, trên thực tế, bạn có thể sử dụng Outlook VBA, cho phép Outlook tự động kiểm tra các danh mục liên hệ của người gửi và gán nó cho các email mới. Nếu bạn quan tâm đến tính năng này, hãy đọc tiếp để biết các bước và mã phức tạp.
Tự động phân loại email đến theo danh mục liên hệ của người gửi
- Trước tiên, hãy khởi chạy Outlook và nhấn các nút phím “Alt + F11”.
- Sau đó, cửa sổ soạn thảo VBA sẽ xuất hiện, trong đó bạn cần tìm và mở dự án “ThisOutlookSession”.
- Tiếp theo, sao chép và dán các mã VBA sau vào “ThisOutlookSession”.
Public WithEvents olItems As Outlook.Items
Private Sub Application_Startup()
Set olItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub olItems_ItemAdd(ByVal Item As Object)
Dim oMail As MailItem
Dim olContacts As Outlook.Items
Dim obj As Object
Dim objVariant As Variant
Dim olCategory As String
Set olContacts = Outlook.Application.Session.GetDefaultFolder(olFolderContacts).Items
If TypeOf Item Is MailItem Then
Set oMail = Item
For Each obj In olContacts
If TypeOf obj Is ContactItem Then
Set objVariant = obj
If objVariant.Email1Address = oMail.SenderEmailAddress Then
olCategory = objVariant.Categories
oMail.Categories = olCategory
End If
End If
Next
End If
End Sub
- Sau đó, bạn nên gán chứng chỉ kỹ thuật số cho macro mới.
- Đầu tiên, tạo chứng chỉ mới thông qua Chứng chỉ kỹ thuật số cho Dự án VBA.
- Sau đó, ký điện tử mã này.
- Sau đó, bạn có thể thay đổi bảo mật macro Outlook của mình, chỉ cho phép các macro được ký điện tử.
- Cuối cùng bạn có thể restart Outlook để kích hoạt macro mới. Từ giờ trở đi, tất cả các email đến trong thư mục Hộp thư đến sẽ được tự động phân loại theo danh mục liên hệ của người gửi.
Giải quyết sự cố Outlook không mong muốn
Mặc dù Outlook được nhiều người dùng ưa chuộng nhưng nó vẫn không thoát khỏi tình trạng crash. Bạn phải cảm thấy hoảng sợ khi gặp phải sự cố Outlook không lường trước được. Đừng lo. Bạn có thể thực hiện các hành động để tự mình chẩn đoán và giải quyết sự cố, chẳng hạn như restarting Outlook, vô hiệu hóa phần bổ trợ của bên thứ ba, tạo hồ sơ thư mới và sửa chữa bộ Office, v.v. Trường hợp xấu nhất phải dữ liệu Outlook PST bị hỏng, cực kỳ nhiều nút thắt. Trong trường hợp này, bạn cần quay lại một công cụ bên ngoài mạnh mẽ, như DataNumen Outlook Repair.
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 SQL mdf db bị hỏng 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