Легко найти контакты, имеющие или не имеющие адреса электронной почты. Но немного сложно найти контакты, имеющие определенное количество адресов электронной почты, например, более одного адреса электронной почты. Итак, эта статья познакомит вас с эффективным способом его получения.
Outlook позволяет пользователям вводить 3 адреса электронной почты для одного контакта. Следовательно, возможно, вы указали более одного адреса электронной почты для своих контактов. Иногда вам может понадобиться найти контакты с определенным количеством адресов электронной почты, что не так просто, как поиск контактов с адресом электронной почты или без него. Поэтому в дальнейшем мы научим вас, как легко его получить.
Найти все контакты, имеющие более одного адреса электронной почты
- Прежде всего, запустите приложение Outlook.
- Затем нажмите «Alt + F11», чтобы получить доступ к редактору Outlook VBA в соответствии с «Как запустить код VBA в Outlook».
- Затем скопируйте и вставьте следующий код в модуль или проект.
Sub CountContactEmailAddresses() Dim objContactsFolder As Outlook.Folder Dim i As Long Dim objContact As Outlook.ContactItem Dim lEmailAddressCount As Long 'Получить папку контактов Set objContactsFolder = Session.GetDefaultFolder(olFolderContacts) 'Обработать все элементы контактов For i = objContactsFolder.Items. Подсчет до 1 Шаг -1 Если TypeOf objContactsFolder.Items(i) равно ContactItem, то установите objContact = objContactsFolder.Items(i) 'Получить количество адресов электронной почты контакта lEmailAddressCount = 0 If objContact.Email1Address <> "" Then lEmailAddressCount = lEmailAddressCount + 1 Если objContact.Email2Address <> "" Then lEmailAddressCount = lEmailAddressCount + 1 If objContact.Email3Address <> "" Then lEmailAddressCount = lEmailAddressCount + 1 End If End If End If 'Введите число в поле пользователя 1 objContact.User1 = lEmailAddressCount objContact. Сохранить конец, если следующий конец подпрограммы
- Затем нажмите «F5», чтобы запустить этот макрос сейчас.
- После завершения макроса вы можетеtarт поиск.
- Во-первых, откройте папку контактов по умолчанию.
- Затем перейдите на вкладку «Вид» и нажмите кнопку «Настройки просмотра».
- Во всплывающем диалоговом окне нажмите кнопку «Группировать по».
- Затем в новом диалоговом окне «Группировать по» выберите «Все поля контактов» из списка «Выбрать доступные поля из».
- После этого выберите «Пользовательское поле 1» в «Группировать элементы по».
- Позже нажимайте серию «ОК», пока все диалоговые окна не будут закрыты.
- В конце концов, вы можете увидеть список контактов. Контакты в группах «Пользовательское поле 1:2» и «Пользовательское поле 1:3» — это те, у кого более одного адреса электронной почты, как показано на следующем рисунке.
Разберитесь с проблемами Nettlesome Outlook
Файл Outlook PST так же уязвим, как и обычные файлы, такие как документ Word или книги Excel. Таким образом, вы столкнетесь с различными проблемами Outlook. Как правило, для устранения небольших проблем вы можете использовать инструмент восстановления папки «Входящие». Но, когда вам нужно восстановить PST файл, вы должны использовать более мощный внешний инструмент, такой как DataNumen Outlook Repair.
Об авторе:
Ширли Чжан — эксперт по восстановлению данных в DataNumen, Inc., которая является мировым лидером в области технологий восстановления данных, включая фиксировать SQL Server и программные продукты для ремонта Outlook. Для получения дополнительной информации посетите www.datanumen.com
lcghlbksflpznqwlftbzejqbqphqi