如何在Outlook中按月对电子邮件进行分组和排序?
默认情况下,电子邮件在Outlook的“收件箱”中按接收日期排序。 但是,没有命令按接收月份对所有电子邮件进行排序或分组。 在这里,我将介绍一种在Outlook中按月对所有电子邮件进行分组和排序的方法。
使用VBA代码在Outlook中按月对电子邮件进行分组或排序
使用VBA代码在Outlook中按月对电子邮件进行分组或排序
此方法将指导您创建一个名为“月”的新列,然后应用VBA宏将收到的月提取到新列中,然后您可以在Outlook中按“月”列对所有电子邮件进行排序或分组。
1. 打开一个邮件文件夹,您将在其中按月对电子邮件进行排序或分组,然后单击 查看设置 上的按钮 查看 选项卡在Outlook 2010和更高版本中。
请注意: 在Outlook 2007中,您可以单击 查看 > 当前视图 > 自定义当前视图.
2。 即将来临 高级视图设置/自定义视图 对话框中,单击 列 按钮(或 字段 按钮)。
3。 在里面 显示列/字段 对话框中,单击 新的列 按钮(或 新场 按钮)以打开“新建列/字段”对话框,键入 月 ,在 名字 盒子,保持 文本 同时选择 Type 盒子和 格式 框,然后单击 OK 按钮。 参见下面的截图:
4. 现在您回到 显示列/字段 对话框,单击以选择 月 中的项目 显示这些列 (或 字段) 按此顺序 框,然后将其移到 收到 通过点击 提前 按钮,最后点击 OK 按钮。
5。 点击 OK 按钮关闭 高级视图设置/自定义视图 对话框。
6。 选择打开的文件夹中的所有电子邮件,选择任何电子邮件,然后按 按Ctrl + A 键同时。
备注:如果 阅读面板 正在开启,请点击 查看 > 阅读面板 > 关闭.
7。 打开 Microsoft Visual Basic应用程序 按下 其他 + F11 同时键入,然后单击 插页 > 模块.
8。 将以下VBA宏粘贴到模块中:
VBA:按月对电子邮件进行排序或分组
Sub ListSelectionMonth()
Dim aObj As Object
Dim oProp As Outlook.UserProperty
Dim sMonth
On Error Resume Next
For Each aObj In Application.ActiveExplorer.Selection
Set oMail = aObj
sMonth = Month(oMail.ReceivedTime)
Set oProp = oMail.UserProperties.Add("Month", olText, True)
oProp.Value = sMonth
oMail.Save
Err.Clear
Next
End Sub
9。 按 F5 运行此VBA宏的关键。
10。 现在,每个电子邮件的接收月份都提取到以下内容中 月 柱。 要按月在此打开的文件夹中对所有电子邮件进行排序,只需单击 月。 看截图:
备注:要按月在此打开文件夹中对所有电子邮件进行分组,请右键单击的列标题 月,然后选择 按此字段分组 从右键单击菜单中。 看截图:
最佳办公生产力工具
Kutools for Outlook - 超过 100 种强大功能可增强您的 Outlook
🤖 人工智能邮件助手: 具有人工智能魔力的即时专业电子邮件——一键天才回复、完美语气、多语言掌握。轻松改变电子邮件! ...
📧 电子邮件自动化: 外出(适用于 POP 和 IMAP) / 安排发送电子邮件 / 发送电子邮件时按规则自动抄送/密件抄送 / 自动转发(高级规则) / 自动添加问候语 / 自动将多收件人电子邮件拆分为单独的消息 ...
📨 电子邮件管理: 轻松回忆电子邮件 / 按主题和其他人阻止诈骗电子邮件 / 删除重复的电子邮件 / 高级搜索 / 合并文件夹 ...
📁 附件专业版: 批量保存 / 批量分离 / 批量压缩 / 自动保存 / 自动分离 / 自动压缩 ...
🌟 界面魔法: 😊更多又漂亮又酷的表情符号 / 使用选项卡式视图提高 Outlook 工作效率 / 最小化 Outlook 而不是关闭 ...
👍 一键奇迹: 使用传入附件回复全部 / 反网络钓鱼电子邮件 / 🕘显示发件人的时区 ...
👩🏼🤝👩🏻 通讯录和日历: 从选定的电子邮件中批量添加联系人 / 将联系人组拆分为各个组 / 删除生日提醒 ...
超过 100特点 等待您的探索! 单击此处了解更多。