Барлық Outlook контактілерінен нақты жұмыс атауы бар контактілер тобын қалай тез құруға болады

Контактілермен белгілі бір лауазым атауы арқылы оңай байланысу үшін, сіз осы контактілерден тез арада байланыс тобын құрғыңыз келуі мүмкін. Енді, осы мақалада біз сіздермен жылдам әдісті бөлісетін боламыз.

Егер сіз белгілі бір лауазымға ие контактілерге электрондық пошта хабарламаларын, тапсырмаларды немесе жиналысқа шақыруларды жиі жіберетін болсаңыз, олардан байланыс тобын жасасаңыз, әлдеқайда ыңғайлы болады. Әдетте, стандартты түрде алдымен жаңа байланыс тобын құрып, содан кейін топқа контактілерді бір-бірлеп қосу керек. Бұл сәл мазасыз. Сондықтан, келесіде біз сізге оны алудың әлдеқайда жылдам жолын үйретеміз.

Барлық контактілерден нақты жұмыс атауы бар байланыс тобын жасаңыз

1. Алдымен, Контактілер қалтасынан нақты жұмыс атауы бар контактіні таңдаңыз.
2. Содан кейін Outlook VBA редакторына кіру үшін «Alt + F11» пернелерін басыңыз.
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. бүлінген кв және бағдарламалық жасақтаманы жөндеу бағдарламалары. Қосымша ақпарат алу үшін кіріңіз WWW.datanumen.com