Outlook-contactpersonen snel groeperen op domein in lijstweergave

Outlook biedt standaard geen veld 'Domein'. Als u uw contacten per domein wilt groeperen, moet u daarom eerst een dergelijk veld aanmaken. Dit artikel laat u nu zien hoe u dit in een oogwenk kunt bereiken.

U kunt uw Outlook-contactpersonen groeperen op basis van beschikbare velden, zoals bedrijf, kleurcategorieën, functietitel enzovoort. Er is echter geen standaardveld 'Domein'. U kunt uw contacten dus niet eenvoudig per domein groeperen. Maar via de volgende manier kun je het alsnog snel realiseren.

Groepeer Outlook-contactpersonen op domein in lijstweergave

1. Helemaal aan het begin, start uw Outlook-programma.
2. Ga vervolgens in het Outlook-venster naar het tabblad "Ontwikkelaar" en klik op de knop "Visual Basic".
3. Vervolgens krijgt u toegang tot de Outlook VBA-editor, waarin u een ongebruikte module moet openen.
4. Kopieer vervolgens de volgende VBA-code naar deze module.

Sub DisplayDomain()
    Dim objCurrentFolder As Outlook.Folder
    Dim objItem As Object
    Dim objContact As Outlook.ContactItem
    Dim objProperties As Outlook.UserProperties
    Dim objProperty As Outlook.UserProperty
    Dim strPropertyName As String
    Dim strMainEmailAddress, strDomain As String
 
    Set objCurrentFolder = Outlook.Application.ActiveExplorer.CurrentFolder
 
    If objCurrentFolder.DefaultItemType = olContactItem Then
       If objCurrentFolder.Items.count > 0 Then
 
          For Each objItem In objCurrentFolder.Items
              If TypeOf objItem Is ContactItem Then
 
                 Set objContact = objItem
                 Set objProperties = objContact.UserProperties
  
                 strPropertyName = "Domain"
 
                 Set objProperty = objProperties.Find(strPropertyName, True)
                 If objProperty Is Nothing Then
                    Set objProperty = objProperties.Add(strPropertyName, olText, True)
                 End If
 
                 strMainEmailAddress = objContact.Email1Address
                 strDomain = Right(strMainEmailAddress, Len(strMainEmailAddress) - InStr(1, strMainEmailAddress, "@"))
 
                 objProperty.value = strDomain
                 objContact.Save
              End If
          Next
       Else
          MsgBox "No Items in This Contacts Folder!", vbExclamation
       End If
    Else
      MsgBox "Please access a Contacts folder!", vbExclamation
    End If
End Sub

5. Daarna kunt u, voor latere gemakkelijke toegang, deze macro beter toevoegen aan de werkbalk Snelle toegang. Sluit de VBA-editor af en ga naar "Outlook-opties" om dit te doen.
6. Uiteindelijk kun je het proberen.

• Open eerst een map Contactpersonen.
• Wijzig vervolgens de weergave in “Lijst”.
• Klik vervolgens op de macroknop in de werkbalk Snelle toegang.
• Ga daarna naar het tabblad "Beeld" en klik op de knop "Instellingen bekijken".
• Klik in het nieuwe dialoogvenster op de knop "Groeperen op".
• Volg vervolgens in het daaropvolgende dialoogvenster "Groeperen op" de stappen in de onderstaande schermafbeelding:

7. Nadat u ten slotte terugkeert naar de contactenlijst, ziet u dat de contacten zijn gegroepeerd per domein, zoals op de onderstaande afbeelding:

Houd een Cogent PST-reparatietool in de buurt

Als gewone Outlook-gebruiker bent u wellicht ooit veel problemen tegengekomen, waaronder plotseling niet reageren, automatische restart, pop-upfoutmeldingen enzovoort. Het wordt dus aanbevolen om een ​​formidabel en betrouwbaar Outlook-fixhulpprogramma te bemachtigen, zoals DataNumen Outlook Repair. Het kan Outlook repareren problemen zonder te zweten.

Auteur Introductie:

Shirley Zhang is een expert op het gebied van gegevensherstel in DataNumen, Inc., de wereldleider in technologieën voor gegevensherstel, waaronder mdf repareren en Outlook-reparatiesoftwareproducten. Voor meer informatie bezoek www.datanumen.com