如何在Outlook中閱讀郵件後將其移動到指定資料夾？
在閱讀郵件後將其移動到指定資料夾是保持Outlook收件匣整潔的最佳方法。對於許多Outlook用戶來說，他們通常會為這些已讀郵件創建規則來進行移動。實際上，Outlook並不支持這種規則嚮導流程。在本文中，我們將向您展示如何使用VBA代碼在Outlook中閱讀郵件後將其移動到指定資料夾。
- 透過 AI 技術提升您的電子郵件生產力，讓您快速回覆郵件、起草新郵件、翻譯郵件等，更有效率地進行操作。
- 透過規則自動化電子郵件處理，例如自動抄送密送、自動轉發；在不需要交換伺服器的情況下發送自動回覆（外出）...
- 當您處於密件抄送列表時，回覆所有人會收到類似密件抄送提示的提醒，並在忘記附件時獲得遺漏附件提醒...
- 透過帶有附件的回覆（全部）、自動新增問候語或日期時間至簽名或主題、回覆多封郵件等功能提高郵件效率...
- 透過撤回郵件、附件工具（壓縮全部、自動保存全部...）、刪除重複郵件以及快速報告等功能簡化郵件處理流程...
在Outlook中閱讀郵件後將其移動到指定資料夾
您可以在Outlook中運行VBA代碼，將已讀郵件移動到指定資料夾。
1. 首先，您需要在收件匣下創建一個名為“Reviewed”的新資料夾。
2. 打開收件匣，然後按下 Alt + F11 鍵以打開 Microsoft Visual Basic for Applications 窗口。
3. 接著雙擊展開 Project1 > Microsoft Outlook Objects > ThisOutlookSession 以打開 VbaProject.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). 在選擇命令自下拉列表下方的框中選擇 Project1. ThisOutlookSession；
3). 點擊新增按鈕；
4). 點擊確定按鈕。
8. 然後您可以看到宏按鈕顯示在快速訪問工具欄中。確保您位於想要移動所有已讀郵件的收件匣中，然後點擊宏按鈕以運行收件匣中的VBA代碼。
注意：
1. 此VBA代碼可應用於Outlook 2007、2010和2013；但是，在Outlook 2007中，您可以直接點擊運行按鈕來運行代碼。
2. 如果您的Outlook中存在多個郵件帳戶，該VBA代碼只能應用於數據文件設為默認值的帳戶。您可通過點擊 File > Info > Account Settings > Account Settings 以打開 Account Settings 對話框。然後轉到 Data File 標籤，您會看到默認數據文件已被標記為 
之前。
3. 如果您想將默認數據文件更改為另一個郵件帳戶，請選擇並突出顯示您要設為默認值的帳戶，然後在帳戶設置對話框中點擊設為默認值。
4. 當第一次運行VBA代碼時發現已讀郵件未一次性全部移動，請繼續點擊宏按鈕，直到收件匣中的所有已讀郵件都被移出。
最佳辦公室生產力工具
最新消息：Kutools for Outlook 推出免費版本！
體驗全新 Kutools for Outlook，超過100項精彩功能！立即下載！
🤖 Kutools AI ：採用先進的AI技術輕鬆處理郵件，包括答覆、摘要、優化、擴充、翻譯及撰寫郵件。
📧 郵件自動化：自動回覆（支援POP及IMAP） / 排程發送郵件 / 發送郵件時根據規則自動抄送密送 / 自動轉發（高級規則） / 自動添加問候語 / 自動分割多收件人郵件為個別郵件 ...
📨 郵件管理：撤回郵件 / 根據主題等方式阻止詐騙郵件 / 刪除重複郵件 / 高級搜索 / 整合文件夾 ...
📁 附件專業工具：批量保存 / 批量拆離 / 批量壓縮 / 自動保存 / 自動拆離 / 自動壓縮 ...
🌟 介面魔法：😊更多精美與酷炫表情符號 /重要郵件來臨時提醒 / 最小化 Outlook 而非關閉 ...
👍 一鍵便利：帶附件全部答復 / 防詐騙郵件 / 🕘顯示發件人時區 ...
👩🏼🤝👩🏻 聯絡人與日曆：從選中郵件批量添加聯絡人 / 分割聯絡人組為個別組 / 移除生日提醒 ...
以您偏好的語言使用 Kutools，支援英語、西班牙語、德語、法語、中文及超過40種其他語言！
只需點擊一次，即可立即解鎖 Kutools for Outlook。別等了，現在下載提升您的工作效率！
🚀 一鍵下載 — 獲取全部 Office 插件
強力推薦：Kutools for Office（5合1）
一鍵下載五個安裝程式，包括 Kutools for Excel, Outlook, Word, PowerPoint及 Office Tab Pro。 立即下載！
- ✅ 一鍵便利：一次操作即可下載全部五套安裝包。
- 🚀 隨時處理任何 Office 任務：安裝您需求的插件，隨時隨地。
- 🧰 包含：Kutools for Excel / Kutools for Outlook / Kutools for Word / Office Tab Pro / Kutools for PowerPoint