Перейти к содержимому

Kutools для Office — один пакет. Пять инструментов. Выполняйте больше.

Как подсчитать количество помеченных сообщений в Outlook?

Author Xiaoyang Last modified

В Outlook вы можете помечать сообщения, контакты или задачи, чтобы выделить их, но иногда вам нужно подсчитать количество помеченных элементов в вашем Outlook. Как можно справиться с этой задачей в Outlook?

Подсчет количества помеченных сообщений в одном аккаунте с помощью Поисковых папок

Подсчет количества помеченных сообщений / контактов / задач по отдельности во всех аккаунтах с помощью кода VBA


a name="a1"> Подсчет количества помеченных сообщений в одном аккаунте с помощью Поисковых папок

Чтобы подсчитать количество помеченных писем в аккаунте Outlook, функция Поисковые папки может помочь вам, выполните следующие действия:

1. Щелкните правой кнопкой мыши Поисковые папки под вашей учетной записью электронной почты и выберите Новая поисковая папка, см. скриншот:

doc count flagged items 1

2. Затем появится диалоговое окно Новая поисковая папка, нажмите на опцию Письма, помеченные для последующего просмотра, в разделе Чтение почты, см. скриншот:

doc count flagged items 2

3. Затем нажмите OK, и все помеченные сообщения будут скопированы в папку Для последующего просмотра, а общее количество помеченных писем будет отображено, как показано на следующем скриншоте:

doc count flagged items 3

a name="a2"> Подсчет количества помеченных сообщений / контактов / задач по отдельности во всех аккаунтах с помощью кода VBA

Если вы хотите подсчитать количество всех помеченных элементов, таких как письма, контакты и задачи в Outlook по отдельности, следующий код VBA может помочь вам.

1. Удерживайте клавиши ALT + F11, чтобы открыть окно Microsoft Visual Basic for Applications.

2. Затем нажмите Вставить > Модуль, скопируйте и вставьте приведенный ниже код в открытый пустой модуль, см. скриншот:

Код VBA: Подсчет количества помеченных элементов в Outlook:

Dim GSeparateCount, GMailCount, GContactCount, GTaskCount As Long
Sub CountFlaggedItems()
Dim xStore As Outlook.Store
Dim xTotalCount As Long
Dim xPrompt As String
Dim xFolder As Folder
Dim i, k As Integer
On Error Resume Next
xTotalCount = 0
GMailCount = 0
GContactCount = 0
GTaskCount = 0
For Each xStore In Application.Session.Stores
    For Each xFolder In xStore.GetRootFolder.Folders
       Call ProcessFolders(xFolder)
    Next
Next
xTotalCount = GMailCount + GContactCount + GTaskCount
xPrompt = xTotalCount & " items have been flagged, as follows: " & Chr(10) & Chr(10) & "Emails: " & GMailCount & Chr(10) & "Contacts: " & GContactCount & Chr(10) & "Tasks: " & GTaskCount
MsgBox xPrompt, vbInformation + vbOKOnly, "Kutools for Outlook"
End Sub
Sub ProcessFolders(ByVal CurFolder As Outlook.Folder)
Dim xSubfolder As Outlook.Folder
Dim xItem As Object
Dim i, k As Integer
On Error Resume Next
For i = CurFolder.Items.Count To 1 Step -1
    Set xItem = CurFolder.Items.item(i)
    Select Case xItem.Class
        Case olMail, olPost, olSharing
            If xItem.IsMarkedAsTask = True Then
                GMailCount = GMailCount + 1
            End If
        Case olContact, olDistList
            If xItem.IsMarkedAsTask = True Then
                GContactCount = GContactCount + 1
            End If
        Case olTask
            If CurFolder.DefaultItemType = olTaskItem Then
            GTaskCount = GTaskCount + 1
            End If
    End Select
Next i
If CurFolder.Folders.Count > 0 Then
        For k = CurFolder.Folders.Count To 1 Step -1
            Set xSubfolder = CurFolder.Folders.item(k)
            Call ProcessFolders(xSubfolder)
        Next k
    End If
End Sub
doc count flagged items 4

3. Затем нажмите клавишу F5, чтобы запустить этот код, и появится всплывающее окно, которое сообщит вам общее количество всех помеченных элементов, как показано на скриншоте ниже:

doc count flagged items 5

Подсчет количества сегодняшних, вчерашних, прочитанных, непрочитанных, общих элементов... в Outlook

С мощной функцией Статистика Kutools for Outlook вы можете получить количество элементов по дате, выбранным элементам, прочитанным, непрочитанным и так далее, в зависимости от ваших потребностей.

doc count flagged items 6
Kutools for Outlook: более 70+ удобных и бесплатных надстроек для Outlook, скачайте бесплатную версию прямо сейчас.

Лучшие инструменты для повышения продуктивности работы с Office

Срочные новости: бесплатная версия Kutools для Outlook уже доступна!

Оцените обновленный Kutools для Outlook с более чем100 невероятными функциями! Нажмите, чтобы скачать прямо сейчас!

🤖 Kutools AI : Использует передовые технологии искусственного интеллекта для легкой работы с Email — включая Ответ, Резюме, Оптимизацию, Расширение, Перевод и Составление писем.

📧 Автоматизация Email: Автоответчик (Доступно для POP и IMAP) / Запланировать отправку писем / Авто Копия/Скрытая копия по правилам при отправке писем / Автоматическое перенаправление (Расширенное правило) / Автоматически добавить приветствие / Авторазделение Email с несколькими получателями на отдельные письма ...

📨 Управление Email: Отозвать письмо / Блокировать вредоносные письма по теме и другим критериям / Удалить дубликаты / Расширенный Поиск / Организовать папки ...

📁 Вложения Pro: Пакетное сохранение / Пакетное открепление / Пакетное сжатие / Автосохранение / Автоматическое отсоединение / Автоматическое сжатие ...

🌟 Волшебство интерфейса: 😊Больше красивых и стильных эмодзи / Напоминание при поступлении важных писем / Свернуть Outlook вместо закрытия ...

👍 Удобные функции одним кликом: Ответить всем с вложениями / Антифишинговая Email / 🕘Показать часовой пояс отправителя ...

👩🏼‍🤝‍👩🏻 Контакты и Календарь: Пакетное добавление контактов из выбранных Email / Разделить группу контактов на отдельные / Удалить напоминание о дне рождения ...

Используйте Kutools на вашем языке – поддерживаются Английский, Испанский, Немецкий, Французский, Китайский и более40 других!

Мгновенно активируйте Kutools для Outlook одним кликом. Не ждите – скачайте и улучшите свою эффективность прямо сейчас!

kutools for outlook features1 kutools for outlook features2

🚀 Скачайте все дополнения Office одним кликом

Рекомендуем: Kutools для Office (5-в-1)

Скачайте сразу пять установщиков одним кликом — Kutools для Excel, Outlook, Word, PowerPoint и Office Tab Pro. Нажмите, чтобы скачать прямо сейчас!

  • Все просто: скачайте все пять установочных пакетов одним действием.
  • 🚀 Готово для любой задачи Office: Установите нужные дополнения тогда, когда они вам понадобятся.
  • 🧰 Включено: Kutools для Excel / Kutools для Outlook / Kutools для Word / Office Tab Pro / Kutools для PowerPoint