☰

使用 VBA 计算 Outlook 对话模式开启时选定邮件的数量

tag-icon • tag-icon microsoft-outlook vba
使用 VBA 计算 Outlook 对话模式开启时选定邮件的数量

我需要在 Outlook for Windows 中计算一些邮件。有一些解决方法，但我发现的唯一真正的解决方案是使用 VBA 脚本，如下面另一个问题中所述：

如何计算 Outlook 中选定的项目？

此解决方案的问题是，它仅计算实际可见的项目。当“显示为对话”处于活动状态时，它会将所有折叠的对话计为一个，而不管其中实际有多少封邮件。

如何修改 VBA 代码以计算对话中的所有消息？

答案1

如果您想使用 VBA 计算选定消息的数量，则可以使用代表 MailItem 对象集合的 Selection 对象。

Sub CountSelectedEmails()
Dim myOlExp As Outlook.Explorer
Dim myOlSel As Outlook.Selection
Dim MsgCount As Integer

Set myOlExp = Application.ActiveExplorer
Set myOlSel = myOlExp.Selection

MsgCount = myOlSel.Count

MsgBox "Number of selected messages: " & MsgCount, vbInformation

子目录结束

相关内容