Kako brzo stvoriti grupu kontakata iz svih Outlook kontakata s određenim nazivom posla

Da biste lakše komunicirali s kontaktima s određenim nazivom radnog mjesta, možda ćete htjeti brzo stvoriti grupu kontakata od tih kontakata. Sada ćemo u ovom članku s vama podijeliti brzu metodu.

Ako često grupno šaljete e-poštu, zadatke ili pozivnice za sastanke kontaktima koji imaju određeni posao, bit će mnogo praktičnije ako od njih stvorite grupu kontakata. Općenito, na standardni način, prvo morate stvoriti novu grupu kontakata, a zatim dodati kontakte grupi kao članove jednog po jednog. Malo je problematično. Stoga ćemo vas u nastavku naučiti mnogo brži način da ga dobijete.

Stvorite grupu kontakata od svih kontakata s određenim nazivom posla

1. Najprije u mapi Kontakti odaberite kontakt koji ima određeni posao.
2. Zatim pritisnite “Alt + F11” za pristup Outlook VBA uređivaču.
3. Zatim kopirajte sljedeći VBA kod u prazan modul ili 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. Nakon toga pomaknite kursor u prvi potprogram.
5. Na kraju dodirnite tipku "F5" za pokretanje ove makronaredbe.
6. Kada se makronaredba završi, prikazat će se nova grupa kontakata. Sadrži sve kontakte s istim nazivom radnog mjesta odabranog kontakta u 1. koraku.

Učinkovito zaštitite Outlook podatke

Iako je Outlook bogat značajkama, ne može se riješiti činjenice da je ranjiv. Dakle, ako ne želite izgubiti svoje dragocjene Outlook podatke, morate se potruditi da ih zaštitite. Na primjer, morate u redovitim intervalima izrađivati ​​sigurnosne kopije podataka programa Outlook. Također, ako je pristupačan, preporučuje se imati vrhunski alat za popravak PST-a, kao što je DataNumen Outlook Repair, koji može popraviti PST podaci u tren oka.

Uvod za autora:

Shirley Zhang stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući oštećeni sql i softverske proizvode za popravak Outlooka. Za više informacija posjetite www.datanumen.com