Como alterar o formato do arquivo em lote para todos os contatos no Outlook?

Author: Sun Last Modified: 2025-08-06

Em geral, os arquivos de contato são exibidos como Sobrenome Nome no Outlook, mas como você pode alterar rapidamente o formato dos arquivos de contato em lote para Empresa ou outra ordem, conforme mostrado na captura de tela abaixo? A Opção Padrão “Arquivar Como” só funciona para novos contatos, mas não para os já existentes. Aqui, apresento um código VBA para alterar o formato do arquivo em lote para todos os contatos existentes no Outlook.

Alteração em lote do formato do arquivo para todos os contatos com VBA

Alteração em lote do formato do arquivo para todos os contatos com VBA

1. Selecione os contatos que deseja alterar o arquivo, pressione as teclas Alt + F11 para ativar a janela Microsoft Visual Basic for Applications.

2. Clique duas vezes em ThisOutlookSession no painel Projeto-Projeto1 e copie e cole o código abaixo no script em branco.

VBA: Alterar arquivo como

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

doc change file as 3

3. Pressione a tecla F5 para executar o código; em seguida, todos os contatos selecionados terão o arquivo alterado para empresa.

Observação:

1. No código, você pode alterar CompanyName para outros campos que deseja exibir como arquivo.

2. Se não houver informações da empresa, será exibido o nome completo.

Assistente de E-mail AI no Outlook: Respostas mais Inteligentes, Comunicação mais Clara (mágica com um clique!) GRÁTIS

Simplifique suas tarefas diárias no Outlook com o Assistente de E-mail AI do Kutools para Outlook. Esta poderosa ferramenta aprende com seus e-mails anteriores para oferecer respostas inteligentes e precisas, otimizar o conteúdo de seus e-mails e ajudá-lo a criar e refinar mensagens sem esforço.

Este recurso suporta:

Respostas Inteligentes: Receba respostas elaboradas a partir de suas conversas passadas — personalizadas, precisas e prontas para uso.
Conteúdo Aprimorado: Refine automaticamente o texto de seus e-mails para maior clareza e impacto.
Criação Sem Esforço: Basta fornecer palavras-chave e deixar a IA cuidar do resto, com múltiplos estilos de escrita.
Extensões Inteligentes: Expanda seus pensamentos com sugestões contextualizadas.
Resumo: Obtenha visões concisas de e-mails longos instantaneamente.
Alcance Global: Traduza seus e-mails para qualquer idioma com facilidade.

Este recurso suporta: