vba - 基于类别的电子邮件计数

Question

我已连接到我公司的 MS Exchange。从我自己的 Outlook 配置文件中，我访问了一个通用邮箱。所有传入的消息都将被标记到一个类别，然后移动到一个文件夹（邮箱 - 通用 > 已解决）。如何生成此文件夹中每个类别的总数？

邮箱 - Javen

• 收件箱
• 发送的邮件
• ...

邮箱 - 通用

• 收件箱
• 发送的邮件
• 解决
• ...

每个类别将被命名为一个名字......

示例：红色 = 约翰，黄色 = 彼得，紫色 = 佩吉

Answer 1

这应该让你继续前进。它过滤指定类别的文件夹。您可以对其进行编辑以循环 Outlook 类别集合以获取计数。或者您可以将其更改为返回计数的函数...将类别名称作为参数传递。

Private Sub CountbyCategory()
    Dim fldr As Outlook.Folder = Nothing
    Dim itms As Outlook.Items = Nothing
    Dim filteredItms As Outlook.Items = Nothing


    'Do this for each category...
    Dim typeFilter As String = "[Category] = " & Chr(39) & "INSERT CATEGORY NAME HERE" & Chr(39)

    'This assumes default inbox, you'll need to select you folder...maybe use PickFolder?
    'fldr = Application.Session.PickFolder()
    fldr = Application.Session.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderInbox)
    itms = fldr.Items
    filteredItms = itms.Restrict(typeFilter)

    Dim iCount As Integer = filteredItms.Count

    'Repeat for each category
End Sub

您可以在此处了解有关使用 Outlook 项目的更多信息： 使用 Outlook 邮件项目：如何创建、删除、访问和枚举

使用 Outlook 帐户、商店、文件夹和项目