Como alterar o arquivo em lote como formato para todos os contatos no Outlook?
Em geral, os arquivos de contato são exibidos como Sobrenome Nome no Outlook, mas como você pode alterar rapidamente em lote os arquivos de contato como formato para Empresa ou outro pedido, conforme a captura de tela mostrada abaixo? A opção Padrão “Arquivo como” pedido só pode funcionar para o novo contato, mas não para os existentes. Aqui, apresento um código VBA para o arquivo de alteração em lote como formato para todos os contatos existentes no Outlook.
Arquivo de alteração em lote para todos os contatos com VBA
Arquivo de alteração em lote para todos os contatos com VBA
1. Selecione os contatos para os quais deseja alterar o arquivo, pressione Alt + F11 chaves para habilitar o Microsoft Visual Basic for Applications janela.
2. Clique duas vezes em ThisOutlookSession in Project-Project1 painel 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
3. Pressione F5 para executar o código, todos os contatos selecionados foram alterados no arquivo como empresa.
Observação:
1. No código, você pode alterar CompanyName para outros campos que você deseja exibir como arquivo.
2. Se não houver informações da empresa, será exibido o nome completo.
Melhores ferramentas de produtividade de escritório
Kutools for Outlook - Mais de 100 recursos poderosos para turbinar seu Outlook
🤖 Assistente de correio AI: E-mails profissionais instantâneos com magia de IA – um clique para respostas geniais, tom perfeito, domínio multilíngue. Transforme o envio de e-mails sem esforço! ...
📧 Automação de e-mail: Fora do escritório (disponível para POP e IMAP) / Agendar envio de e-mails / CC/BCC automático por regras ao enviar e-mail / Encaminhamento automático (regras avançadas) / Adicionar saudação automaticamente / Divida automaticamente e-mails de vários destinatários em mensagens individuais ...
📨 Gestão de E-mail: Lembre-se facilmente de e-mails / Bloquear e-mails fraudulentos por assuntos e outros / Apagar Emails Duplicados / Pesquisa Avançada / Consolidar pastas ...
📁 Anexos Pró: Salvar em lote / Desanexar lote / Comprimir em Lote / Salvamento automático / Desanexação Automática / Compressão automática ...
???? Interface Mágica: 😊Mais emojis bonitos e legais / Aumente a produtividade do seu Outlook com visualizações com guias / Minimize o Outlook em vez de fechar ...
???? Maravilhas com um clique: Responder a todos com anexos recebidos / E-mails antiphishing / 🕘Mostrar fuso horário do remetente ...
👩🏼🤝👩🏻 Contatos e calendário: Adicionar contatos em lote de e-mails selecionados / Dividir um grupo de contatos em grupos individuais / Remover lembretes de aniversário ...
Sobre Características 100 Aguarde sua exploração! Clique aqui para descobrir mais.
