Så här skapar du snabbt en kontaktgrupp från alla Outlook-kontakter med en specifik jobbtitel

För att lättare kunna kommunicera med kontakter med en specifik tjänstetitel, kanske du snabbt vill skapa en kontaktgrupp från dessa kontakter. Nu, i den här artikeln, kommer vi att dela en snabb metod med dig.

Om du ofta gruppsänder e-postmeddelanden, uppgifter eller mötesinbjudningar till de kontakter som har en specifik befattning, blir det mycket bekvämare om du skapar en kontaktgrupp från dem. Generellt sett måste du på vanligt sätt först skapa en ny kontaktgrupp och sedan lägga till kontakter till gruppen som medlemmar en efter en. Det är lite jobbigt. Därför ska vi i det följande lära dig ett mycket snabbare sätt att få det.

Skapa en kontaktgrupp från alla kontakter med en specifik befattning

1. Först väljer du en kontakt som har den specifika befattningen i mappen Kontakter.
2. Tryck sedan på "Alt + F11" för att komma åt Outlook VBA-redigeraren.
3. Kopiera sedan följande VBA-kod till en tom modul eller ett tomt 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. Därefter flyttar du markören till den första subrutinen.
5. Slutligen, tryck på "F5" -knappen för att köra detta makro.
6. När makrot är klart visas en ny kontaktgrupp. Den innehåller alla kontakter med samma jobbtitel som den valda kontakten i steg 1.

Skydda Outlook-data effektivt

Även om Outlook är funktionsrikt kan det inte bli av med att det är sårbart. Så om du inte vill förlora din dyrbara Outlook-data måste du anstränga dig för att skydda den. Du måste till exempel göra säkerhetskopior för Outlook-data med jämna mellanrum. Dessutom, om det är överkomligt, rekommenderas det att ha ett banbrytande PST-reparationsverktyg, som t.ex DataNumen Outlook Repair, som kan reparera PST data i ett nafs.

Författarintroduktion:

Shirley Zhang är expert på dataåterställning DataNumen, Inc., som är världsledande inom teknik för återställning av data, inklusive skadat sql och Outlook-programvara för reparationsprogramvara. För mer information besök www.datanumen.com