如何在 Outlook 中依寄件人郵箱網域進行排序與分組？
一般情況下，我們可以在 Microsoft Outlook 中輕鬆依寄件者、類別、主旨、郵件大小等方式排列所有電子郵件。然而，Outlook 並未內建「寄件人郵箱網域」欄位，因此無法直接依此條件進行排序或分組。本文將介紹一段 VBA 程式碼，協助您為電子郵件新增「網域」欄位，讓您輕鬆在 Outlook 中依寄件人郵箱網域進行排序與分組。
- 提升您的郵件處理效率！運用人工智慧技術，讓您快速回覆郵件、撰寫新郵件、翻譯訊息，輕鬆高效完成各項操作！
- 透過規則自動化寄送郵件，搭配自動抄送密送，自動轉發自動寄送自動答覆（外出中），無需 Exchange 伺服器即可實現……
- 取得貼心提醒功能，例如 答覆的郵件為 BCC 時提示當您位於密件副本（BCC）清單中卻回覆全部收件人時，以及遺漏附件提醒針對遺忘的附件發出提示……
- 透過以下功能提升郵件處理效率：附帶附件回覆（全部），自動於簽名檔或主旨中加入問候語或日期與時間，一次回覆多封郵件……
- 透過以下功能簡化郵件處理流程：撤回郵件，附件工具（全部壓縮、自動保存全部……），刪除重複，以及快速報告……
若要在 Microsoft Outlook 2013 與 2010 中依按寄件人郵箱域對電子郵件進行排序與分組，請依照下列步驟操作：
步驟 1：開啟您要依寄件人郵箱網域排序所有電子郵件的郵件資料夾。
步驟 2：在檢視索引標籤中，按一下閱讀窗格 > 關閉，即可關閉閱讀窗格。
步驟 3：繼續點擊位於檢視索引標籤中的新增多欄。
步驟 3：在「顯示欄位」對話方塊中，點擊新增欄位按鈕。
步驟 4：在「新增欄位」對話方塊中，於名稱欄位輸入 Domain，並確保文字已同時在類型與格式欄位中被選取，最後點擊確定按鈕。
步驟 5：回到「顯示欄位」對話方塊，在「依此順序顯示這些欄位」方塊中選取 Domain，並將其移至寄件者項目下方，然後點擊確定按鈕。
步驟 6：現在回到已開啟的郵件資料夾，同時按下 Ctrl+A 鍵，全選所有電子郵件。
步驟 7：同時按下 Alt+F11 鍵，開啟 Microsoft Visual Basic for Applications 視窗；接著點選插入＞ 模組，並將下列 VBA 程式碼貼上至模組中。
VBA：依按寄件人郵箱域排序與分組
Sub ListSelectionDomain()
Dim aObj As Object
Dim oProp As Outlook.UserProperty
Dim sDomain
On Error Resume Next
For Each aObj In Application.ActiveExplorer.Selection
Set oMail = aObj
sDomain = Right(oMail.SenderEmailAddress, Len(oMail.SenderEmailAddress) - InStr(1, oMail.SenderEmailAddress, "@"))
Set oProp = oMail.UserProperties.Add("Domain", olText, True)
oProp.Value = sDomain
oMail.Save
Err.Clear
Next
End Sub步驟 8：按下 F5 鍵，或點擊工具列中的執行按鈕，立即執行此 VBA 程式碼！
步驟 9：現在每位寄件者的網域都已成功提取並填入「Domain」欄位中。
A.若要依按寄件人郵箱域對電子郵件進行排序，只需按一下所有電子郵件頂端的 Domain 欄位標題即可；
B.若要依寄件人郵箱網域對電子郵件進行分組，只需在 Domain 欄位標題上按一下滑鼠右鍵，並從下拉選單中選取以此欄位分組。如下圖所示：
注意事項：
（1) 此 VBA 程式碼適用於 Outlook 2013 與 2010，但在 Outlook 2007 中無法運作。
（2) 您可透過 如何在 Outlook 中儲存並複製檢視設定至其他資料夾？
相關文章
最佳 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