Количество сообщений на основе категории

Question

Я подключен к MS Exchange моей компании. Из моего собственного профиля Outlook я обращаюсь к универсальному почтовому ящику. Все входящие сообщения будут помечены в категорию, а затем перемещены в папку (Почтовый ящик - общий> разрешенный). Как я могу сгенерировать общее количество каждой категории в этой папке?

Mailbox - Javen

• Inbox
• Отправленные
• ...

Папок - Generic

• Inbox
• Отправленные
• Устранены
• ...

Каждая категория будет называться по имени ...

Пример: Красный = Джон, желтый = Питер, фиолетовый = Peggy

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, здесь: Working with Outlook mail items: how to create, delete, access & enumerate

Working with Outlook Accounts, Stores, Folders and Items