如何在 Outlook 中按照发件人邮箱域进行排序和分组？

通常，在 Microsoft Outlook 中，我们可以轻松地按发件人、类别、主题、大小等对所有邮件进行排序。但似乎无法按发件人邮箱域对邮件进行排序或分组，因为邮件中并没有发件人邮箱域这一字段。这里为您介绍一段 VBA 代码，帮助您为邮件添加一个 Domain 列，从而让您在 Outlook 中轻松按发件人邮箱域对邮件进行排序和分组。

要在 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 中保存并复制视图设置到其他文件夹？

相关文章

如何在 Outlook 的邮件列表中显示发件人的域名？

---

最佳办公效率工具

体验全新 Kutools for Outlook，畅享 100+ 强大功能！立即点击下载，不容错过！

🤖KUTOOLS AI：采用先进 AI 技术，轻松处理邮件，涵盖回复、摘要、优化、扩展、翻译及撰写等功能。

📧 邮件自动化：自动答复（支持 POP 和 IMAP）/定时发送邮件/发送邮件时按规则自动抄送密送/自动转发（高级规则）/自动添加称呼/自动将多收件人邮件拆分为单独信息……

📨 邮件管理：撤回邮件/按主题等条件拦截诈骗邮件/删除重复邮件/高级搜索/整合文件夹……

📁 附件增强：批量保存/批量分离/批量压缩/自动保存/自动拆离/自动压缩……

🌟 界面魔法：😊更多美观时尚表情/重要邮件到达时提醒您/最小化 Outlook 而不是直接关闭……

👍 一键精彩功能：带附件全部答复/反钓鱼邮件/🕘显示发送者当前时间时区……

👩🏼‍🤝‍👩🏻 联系人与日历：批量从选定邮件中提取添加联系人/将联系人组拆分为个人组/移除生日提醒……

在您的首选语言中畅享 Kutools —— 支持英语、西班牙语、德语、法语、中文等 40 多种语言！

一键解锁 Kutools for Outlook，告别等待，立即下载，让效率倍增！

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

关于套件⬇ 下载套件💳 购买套件