É fácil encontrar os contatos com ou sem endereço de e-mail. Porém, é um pouco complicado encontrar os contatos com um determinado número de endereços de e-mail, como mais de um endereço de e-mail. Portanto, este artigo apresentará uma maneira eficaz de obtê-lo.
O Outlook permite que os usuários insiram 3 endereços de e-mail para um contato. Portanto, talvez você tenha preenchido mais de um endereço de e-mail para seus contatos. Às vezes, você pode querer encontrar os contatos que possuem o número específico de endereços de e-mail, o que não é tão fácil quanto encontrar contatos com ou sem endereço de e-mail. Portanto, a seguir, ensinaremos uma maneira de obtê-lo com facilidade.
Encontre todos os contatos com mais de um endereço de e-mail
- Em primeiro lugar, inicie o aplicativo Outlook.
- Em seguida, pressione “Alt + F11” para acessar o editor VBA do Outlook de acordo com “Como executar o código VBA no seu Outlook".
- Em seguida, copie e cole o seguinte código em um módulo ou projeto.
Sub CountContactEmailAddresses() Dim objContactsFolder As Outlook.Folder Dim i As Long Dim objContact As Outlook.ContactItem Dim lEmailAddressCount As Long 'Obter a pasta de contatos Definir objContactsFolder = Session.GetDefaultFolder(olFolderContacts) 'Processar todos os itens de contato para i = objContactsFolder.Items. Count To 1 Step -1 If TypeOf objContactsFolder.Items(i) Is ContactItem Then Set objContact = objContactsFolder.Items(i) 'Obter a contagem do endereço de e-mail do contato lEmailAddressCount = 0 If objContact.Email1Address <> "" Then lEmailAddressCount = lEmailAddressCount + 1 If objContact.Email2Address <> "" Then lEmailAddressCount = lEmailAddressCount + 1 If objContact.Email3Address <> "" Then lEmailAddressCount = lEmailAddressCount + 1 End If End If End If 'Inserir a contagem no campo do usuário 1 objContact.User1 = lEmailAddressCount objContact. Salvar End If Next End Sub
- Posteriormente, pressione “F5” para executar esta macro agora.
- Depois que a macro terminar, você pode start procurando.
- Em primeiro lugar, abra a pasta de contatos padrão.
- Em seguida, vá para a guia "Exibir" e clique no botão "Exibir configurações".
- Na caixa de diálogo pop-up, clique no botão "Agrupar por".
- Em seguida, na nova caixa de diálogo “Agrupar por”, selecione “Todos os campos de contatos” na lista de “Selecionar campos disponíveis de”.
- Depois disso, selecione “Campo do usuário 1” em “Agrupar itens por”.
- Posteriormente, clique em uma série de “OK” até que todas as caixas de diálogo sejam fechadas.
- Eventualmente, você pode ver a lista de contatos. Os contatos dos grupos “Campo de usuário 1: 2” e “Campo de usuário 1: 3” são aqueles que possuem mais de um endereço de e-mail, conforme a figura a seguir.
Lidar com problemas de Outlook Nettlesome
O arquivo PST do Outlook é tão vulnerável quanto arquivos comuns, como documentos do Word ou pastas de trabalho do Excel. Portanto, você encontraria vários problemas do Outlook. Geralmente, para corrigir pequenos problemas, você pode usar a ferramenta de reparo da caixa de entrada. Mas, quando você precisa reparar PST arquivo, você tem que usar uma ferramenta externa mais potente, como DataNumen Outlook Repair.
Introdução do autor:
Shirley Zhang é especialista em recuperação de dados em DataNumen, Inc., líder mundial em tecnologias de recuperação de dados, incluindo fixo SQL Server e produtos de software de reparo do Outlook. Para mais informações visite www.datanumen.com
lcghlbksflpznsqwlftbzejqbqphqi