Ako rýchlo vytvoriť skupinu kontaktov zo všetkých kontaktov programu Outlook s konkrétnym pracovným názvom

Aby ste mohli ľahšie komunikovať s kontaktmi s konkrétnym pracovným názvom, môžete z týchto kontaktov rýchlo vytvoriť skupinu kontaktov. Teraz v tomto článku s vami zdieľame rýchlu metódu.

Ak často hromadne odosielate e-maily, úlohy alebo pozvánky na schôdzku kontaktom, ktoré majú konkrétny pracovný názov, bude oveľa pohodlnejšie, ak z nich vytvoríte skupinu kontaktov. Spravidla je potrebné štandardným spôsobom najskôr vytvoriť novú skupinu kontaktov a potom postupne pridávať kontakty do skupiny ako členov. Je to trochu nepríjemné. Preto vás v nasledujúcich textoch naučíme oveľa rýchlejšie.

Vytvorte skupinu kontaktov zo všetkých kontaktov s konkrétnym pracovným názvom

1. Najskôr v priečinku Kontakty vyberte kontakt, ktorý má konkrétny názov pracovnej pozície.
2. Potom stlačte kombináciu klávesov „Alt + F11“, aby ste sa dostali do editora Outlook VBA.
3. Ďalej skopírujte nasledujúci kód VBA do prázdneho modulu alebo projektu.

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. Potom posuňte kurzor na prvý podprogram.
5. Nakoniec klepnutím na kľúčové tlačidlo „F5“ spustíte toto makro.
6. Po dokončení makra sa zobrazí nová skupina kontaktov. Obsahuje všetky kontakty s rovnakým pracovným zaradením ako vybratý kontakt v kroku 1.

Efektívne chránte dáta z Outlooku

Aj keď je program Outlook bohatý na funkcie, nemôže sa zbaviť zraniteľnosti. Ak teda nechcete prísť o svoje vzácne údaje Outlooku, musíte vyvinúť úsilie na ich ochranu. Napríklad je potrebné pravidelne zálohovať údaje Outlooku. Ak je to cenovo dostupné, odporúča sa mať aj špičkový nástroj na opravu PST, ako je napr DataNumen Outlook Repair, ktorý môže opraviť PST údaje v jiffe.

Úvod autora:

Shirley Zhang je expertkou na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane poškodený sql a výhľadové softvérové ​​produkty na opravu. Pre viac informácií navštívte www.datanumen. S