Как подсчитать количество помеченных сообщений в 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 с несколькими получателями на отдельные сообщения ...
📨 Управление Email: Отозвать письмо / Блокировать мошеннические Email по теме и другим признакам / Удалить дубликаты писем / Расширенный Поиск / Организовать папки ...
📁 Вложения Pro: Пакетное сохранение / Пакетное открепление / Пакетное сжатие / Автосохранение / Автоматическое отсоединение / Автоматическое сжатие ...
🌟 Магия интерфейса: 😊Больше красивых и современных Эмодзи / Напоминания о важных письмах / Сворачивание Outlook вместо закрытия ...
👍 Мгновенные действия в один клик: Ответить всем с вложениями / Антифишинг Email / 🕘Показать часовой пояс отправителя ...
👩🏼🤝👩🏻 Контакты и Календарь: Пакетное добавление контактов из выбранных Email / Разделить группу контактов на отдельные группы / Удалить напоминание о дне рождения ...
Используйте Kutools на вашем любимом языке – поддерживается английский, испанский, немецкий, французский, китайский и более40 других языков!
