Если вы хотите выяснить, сколько контактов в каждой категории, вы можете использовать 2 метода, представленные в этой статье. Один использует мгновенный поиск, а другой использует VBA.
Подобно использованию цветовых категорий для управления электронной почтой Outlook, вы также можете классифицировать свои контакты по категориям. Если вы классифицировали свои контакты по цветам и теперь хотите получить общее количество контактов в каждой отдельной категории, вы можете использовать следующие 2 средства для достижения этой цели.
Способ 1: используйте мгновенный поиск
- Прежде всего, запустите Outlook.
- Затем откройте папку контактов.
- Затем щелкните поле поиска, чтобы активировать ленту «Инструменты поиска».
- После этого нажмите кнопку «По категориям».
- Из выпадающего списка вы можете выбрать одну или несколько цветовых категорий. Здесь мы возьмем «Фиолетовую категорию» в качестве примера.
- После выбора конкретной категории вы увидите, что соответствующий критерий поиска заполнен в поле поиска.
- Теперь в левом нижнем углу строки состояния вы можете проверить общее количество контактов в выбранной категории, как показано на следующем изображении:
Таким образом, вы должны подсчитывать контакты в каждой категории один за другим. Это будет довольно громоздко. Таким образом, если вы хотите получить общее количество контактов в каждой цветовой категории за один раз, вы можете вернуться к следующему трюку.
Способ 2: использовать Outlook VBA
- В самом начале нажмите сочетание клавиш «Alt + F11» в Outlook.
- После этого вы получите доступ к окну редактора Outlook VBA.
- Далее вам нужно открыть новый модуль или модуль, который не используется.
- Затем скопируйте и вставьте в такой модуль следующие коды VBA.
Sub CountContactsinEachCategory()
Dim objDictionary As Object
Dim objContactsFolder As Outlook.Folder
Dim objContacts As Outlook.Items
Dim objContact As Object
Dim strCategory As String
Dim strPrompt As String
Dim nMessage As Integer
Set objDictionary = CreateObject("Scripting.Dictionary")
Set objContactsFolder = Outlook.Application.Session.GetDefaultFolder(olFolderContacts)
'You can count the contacts in selected Contact folder by....
'Set objContactsFolder = Outlook.Application.ActiveExplorer.CurrentFolder
Set objContacts = objContactsFolder.Items
For Each objContact In objContacts
strCategory = objContact.Categories
objDictionary(strCategory) = CLng(objDictionary(strCategory)) + 1
Next objContact
For Each Key In objDictionary.Keys
strPrompt = strPrompt & Key & ": " & objDictionary(Key) & vbCrLf
Next
nMessage = MsgBox(strPrompt, vbInformation, "Count Contacts by Color Category")
End Sub
- После этого убедитесь, что ваш Outlook разрешает макросы.
- Позже вы можете щелкнуть значок «Выполнить» на панели инструментов.
- Наконец, вы получите сообщение с указанием количества контактов в каждой цветовой категории, как на изображении ниже:
Спасите свои данные Outlook
Когда вы сталкиваетесь с таким случаем, когда вы можете получить доступ к своему файлу PST как обычно, очень вероятно, что файл поврежден. В этот момент, чтобы вернуть поврежденный файл PST данные, у вас нет другого выбора, кроме как прибегнуть к достаточно мощному инструменту восстановления, такому как DataNumen Outlook Repair.
Об авторе:
Ширли Чжан — эксперт по восстановлению данных в DataNumen, Inc., которая является мировым лидером в области технологий восстановления данных, включая исправить мдф и программные продукты для ремонта Outlook. Для получения дополнительной информации посетите www.datanumen.com