在Outlook中閱讀後如何將電子郵件移動到指定的文件夾？

閱讀後將電子郵件移動到指定文件夾是在Outlook中保持收件箱文件夾整潔的最佳方法。 對於許多Outlook用戶，他們傾向於為這些已讀電子郵件的移動創建規則。 實際上，Outlook不支持此規則嚮導過程。 在本文中，我們將向您展示在Outlook中使用VBA代碼閱讀後如何將電子郵件移動到指定的文件夾。

在Outlook中閱讀後，將電子郵件移動到指定的文件夾

在Outlook中閱讀後，將電子郵件移動到指定的文件夾

在Outlook中運行VBA代碼閱讀後，可以將電子郵件移動到指定的文件夾。

1.首先，您需要創建一個新的文件夾名稱“評論”位於“收件箱”文件夾下。

2.打開收件箱文件夾，然後按 其他 + F11 鍵打開 Microsoft Visual Basic for Applications 窗口。

3.然後雙擊以展開 Project1 > Microsoft Outlook對象 > 本次展望會議 打開 Vba工程.OTM 編輯器。

4.然後將下面的VBA代碼複製並粘貼到VbaProject.OTM編輯器，如上面的屏幕快照所示。

VBA代碼：閱讀後移動消息

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。 然後點擊 節省 按鈕以保存VBA代碼，然後關閉 Microsoft Visual Basic for Applications 窗口。

6.右鍵單擊 快速訪問工具欄，然後選擇 自定義快速訪問工具欄 從右鍵單擊菜單中。 看截圖：

7。 在裡面 Outlook選項 對話框，您需要：

1）。 選擇 宏 ，在 從中選擇命令 下拉列表;

2）。 選擇 專案1。 ThisOutlookSession 在下面的框中 從中選擇命令 下拉列表;

3）。 點擊 加入 按鈕;

4）。 點擊 OK 按鈕。

8.然後您可以看到 宏 按鈕顯示在 快速訪問工具欄。 確保您位於要移動所有已讀郵件的收件箱文件夾中，然後單擊 宏 按鈕可在收件箱中運行VBA代碼。

筆記:

1.此VBA代碼可在Outlook 2007、2010和2013中應用； 但是，在Outlook 2007中，您可以直接單擊 跑 按鈕運行代碼。

2.如果您的Outlook中存在多個電子郵件帳戶，則VBA代碼只能應用於將數據文件設置為默認帳戶的帳戶。 您可以通過單擊來檢查默認數據文件 文件 > 聯繫我們 > 帳戶設置 > 帳戶設置 打開 帳戶設置 對話框。 然後去 資料檔案 標籤，您將看到默認數據文件標記為 過。

3.如果要將默認數據文件更改為另一個電子郵件帳戶，請選擇並突出顯示要設置為默認帳戶的帳戶，然後單擊 設為默認 ，在 帳戶設置 對話框。

4.首次運行VBA代碼時，如果發現一次並沒有全部清除已讀郵件，請繼續單擊“宏”按鈕，直到收件箱中的所有已讀郵件都已移出。

---

最佳辦公生產力工具

Kutools for Outlook - 超過 100 種強大的功能可增強您的 Outlook

🤖 人工智慧郵件助手: 具備人工智慧魔力的即時專業電子郵件——一鍵天才回覆、完美語調、多語言掌握。輕鬆改變電子郵件！ ……

📧 電子郵件自動化: 外出（適用於 POP 和 IMAP）  /  安排發送電子郵件  /  發送電子郵件時按規則自動抄送/密件副本  /  自動轉送（進階規則）   /  自動添加問候語   /  自動將多收件者電子郵件拆分為單獨的訊息 ...

📨 電子郵件管理: 輕鬆回憶電子郵件  /  按主題和其他人阻止詐騙電子郵件  /  刪除重複的電子郵件  /  進階搜索  /  合併資料夾 ...

📁 附件專業版: 批量保存  /  批量分離  /  批量壓縮  /  自動保存   /  自動分離  /  自動壓縮 ...

🌟 介面魔法: 😊更多又漂亮又酷的表情符號   /  使用選項卡式視圖提高 Outlook 工作效率  /  最小化 Outlook 而不是關閉 ...

👍 一鍵奇蹟: 使用傳入附件回覆全部  /   反網路釣魚電子郵件  /  🕘顯示寄件者的時區 ...

👩🏼‍🤝‍👩🏻 通訊錄和行事曆: 從選定的電子郵件中大量新增聯絡人  /  將聯絡人群組拆分為各組  /  刪除生日提醒 ...

超過 100特點 等待您的探索！ 按此處了解更多。

閱讀更多       免費下載      購買