Как подсчитать количество помеченных сообщений в Outlook?
В Outlook вы можете помечать сообщения, контакты или задачи, чтобы выделить их, но иногда вам нужно подсчитать количество помеченных элементов в вашем Outlook. Как можно справиться с этой задачей в Outlook?
Подсчет количества помеченных сообщений в одном аккаунте с помощью Поисковых папок
a name="a1"> Подсчет количества помеченных сообщений в одном аккаунте с помощью Поисковых папок
Чтобы подсчитать количество помеченных писем в аккаунте Outlook, функция Поисковые папки может помочь вам, выполните следующие действия:
1. Щелкните правой кнопкой мыши Поисковые папки под вашей учетной записью электронной почты и выберите Новая поисковая папка, см. скриншот:

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

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

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

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

Подсчет количества сегодняшних, вчерашних, прочитанных, непрочитанных, общих элементов... в Outlook С мощной функцией Статистика Kutools for Outlook вы можете получить количество элементов по дате, выбранным элементам, прочитанным, непрочитанным и так далее, в зависимости от ваших потребностей. ![]() Kutools for Outlook: более 70+ удобных и бесплатных надстроек для Outlook, скачайте бесплатную версию прямо сейчас. |
Лучшие инструменты для повышения продуктивности работы с Office
Срочные новости: бесплатная версия Kutools для Outlook уже доступна!
Оцените обновленный Kutools для Outlook с более чем100 невероятными функциями! Нажмите, чтобы скачать прямо сейчас!
📧 Автоматизация Email: Автоответчик (Доступно для POP и IMAP) / Запланировать отправку писем / Авто Копия/Скрытая копия по правилам при отправке писем / Автоматическое перенаправление (Расширенное правило) / Автоматически добавить приветствие / Авторазделение Email с несколькими получателями на отдельные письма ...
📨 Управление Email: Отозвать письмо / Блокировать вредоносные письма по теме и другим критериям / Удалить дубликаты / Расширенный Поиск / Организовать папки ...
📁 Вложения Pro: Пакетное сохранение / Пакетное открепление / Пакетное сжатие / Автосохранение / Автоматическое отсоединение / Автоматическое сжатие ...
🌟 Волшебство интерфейса: 😊Больше красивых и стильных эмодзи / Напоминание при поступлении важных писем / Свернуть Outlook вместо закрытия ...
👍 Удобные функции одним кликом: Ответить всем с вложениями / Антифишинговая Email / 🕘Показать часовой пояс отправителя ...
👩🏼🤝👩🏻 Контакты и Календарь: Пакетное добавление контактов из выбранных Email / Разделить группу контактов на отдельные / Удалить напоминание о дне рождения ...
Используйте Kutools на вашем языке – поддерживаются Английский, Испанский, Немецкий, Французский, Китайский и более40 других!


🚀 Скачайте все дополнения 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