Nhiều người dùng mong muốn chuyển các email cụ thể từ Hộp thư đến sang các thư mục cụ thể khác sau khi đọc chúng, điều này sẽ giữ cho thư mục Hộp thư đến luôn sạch sẽ. Nhưng việc di chuyển luôn bằng tay sẽ rườm rà. Bài viết này sẽ trình bày một phương pháp nhanh chóng để nhận ra nó một cách tự động.
Như thường lệ, mọi email đến sẽ được đưa vào thư mục Thư đến trong Outlook. Vì vậy, trong trường hợp này, thư mục Inbox sẽ bị lộn xộn và bị nhồi theo thời gian. Thông thường, bạn có thể di chuyển các email cụ thể sang các thư mục thư khác theo cách thủ công hoặc tạo quy tắc Outlook để tự động di chuyển các email cụ thể ngay khi chúng đến hộp thư của bạn. Áp dụng quy tắc như vậy sẽ thuận tiện hơn nhiều nhưng bạn phải vào các thư mục cụ thể để truy cập các thư mới. Trước sự cố này, bạn có thể hy vọng rằng Outlook có thể tự động di chuyển các email cụ thể từ Hộp thư đến sang các thư mục thư khác sau khi bạn đọc xong chúng trong Hộp thư đến thay vì sau khi chúng đến. Nhưng quy tắc Outlook không thể nhận ra điều đó. May mắn thay, bạn có thể sử dụng Outlook VBA để biến điều đó thành hiện thực. Dưới đây là các mã cũng như các bước phức tạp.
Tự động di chuyển các email cụ thể đến các thư mục cụ thể sau khi đọc chúng
- Ngay từ đầu, hãy khởi chạy Outlook và chuyển sang tab “Nhà phát triển”.
- Sau đó, trên tab này, nhấn nút “Visual Basic” để mở cửa sổ soạn thảo VBA.
- Tiếp theo trong cửa sổ mới, bạn phải tìm dự án “ThisOutlookSession” và nhấp đúp để mở nó.
- Sau đó sao chép và dán các mã VBA sau vào đó.
Public WithEvents olItems As Outlook.Items
Sub Application_Startup()
Set olItems = Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub olItems_ItemChange(ByVal Item As Object)
Dim deFolder As Folder
'Ensure the email marked as read
If TypeOf Item Is MailItem And Item.UnRead = False Then
'Check the email subject and then move to specific folder
'You can change these conditions and folders as per your needs
If InStr(LCase(Item.Subject), "test") > 0 Then
Set deFolder = Session.GetDefaultFolder(olFolderInbox).Parent.Folders("Test")
Item.Move deFolder
End If
If InStr(LCase(Item.Subject), "worklog") > 0 Then
Set deFolder = Session.GetDefaultFolder(olFolderInbox).Parent.Folders("WorkLog")
Item.Move deFolder
End If
If InStr(LCase(Item.Subject), "report") > 0 Then
Set deFolder = Session.GetDefaultFolder(olFolderInbox).Parent.Folders("Report")
Item.Move deFolder
End If
End Sub
- Sau đó, bạn nên ký điện tử vào mã này.
- Trước tiên, hãy sử dụng công cụ “Chứng chỉ kỹ thuật số cho dự án VBA” tích hợp sẵn để tạo chứng chỉ mới.
- Sau đó gán chứng chỉ này cho macro hiện tại. Thực hiện các bước được hiển thị trong hình ảnh bên dưới:
- Sau này, bạn phải thay đổi cài đặt macro để chỉ bật macro được ký điện tử.
- Cuối cùng, bạn cần khởi động lại Outlook để kích hoạt dự án VBA này. Từ giờ trở đi, tất cả email đến vẫn sẽ được chuyển vào Hộp thư đến. Nhưng ngay sau khi email mới được đọc, nó sẽ tự động được chuyển đến các thư mục cụ thể.
Thủ thuật thông minh để giải quyết vấn đề về Outlook
Do Outlook thường xuyên gặp lỗi, nhiều người dùng mong muốn tìm được những mẹo hay để giải quyết các sự cố thường gặp. Thông thường, các kỹ thuật phổ biến nhất bao gồm tạo hồ sơ email mới, vô hiệu hóa các tiện ích bổ sung của bên thứ ba, sửa chữa bộ Office và sử dụng công cụ sửa chữa hộp thư đến, Scanpst.exe. Nếu công cụ tích hợp sẵn không hiệu quả, bạn có thể sử dụng một công cụ mạnh mẽ hơn khác. tiện ích sửa chữa Outlook bị hỏng, Giống 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 db SQL 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