如何在 Outlook 中閱讀郵件後，自動將其移至指定資料夾？
在 Outlook 中，將已讀郵件移至指定資料夾是維持收件匣整潔的最佳做法。許多 Outlook 使用者會嘗試為已讀郵件建立自動移動的規則，但實際上 Outlook 並不支援透過規則精靈實現此功能。本文將教您如何運用 VBA 程式碼，在閱讀郵件後自動將其移至指定資料夾。
- 提升您的郵件處理效率！運用人工智慧技術，讓您快速回覆郵件、撰寫新郵件、翻譯訊息，輕鬆高效完成各項操作！
- 透過規則自動化寄送郵件，搭配自動抄送密送，自動轉發自動寄送自動答覆（外出中），無需 Exchange 伺服器即可實現……
- 取得貼心提醒功能，例如 答覆的郵件為 BCC 時提示當您位於密件副本（BCC）清單中卻回覆全部收件人時，以及遺漏附件提醒針對遺忘的附件發出提示……
- 透過以下功能提升郵件處理效率：附帶附件回覆（全部），自動於簽名檔或主旨中加入問候語或日期與時間，一次回覆多封郵件……
- 透過以下功能簡化郵件處理流程：撤回郵件，附件工具（全部壓縮、自動保存全部……），刪除重複，以及快速報告……
在 Outlook 中閱讀郵件後將其移至指定資料夾
您可以在 Outlook 中執行 VBA 程式碼，於閱讀郵件後自動將其移至指定資料夾。
1. 首先，您需要在收件匣資料夾下建立一個名為「Reviewed」的新資料夾。
2. 開啟收件匣資料夾後，請按下 Alt＋F11 鍵，立即開啟 Microsoft Visual Basic for Applications 視窗！
3. 接著雙擊展開 Project 1＞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）。在 Project 1.ThisOutlookSession 下方的方框中，選取從下列位置選擇命令下拉式清單；
3）。點擊新增按鈕；
4）。點擊確定按鈕。
8. 接著，巨集按鈕將出現在快速存取工具列中。請先確認您已位於欲移出所有已讀郵件的收件匣資料夾，再點擊巨集按鈕，即可在收件匣內執行 VBA 程式碼！
注意事項：
1. 此 VBA 程式碼適用於 Outlook 2007、2010 與 2013；在 Outlook 2007 中，您可直接點擊執行按鈕來執行程式碼。
2. 若您的 Outlook 中有多個電子郵件帳戶，此 VBA 程式碼僅適用於設為預設的資料檔所對應的帳戶。您可透過點擊檔案＞ 資訊＞ 帳戶設定＞ 帳戶設定，開啟帳戶設定對話方塊。接著切換至資料檔索引標籤，即可看到預設資料檔前方已標記
。
3. 如果您想將預設資料檔變更為其他電子郵件帳戶，請在帳戶設定對話方塊中，選取並強調顯示您要設為預設值的帳戶，然後點擊設為預設值。
4. 首次執行 VBA 程式碼時，若發現已讀郵件未一次性全部移動，請持續點擊巨集按鈕，直到收件匣中的所有已讀郵件都成功移出為止。
最佳 Office 生產力工具
體驗全新 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