Hoe wijzigt u in Outlook het bestandsindelingstype voor al uw contacten in één keer?

Contactbestanden worden standaard in Outlook weergegeven als ‘Achternaam Voornaam’, maar hoe wijzigt u deze indeling snel en in één keer naar bijvoorbeeld ‘Bedrijf’ of een andere volgorde, zoals in de onderstaande afbeelding wordt getoond? De standaardoptie **Bestand als** werkt alleen voor nieuwe contactpersonen, niet voor bestaande contacten. Hieronder vindt u een VBA-code waarmee u het bestandsindelingstype voor al uw bestaande contacten in Outlook tegelijk kunt aanpassen.

In één keer het bestandsindelingstype wijzigen voor alle contacten met VBA

---

In één keer het bestandsindelingstype wijzigen voor alle contacten met VBA

1. Selecteer de contacten waarvan u het bestandsindelingstype wilt wijzigen en druk op Alt + F11 om het venster Microsoft Visual Basic for Applications te openen.

2. Dubbelklik op ThisOutlookSession in het Project-Project1-deelvenster en kopieer de onderstaande code naar het lege script.

VBA: Bestandsindelingstype wijzigen

Sub ChangeFileAsforContracts()
'UpdatebyExtendoffice20180404
Dim xSelItems As Object
Dim xItem As Object
Dim xContact As ContactItem
Dim xFileAs As String
On Error Resume Next
If Outlook.Application.ActiveExplorer.CurrentFolder.DefaultItemType <> olContactItem Then
    MsgBox "Please select the contact folder first", vbInformation + vbOKOnly, "Kutools for Outlook"
    Exit Sub
End If
Set xSelItem = Outlook.ActiveExplorer.Selection
For Each xItem In xSelItem
    If xItem.Class = olContact Then
        Set xContact = xItem
        With xContact
            If .CompanyName = "" Then
                xFileAs = .FullName
            Else
                xFileAs = .CompanyName
            End If
            .FileAs = xFileAs
            .Save
        End With
    End If
Next
End Sub

3. Druk op de F5-toets om de code uit te voeren; daarna is het bestandsindelingstype van alle geselecteerde contacten gewijzigd naar bedrijf.

Opmerking:

1. In de code kunt u CompanyName vervangen door andere velden die u als bestandsindelingstype wilt gebruiken.

2. Als er geen bedrijfsinformatie beschikbaar is, wordt de volledige naam weergegeven.