Kuidas kiiresti luua kontaktirühm kõigist Outlooki kontaktidest konkreetse ametinimetusega

Et konkreetse ametinimetusega kontaktidega hõlpsamini suhelda, võiksite nendest kontaktidest kiiresti kontaktirühma luua. Nüüd jagame selles artiklis teiega kiiret meetodit.

Kui saadate kindla ametinimetusega kontaktidele sageli e-kirju, ülesandeid või koosolekukutse, on palju mugavam luua nendest kontaktirühm. Üldjuhul tuleb tavapärasel viisil esmalt luua uus kontaktirühm ja seejärel lisada kontaktid rühma liikmetena ükshaaval. See on natuke tülikas. Seetõttu õpetame teile järgnevalt palju kiiremat viisi selle hankimiseks.

Looge kontaktirühm kõigist konkreetse ametinimetusega kontaktidest

1. Esmalt valige kaustas Kontaktid kontakt, kellel on konkreetne ametinimetus.
2. Seejärel vajutage Outlooki VBA redaktori avamiseks klahvikombinatsiooni Alt + F11.
3. Järgmisena kopeerige järgmine VBA kood tühja moodulisse või projekti.

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. Pärast seda liigutage kursor esimesse alamprogrammi.
5. Lõpuks puudutage selle makro käivitamiseks nuppu "F5".
6. Kui makro on lõpetatud, kuvatakse uus kontaktirühm. See sisaldab kõiki 1. sammus valitud kontakti sama ametinimetusega kontakte.

Kaitse Outlooki andmeid tõhusalt

Kuigi Outlook on funktsioonirikas, ei saa see lahti tõsiasjast, et see on haavatav. Seega, kui te ei soovi oma väärtuslikke Outlooki andmeid kaotada, peate tegema jõupingutusi nende kaitsmiseks. Näiteks peate Outlooki andmeid regulaarselt varundama. Samuti on soodsa hinnaga soovitatav omada tipptasemel PST remonditööriista, nt DataNumen Outlook Repair, mis võib remont PST andmed ühe pilguga.

Autori sissejuhatus:

Shirley Zhang on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas rikutud sql ja Outlooki remonditarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom