Як швидко створити групу контактів з усіх контактів Outlook із певною назвою роботи

Щоб легше спілкуватися з контактами з певною назвою посади, можливо, ви захочете швидко створити контактну групу з цих контактів. Зараз, у цій статті, ми поділимося з вами швидким методом.

Якщо ви часто групово надсилаєте електронні листи, завдання або запрошення на зустрічі контактам, що мають певну назву посади, буде набагато зручніше, якщо ви створите з них групу контактів. Як правило, стандартним способом потрібно спочатку створити нову групу контактів, а потім додавати контакти до групи як членів по одному. Це трохи клопітно. Отже, далі ми навчимо вас набагато швидшого способу його отримання.

Створіть контактну групу з усіх контактів з конкретною назвою роботи

1. Спочатку в папці Контакти виберіть контакт, який має конкретну назву посади.
2. Потім натисніть “Alt + F11”, щоб отримати доступ до редактора Outlook VBA.
3. Далі скопіюйте наступний код VBA у порожній модуль або проект.

Dim objContact As Outlook.ContactItem
Dim strJobTitle As String
Dim objNewGroup As Outlook.DistListItem
Dim objTempMail As Outlook.MailItem

Sub CreateContactGroupfromContactsSameJobTitle()
    Dim objStore As Outlook.Store
    Dim objOutlookFile As Outlook.Folder
    Dim objFolder As Outlook.Folder
 
    Set objContact = Outlook.Application.ActiveExplorer.Selection(1)
    strJobTitle = objContact.JobTitle
 
    Set objNewGroup = Outlook.Application.CreateItem(olDistributionListItem)
    Set objTempMail = Outlook.Application.CreateItem(olMailItem)
 
    'Process all Contacts folders
    For Each objStore In Outlook.Application.Session.Stores
        Set objOutlookFile = objStore.GetRootFolder
        For Each objFolder In objOutlookFile.Folders
            If objFolder.DefaultItemType = olContactItem Then
               Call ProcessContactsFolders(objFolder)
            End If
        Next
    Next
 
    objNewGroup.AddMembers objTempMail.Recipients
    objNewGroup.Display
End Sub

Sub ProcessContactsFolders(ByVal objCurFolder As Outlook.Folder)
    Dim objItem As Object
    Dim objSubfolder As Outlook.Folder
 
    For Each objItem In objCurFolder.Items
        If objItem.Class = olContact Then
           If objItem.JobTitle = strJobTitle Then
              'Add the contact having the specific job title to the new group
              objTempMail.Recipients.Add (objItem.Email1Address)
              objTempMail.Recipients.ResolveAll
           End If
        End If
    Next
 
    'Process all subfolders recursively
    If objCurFolder.Folders.Count > 0 Then
       For Each objSubfolder In objCurFolder.Folders
           Call ProcessContactsFolders(objSubfolder)
       Next
    End If
End Sub

4. Після цього перемістіть курсор у першу підпрограму.
5. Нарешті, натисніть кнопку «F5», щоб запустити цей макрос.
6. Коли макрос завершиться, з’явиться нова група контактів. Він містить усі контакти з однаковою назвою посади вибраного контакту на кроці 1.

Ефективно захистіть дані Outlook

Незважаючи на те, що Outlook має багато можливостей, він не може позбутися того, що є вразливим. Отже, якщо ви не хочете втратити свої дорогоцінні дані Outlook, вам доведеться докласти зусиль для їх захисту. Наприклад, вам потрібно регулярно робити резервні копії даних Outlook. Крім того, якщо це доступно, рекомендується мати передовий інструмент для ремонту PST, такий як DataNumen Outlook Repair, які можуть ремонт PST дані за один мить.

Вступ автора:

Ширлі Чжан - експерт із відновлення даних у DataNumen, Inc., яка є світовим лідером у галузі технологій відновлення даних, в тому числі пошкоджений sql та перспективні програмні продукти для ремонту. Для отримання додаткової інформації відвідайте WWW.datanumen.com