Как подсчитать количество помеченных сообщений в Outlook?
В Outlook вы можете пометить сообщения, контакты или задачи, чтобы сделать их выдающимися, но иногда вам нужно подсчитать количество отмеченных элементов в Outlook. Как бы вы могли справиться с этой задачей в Outlook?
Подсчитайте количество отмеченных сообщений в одной учетной записи с помощью папок поиска
Подсчитайте количество отмеченных сообщений в одной учетной записи с помощью папок поиска
Чтобы подсчитать количество помеченных писем в учетной записи Outlook, Папки поиска функция может вам помочь, пожалуйста, сделайте следующее:
1, Щелкните правой кнопкой мыши Папки поиска под своей учетной записью электронной почты, а затем выберите Новая папка поиска, см. снимок экрана:
2, Затем Новая папка поиска появится диалоговое окно, щелкните Письмо отмечено для отслеживания вариант в Чтение почты раздел, см. снимок экрана:
3. Затем нажмите OK, и все помеченные сообщения копируются в Для продолжения папка, и общее количество помеченных писем отображается, как показано на следующем снимке экрана:
Подсчитайте количество отмеченных сообщений / контактов / задач отдельно во всех учетных записях с кодом VBA
Если вы хотите подсчитать количество всех отмеченных элементов, таких как электронные письма, контакты и задачи в Outlook отдельно, следующий код VBA может оказать вам услугу.
1. Удерживайте ALT + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.
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: с более чем 100 удобными надстройками Excel, которые можно попробовать бесплатно без ограничений в течение 60 дней. Загрузите и попробуйте бесплатную пробную версию прямо сейчас!
|
Лучшие инструменты для офисной работы
Kutools for Outlook - Более 100 мощных функций для улучшения вашего Outlook
🤖 Почтовый помощник с искусственным интеллектом: Мгновенные профессиональные электронные письма с помощью магии искусственного интеллекта: гениальные ответы одним щелчком мыши, идеальный тон, многоязычное владение. Преобразуйте электронную почту без особых усилий! ...
???? Автоматизация электронной почты: Нет на месте (доступно для POP и IMAP) / Расписание отправки писем / Автоматическое копирование/скрытая копия по правилам при отправке электронной почты / Автопересылка (расширенные правила) / Автоматическое добавление приветствия / Автоматически разделять электронные письма от нескольких получателей на отдельные сообщения ...
📨 Управление электронной почтой: Легко вспоминать электронные письма / Блокировка мошеннических писем от субъектов и других лиц / Удалить повторяющиеся электронные письма / Поиск / Объединение папок ...
📁 Вложения Pro: Пакетное сохранение / Пакетное отсоединение / Пакетное сжатие / Автосохранение / Авто отсоединение / Автоматическое сжатие ...
???? Магия интерфейса: 😊Больше красивых и крутых смайлов / Повысьте производительность Outlook с помощью представлений с вкладками / Свернуть Outlook вместо закрытия ...
???? Чудеса в один клик: Ответить всем с входящими вложениями / Антифишинговые письма / 🕘Показать часовой пояс отправителя ...
👩🏼🤝👩🏻 Контакты и календарь: Пакетное добавление контактов из выбранных писем / Разделить группу контактов на отдельные группы / Удалить напоминания о днях рождения ...
Более Особенности 100 Ждем вашего исследования! Нажмите здесь, чтобы узнать больше.