Làm cách nào để di chuyển thư email đến thư mục được chỉ định sau khi đọc trong Outlook?

Di chuyển thư email đến một thư mục được chỉ định sau khi đọc là cách tốt nhất để giữ sạch thư mục Hộp thư đến trong Outlook. Đối với nhiều người dùng Outlook, họ có xu hướng tạo quy tắc cho việc di chuyển các email đã đọc này. Trên thực tế, Outlook không hỗ trợ quy trình hướng dẫn quy tắc này. Trong bài viết này, chúng tôi sẽ hướng dẫn bạn cách di chuyển thư email đến thư mục được chỉ định sau khi đọc bằng mã VBA trong Outlook.

Di chuyển thư email đến thư mục được chỉ định sau khi đọc trong Outlook

Di chuyển thư email đến thư mục được chỉ định sau khi đọc trong Outlook

Bạn có thể di chuyển thư email đến một thư mục được chỉ định sau khi đọc bằng cách chạy mã VBA trong Outlook.

1. Đầu tiên, bạn cần tạo một tên thư mục mới “Đanh gia”Trong thư mục Hộp thư đến.

2. Mở thư mục Hộp thư đến, sau đó vui lòng nhấn Khác + F11 phím để mở Microsoft Visual Basic cho các ứng dụng cửa sổ.

3. Sau đó nhấp đúp để mở rộng Project1 > Đối tượng Microsoft Outlook > ĐâyOutlookSession để mở VbaProject.OTM biên tập viên.

4. Sau đó sao chép và dán mã VBA bên dưới vào trình chỉnh sửa VbaProject.OTM như được hiển thị trong ảnh chụp màn hình ở trên.

Mã VBA: di chuyển tin nhắn sau khi đọc

Sub MoveInbox2Reviewed()
On Error Resume Next
Set oOutlook = CreateObject("Outlook.Application")
Set oNamespace = oOutlook.GetNamespace("MAPI")
Set oFolderSrc = oNamespace.GetDefaultFolder(olFolderInbox)
Set oFolderDst = oFolderSrc.Folders("Reviewed")
Set oFilteredItems = oFolderSrc.Items.Restrict("[UnRead] = False")
For Each oMessage In oFilteredItems
    oMessage.Move oFolderDst
Next
End Sub 

5. Sau đó nhấp vào Lưu để lưu mã VBA và sau đó đóng Microsoft Visual Basic cho các ứng dụng cửa sổ.

6. Nhấp chuột phải vào Thanh công cụ truy cập nhanh, Và chọn Tùy chỉnh thanh công cụ truy cập nhanh từ menu chuột phải. Xem ảnh chụp màn hình:

7. bên trong Tùy chọn Outlook hộp thoại, bạn cần:

1). Lựa chọn Macros trong Chọn lệnh từ danh sách thả xuống;

2). Lựa chọn Dự án 1. ThisOutlookSession trong hộp dưới Chọn lệnh từ danh sách thả xuống;

3). Nhấn vào Thêm Nút;

4). Nhấn vào OK .

8. Sau đó, bạn có thể thấy Macro nút hiển thị trong Thanh công cụ truy cập nhanh. Đảm bảo rằng bạn đang định vị trong thư mục hộp thư đến mà bạn muốn di chuyển tất cả các thư đã đọc, sau đó nhấp vào Macro để chạy mã VBA bên trong Hộp thư đến.

Chú ý:

1. Mã VBA này có thể được áp dụng trong Outlook 2007, 2010 và 2013; Tuy nhiên, trong Outlook 2007, bạn có thể nhấp trực tiếp vào chạy để chạy mã.

2. Nếu có nhiều tài khoản email tồn tại trong Outlook của bạn, mã VBA chỉ có thể được áp dụng trong tài khoản mà tệp dữ liệu được đặt làm mặc định. Bạn có thể kiểm tra tệp dữ liệu mặc định bằng cách nhấp vào Tập tin > Thông tin > Cài đặt tài khoản > Cài đặt tài khoản để mở Cài đặt tài khoản hộp thoại. Sau đó đi đến Tập tin dữ liệu , bạn sẽ thấy tệp dữ liệu mặc định được đánh dấu bằng trước đây.

3. Nếu bạn muốn thay đổi tệp dữ liệu mặc định thành tài khoản email khác, vui lòng chọn và đánh dấu tài khoản bạn muốn đặt làm mặc định, sau đó nhấp vào Đặt làm mặc định trong Cài đặt tài khoản hộp thoại.

4. Khi chạy mã VBA lần đầu tiên và phát hiện ra các thư đã đọc không được chuyển cùng một lúc, hãy tiếp tục nhấp vào nút Macro cho đến khi tất cả các thư đã đọc trong Hộp thư đến được chuyển ra ngoài.

---

Công cụ năng suất văn phòng tốt nhất

Kutools cho Outlook - Hơn 100 tính năng mạnh mẽ để tăng cường Outlook của bạn

🤖 Trợ lý thư AI: Email chuyên nghiệp tức thì với phép thuật AI--một cú nhấp chuột để có câu trả lời xuất sắc, giọng điệu hoàn hảo, khả năng thông thạo đa ngôn ngữ. Chuyển đổi email một cách dễ dàng! ...

📧 Tự động hoá email: Vắng Mặt (Có sẵn cho POP và IMAP)  /  Lên lịch gửi email  /  Tự động CC/BCC theo quy định khi gửi Email  /  Tự động chuyển tiếp (Quy tắc nâng cao)   /  Tự động thêm lời chào   /  Tự động chia email nhiều người nhận thành các tin nhắn riêng lẻ hữu ích. Cảm ơn !

📨 Quản lý email: Dễ dàng thu hồi email  /  Chặn email lừa đảo theo chủ đề và những người khác  /  Xóa các email trùng lặp  /  Tìm Kiếm Nâng Cao  /  Hợp nhất các thư mục hữu ích. Cảm ơn !

📁 Tệp đính kèm chuyên nghiệp: Lưu hàng loạt  /  Tách hàng loạt  /  Nén hàng loạt  /  Tự động lưu   /  Tự động tách  /  Tự động nén hữu ích. Cảm ơn !

🌟 Giao diện ma thuật: 😊Thêm nhiều biểu tượng cảm xúc đẹp và thú vị hơn   /  Tăng năng suất Outlook của bạn với chế độ xem theo thẻ  /  Thu nhỏ Outlook thay vì đóng hữu ích. Cảm ơn !

👍 Kỳ quan chỉ bằng một cú nhấp chuột: Trả lời tất cả bằng tệp đính kèm đến  /   Email chống lừa đảo  /  🕘Hiển thị múi giờ của người gửi hữu ích. Cảm ơn !

👩🏼‍🤝‍👩🏻 Danh bạ & Lịch: Thêm hàng loạt liên hệ từ các email đã chọn  /  Chia nhóm liên hệ thành các nhóm riêng lẻ  /  Xóa lời nhắc sinh nhật hữu ích. Cảm ơn !

Trên 100 tính năng Chờ đợi sự khám phá của bạn! Bấm vào đây để khám phá thêm.

Tìm hiểu thêm       Tải xuống miễn phí      Mua