跳至主要内容

如何在Outlook中按发件人域名排序和分组?

Author: Kelly Last Modified: 2025-05-07

通常,我们可以轻松地在Microsoft Outlook中按发件人、类别、主题、大小等排列所有邮件。然而,似乎无法按发件人的域名对邮件进行排序或分组,因为邮件根本没有“发件人域名”字段。在这里,我将介绍一个VBA代码,帮助您为邮件添加一个“域名”列,然后轻松地在Outlook中按发件人域名对邮件进行排序和分组。

Office Tab - 在 Microsoft Office 中启用标签页编辑和浏览,让工作变得轻松愉快。
立即解锁 Kutools for Outlook 的免费版本,永久享受超过 70 项功能的无限访问权限。
通过这些高级功能增强您的 Outlook 2024 - 2010 或 Outlook 365。享受 70 多种强大功能,提升您的邮件体验!

要在Microsoft Outlook 2013和2010中按发件人域名对邮件进行排序和分组,请按照以下步骤操作:

步骤1:打开您要按发件人域名对所有邮件进行排序的邮件文件夹。

步骤2:通过点击“视图”选项卡上的“阅读窗格 > 关闭”来关闭阅读窗格。

the screenshot of step about sorting and grouping by sender domain in outlook 1

步骤3:继续并点击“视图”选项卡上的“添加列”。

the screenshot of step about sorting and grouping by sender domain in outlook 2

步骤3:在“显示列”对话框中,点击“新建列”按钮。

the screenshot of step about sorting and grouping by sender domain in outlook 3

步骤4:在“新建列”对话框中,在“名称”框中输入“域名”,并在“类型”框和“格式”框中保持选择“文本 ”,最后点击“确定”按钮。

the screenshot of step about sorting and grouping by sender domain in outlook 4

步骤5:现在您返回到“显示列”对话框,在“按此顺序显示这些列”框中选择“域名”,将其移动到“发件人”项下方,并点击“确定”按钮。

the screenshot of step about sorting and grouping by sender domain in outlook 5

步骤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:现在每个发件人的域名已被提取并填充到“域名”列中。

A. 要按发件人域名对邮件进行排序,只需点击所有邮件顶部的“域名”列标题;

the screenshot of step about sorting and grouping by sender domain in outlook 6

B. 要按发件人域名对邮件进行分组,只需右键点击“域名”列标题,并从下拉列表中选择“按此字段分组”。见下面的截图:

the screenshot of step about sorting and grouping by sender domain in outlook 7

注意

(1) 此VBA代码在Outlook 2013和2010中运行良好,但在Outlook 2007中不起作用。(2) 您可以轻松保存自定义视图,参考如何在Outlook中保存和复制视图设置到其他文件夹?


相关文章

如何在Outlook的邮件列表中查看发件人的域名?