So gruppieren Sie Outlook-Kontakte schnell nach Domain in der Listenansicht

Outlook bietet standardmäßig kein Feld "Domäne". Wenn Sie also Ihre Kontakte nach Domänen gruppieren möchten, müssen Sie zuerst ein solches Feld erstellen. In diesem Artikel erfahren Sie, wie Sie dies im Handumdrehen erreichen.

Sie können Ihre Outlook-Kontakte nach verfügbaren Feldern wie Unternehmen, Farbkategorien, Berufsbezeichnung usw. gruppieren. Es gibt jedoch kein Standardfeld „Domain“. Daher können Sie Ihre Kontakte nicht einfach nach Domänen gruppieren. Aber über den folgenden Weg können Sie es immer noch in kurzer Zeit realisieren.

Gruppieren Sie Outlook-Kontakte nach Domäne in der Listenansicht

1. Ganz am Anfang start Ihr Outlook-Programm.
2. Wechseln Sie dann im Outlook-Fenster zur Registerkarte „Entwickler“ und klicken Sie auf die Schaltfläche „Visual Basic“.
3. Als Nächstes erhalten Sie Zugriff auf den Outlook VBA-Editor, in dem Sie ein nicht verwendetes Modul öffnen müssen.
4. Kopieren Sie anschließend den folgenden VBA-Code in dieses Modul.

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. Danach sollten Sie dieses Makro für einen späteren bequemen Zugriff besser zur Symbolleiste für den Schnellzugriff hinzufügen. Beenden Sie den VBA-Editor und gehen Sie zu "Outlook-Optionen", um dies zu tun.
6. Schließlich können Sie es versuchen.

• Greifen Sie zunächst auf einen Kontaktordner zu.
• Ändern Sie dann die Ansicht auf „Liste“.
• Klicken Sie anschließend auf die Makroschaltfläche in der Symbolleiste für den Schnellzugriff.
• Rufen Sie danach die Registerkarte "Ansicht" auf und klicken Sie auf die Schaltfläche "Einstellungen anzeigen".
• Klicken Sie im neuen Dialogfeld auf die Schaltfläche „Gruppieren nach“.
• Führen Sie dann im nachfolgenden Dialogfeld „Gruppieren nach“ die Schritte aus, die im folgenden Screenshot gezeigt werden:

7. Schließlich, nachdem Sie zur Kontaktliste zurückgekehrt sind, sehen Sie, dass die Kontakte nach Domänen gruppiert sind, wie in der folgenden Abbildung:

Halten Sie ein Cogent PST-Reparaturwerkzeug in der Nähe

Als normaler Outlook-Benutzer sind Sie möglicherweise schon einmal auf viele Probleme gestoßen, darunter plötzliches Nichtreagieren, automatische Auflösungtart, Popup-Fehlermeldungen und so weiter. Daher wird empfohlen, sich ein beeindruckendes und zuverlässiges Outlook-Fix-Dienstprogramm zu besorgen, wie z DataNumen Outlook Repair. Es ist in der Lage Outlook reparieren Probleme, ohne ins Schwitzen zu geraten.

Einführung des Autors:

Shirley Zhang ist eine Datenrettungsexpertin in DataNumen, Inc., das weltweit führend bei Datenwiederherstellungstechnologien ist, einschließlich mdf reparieren und Outlook-Reparatursoftwareprodukte. Für weitere Informationen besuchen Sie www.datanumen.com €XNUMX