Hoe u de e-mailweergavenaamindelingen van al uw contacten in batches kunt wijzigen met Outlook VBA

Outlook-oplossingen 29 september 2025

Outlook toont alle contact-e-mails in de standaardindeling voor weergavenamen, namelijk "volledige naam (e-mailadres)". Als u het niet leuk vindt, moet u het elke keer handmatig wijzigen wanneer u nieuwe contacten maakt. Dit artikel leert u een snelle manier om ze in batches te wijzigen met Outlook VBA.

Wanneer u een nieuw Outlook-contact maakt, nadat u de volledige naam en het e-mailadres heeft ingevoerd en vervolgens in het vak "Weergeven als" klikt, wordt de standaardweergavenaam automatisch ingevuld, zoals in de volgende schermafbeelding:

De weergavenaam van deze e-mail heeft gevolgen wanneer u een contactpersoon moet selecteren. Zoals de afbeelding hieronder, de 2^nd kolom "Weergavenaam" komt overeen met de informatie in het veld "Weergeven als".

Als u het formaat van de weergavenaam van de e-mail wilt wijzigen, moet u dit handmatig wijzigen. Maar met de hulp van VBA kunt u het formaat van de e-mailweergavenaam van alle contacten in batches wijzigen in het door u gewenste formaat.

Wijzig de e-mailweergavenaamindelingen van al uw contacten in batches

Start in de eerste plaats Outlook en druk op de toetsen "Alt + F11" om het venster "Visual Basic" te openen.
Open vervolgens een nieuwe module en kopieer de volgende VBA-codes erin.

Sub BatchChangeContactDisplayName()
    Dim obApp As Application
    Dim olContacts As Outlook.Items
    Dim obj As Object
    Dim oContact As Outlook.ContactItem
    Dim strName As String
 
    Set olContacts = Session.GetDefaultFolder(olFolderContacts).Items
 
    For Each obj In olContacts
        If TypeName(obj) = "ContactItem" Then
           Set oContact = obj
           With oContact
                'Display name format: "fullname (company name)(email address)"
                 strName = .FullName & " (" & .CompanyName & ")" & " (" & .Email1Address & ") "
                .Email1DisplayName = strName
                .Save
           End With
        End If
    Next
End Sub

Extra tips:

U kunt de volgorde wijzigen tussen "volledige naam", "bedrijfsnaam" en "e-mailadres" volgens uw voorkeur.
De ".Voor-en achternaam”Verwijst naar het formaat in“ Voornaam Achternaam ”. Als je wilt laten zien in "Achternaam Voornaam", gebruik ".AchternaamEnVoornaam" in plaats daarvan.

Vervolgens, na het plakken van de VBA-codes, moet u de nieuwe macro toevoegen aan de werkbalk Snelle toegang. Volg onderstaande stappen:

Ga eerst terug naar het hoofdvenster van Outlook en druk op de pijl-omlaag in de werkbalk Snelle toegang.
Kies "Meer opdrachten" in de vervolgkeuzelijst.
Vervolgens moet u in het venster "Outlook-opties" "Macro's" selecteren in het vak "Kies opdrachten uit".
Richt je vervolgens op de macro die je wilt gebruiken en druk op de knop "Toevoegen" in het midden.
Klik ten slotte op de knop "OK".

Uiteindelijk kunt u terugkeren naar uw standaard contactmap. Klik op de macroknop in de werkbalk Snelle toegang. Daarna kunt u één contactpersoon openen om te controleren. U zult zien dat het formaat van de weergavenaam van de e-mail is gewijzigd.

Ontsnap aan het verlies van Outlook-gegevens

Zoals we allemaal weten, is Outlook vatbaar voor fouten en beschadigingen. Daarom is het een zware taak om Outlook-gegevens te beschermen en gegevensverlies te voorkomen. U moet dus regelmatig een back-up maken van uw Outlook-gegevens, die veel zullen bijdragen Herstel van schade aan Outlook-gegevens in het geval van een Outlook-crash. Het is ook essentieel om een krachtige reparatietool te krijgen, zoals DataNumen Outlook Repair. Al met al is het handig als de back-up niet actueel is of geen effecten heeft.

Auteur Introductie:

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