0

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

邮箱 - Javen

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

邮箱 - 通用

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

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

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

4

1 回答 1

2

这应该让你继续前进。它过滤指定类别的文件夹。您可以对其进行编辑以循环 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 帐户、商店、文件夹和项目

于 2013-06-04T15:27:11.257 回答