Como alterar em lote o formato «File as» de todos os contactos no Outlook?

De modo geral, os ficheiros de contacto são apresentados como «Sobrenome Primeiro Nome» no Outlook. Mas como pode alterar rapidamente e em lote o formato «File as» dos contactos para «Empresa» ou outra ordem, tal como mostrado na imagem abaixo? A opção predefinida de «File as» aplica-se apenas aos novos contactos e não aos já existentes. Aqui, apresento um código VBA para alterar em lote o formato «File as» de todos os contactos existentes no Outlook.

Alterar em lote o formato «File as» de todos os contactos com VBA

---

Alterar em lote o formato «File as» de todos os contactos com VBA

1. Selecione os contactos cujo formato «File as» pretende alterar e prima as teclas Alt + F11 para abrir a janela Microsoft Visual Basic for Applications.

2. Faça duplo clique em ThisOutlookSession no painel Project-Project1 e copie e cole o código seguinte no script em branco.

VBA: Alterar formato «File as»

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. Prima a tecla F5 para executar o código; assim, todos os contactos selecionados terão o formato «File as» alterado para Empresa.

Nota:

1. No código, pode alterar CompanyName para outros campos que pretenda utilizar no formato «File as».

2. Se não existir informação da empresa, será exibido o Nome Completo.