Sådan oprettes hurtigt en kontaktgruppe fra alle Outlook-kontakter med en bestemt jobtitel

For lettere at kommunikere med kontakterne med en bestemt jobtitel, kan du muligvis hurtigt oprette en kontaktgruppe ud fra disse kontakter. Nu, i denne artikel, deler vi en hurtig metode med dig.

Hvis du ofte sender e-mails, opgaver eller mødeinvitationer til de kontakter, der har en bestemt jobtitel, vil det være meget mere praktisk, hvis du opretter en kontaktgruppe ud fra dem. Generelt skal du på standard måde først oprette en ny kontaktgruppe og derefter tilføje kontakter til gruppen som medlemmer en efter en. Det er lidt besværligt. Derfor vil vi i det følgende lære dig en meget hurtigere måde at få det på.

Opret en kontaktgruppe fra alle kontakter med en bestemt jobtitel

1. Vælg først en kontakt i en kontaktmappe, der har den specifikke jobtitel.
2. Tryk derefter på "Alt + F11" for at få adgang til Outlook VBA-editor.
3. Kopier derefter følgende VBA-kode til et tomt modul eller 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. Derefter skal du flytte markøren ind i den første underrutine.
5. Til sidst skal du trykke på “F5” -tasten for at køre denne makro.
6. Når makroen er afsluttet, vises en ny kontaktgruppe. Den indeholder alle kontakterne med den samme jobtitel som den valgte kontaktperson i trin 1.

Beskyt Outlook-data effektivt

Selvom Outlook er funktionsrige, kan det ikke slippe af med det faktum, at det er sårbart. Så hvis du ikke vil miste dine dyrebare Outlook-data, skal du gøre en indsats for at beskytte dem. For eksempel skal du lave sikkerhedskopier til Outlook-data med jævne mellemrum. Hvis det er overkommeligt, anbefales det også at have et banebrydende PST-reparationsværktøj, f.eks DataNumen Outlook Repair, Hvilket kan reparation PST data i en jiff.

Forfatter Introduktion:

Shirley Zhang er ekspert i datagendannelse i DataNumen, Inc., som er verdens førende inden for datagendannelsesteknologier, herunder beskadiget sql og Outlook-reparationssoftwareprodukter. For mere information besøg www.datanumen.com