Kaip greitai sukurti kontaktų grupę iš visų „Outlook“ kontaktų su konkrečia pareigybe

Kad būtų lengviau bendrauti su kontaktais, turinčiais tam tikrą pareigų pavadinimą, galite greitai sukurti kontaktų grupę iš šių kontaktų. Dabar šiame straipsnyje mes pasidalinsime su jumis greitu metodu.

Jei dažnai paketiniu būdu siunčiate el. laiškus, užduotis ar kvietimus į susitikimą kontaktams, turintiems konkretų pareigų pavadinimą, bus daug patogiau iš jų sukurti kontaktų grupę. Paprastai įprastu būdu pirmiausia turite sukurti naują kontaktų grupę ir po vieną įtraukti kontaktus į grupę kaip narius. Tai šiek tiek vargina. Todėl toliau mes išmokysime jus daug greitesnio būdo tai gauti.

Sukurkite kontaktų grupę iš visų kontaktų su konkrečia pareigybe

1. Iš pradžių kontaktų aplanke pasirinkite adresatą, turintį konkretų pareigų pavadinimą.
2. Tada paspauskite „Alt + F11“, kad pasiektumėte „Outlook VBA“ rengyklę.
3. Tada nukopijuokite šį VBA kodą į tuščią modulį arba projektą.

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. Po to perkelkite žymeklį į pirmąją paprogramę.
5. Galiausiai bakstelėkite mygtuką „F5“, kad paleistumėte šią makrokomandą.
6. Kai makrokomanda bus baigta, bus rodoma nauja kontaktų grupė. Jame yra visi kontaktai, turintys tą patį 1 veiksme pasirinkto kontakto pareigų pavadinimą.

Efektyviai apsaugokite „Outlook“ duomenis

Nors „Outlook“ yra daug funkcijų, ji negali atsikratyti to, kad ji yra pažeidžiama. Taigi, jei nenorite prarasti savo brangių „Outlook“ duomenų, turite pasistengti, kad juos apsaugotumėte. Pavyzdžiui, jums reikia reguliariais intervalais kurti atsargines „Outlook“ duomenų kopijas. Taip pat, jei įperkama, rekomenduojama turėti pažangiausią PST taisymo įrankį, pvz DataNumen Outlook Repair, kuri gali remontas PST duomenys per akis.

Autoriaus įvadas:

Shirley Zhang yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant sugadintas sql ir „Outlook“ taisymo programinės įrangos produktai. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com