Como expandir em lote todos os grupos de contatos no campo “Para” ao redigir um e-mail do Outlook

Muitos usuários desejam um método que permita expandir todos os grupos de contatos no campo “Para” em massa ao redigir um e-mail do Outlook. Portanto, neste post, compartilharemos com você essa abordagem.

Normalmente, para expandir um grupo de contatos no campo “Para”, você pode clicar no ícone “+” na frente do nome do grupo. No entanto, desta forma, se houver muitos grupos de contatos no campo “Para” e se você quiser expandir todos eles, é um pouco tedioso. Portanto, aqui compartilharemos uma maneira de expandir rapidamente todos os grupos no campo “Para” simplesmente com um clique.

Lote Expandir todos os grupos de contatos no campo "Para"

1. Em primeiro lugar, inicie seu programa Outlook.
2. Em seguida, na janela principal do Outlook, pressione os botões de tecla “Alt + F11”.
3. Em seguida, você entrará na tela do editor VBA, na qual deverá acessar um módulo não utilizado ou simplesmente inserir um novo.
4. Posteriormente, copie o seguinte código VBA para este módulo.

Sub ExpandAllContactGroupsInToField() Dim objMail As Outlook.MailItem Dim objRecipients As Outlook.Recipients Dim bContactGroupFound As Boolean Dim i As Long 'Obter o e-mail atual Set objMail = ActiveInspector.CurrentItem bContactGroupFound = True Do While bContactGroupFound = True Set objRecipients = objMail.Recipients bContact GroupFound = False 'Expandir todos os grupos de contato no campo "Para" For i = objRecipients.Count To 1 Step -1 If objRecipients(i).Type = olTo Then If objRecipients(i).AddressEntry.DisplayType <> olUser Then For n = 1 Para objRecipients(i).AddressEntry.Members.Count Se objRecipients(i).AddressEntry.Members.Item(n).DisplayType = olUser Então objMail.Recipients.Add (objRecipients(i).AddressEntry.Members.Item(n). Address) Else objMail.Recipients.Add (objRecipients(i).AddressEntry.Members.Item(n).Name) bContactGroupFound = True End If Next objRecipients(i).Delete End If End If Next i objRecipients.ResolveAll Loop End Sub

5. Depois disso, você pode sair da janela atual apenas clicando no ícone de cruz no canto superior direito.
6. Mais tarde, você precisa adicionar este projeto VBA à barra de ferramentas de acesso rápido da janela de mensagens.

• Primeiro, crie um novo e-mail.
• Em seguida, clique na seta para baixo no canto superior esquerdo.
• Em seguida, escolha “Mais comandos”.
• Na nova caixa de diálogo, você pode executar as etapas mostradas na imagem abaixo para concluir a adição da macro à Barra de Ferramentas de Acesso Rápido.

7. Finalmente, você pode tirar uma foto:

• Para% start com, crie e escreva um novo e-mail normalmente.
• Em seguida, adicione vários grupos de contatos no campo "Para".
• Depois disso, você pode clicar no botão de macro na Barra de Ferramentas de Acesso Rápido.
• De uma só vez, todos os grupos de contatos serão expandidos, conforme a imagem a seguir:

Resgate seus dados do Outlook em tempo hábil

Geralmente, assim que confrontado com qualquer problema em seu Outlook, a ferramenta de reparo da caixa de entrada ocorrerá em sua mente em primeiro lugar. No entanto, na maioria das vezes, não fará nenhum efeito. Nessas horas, é recomendável recorrer a um utilitário mais potente e confiável, como DataNumen Outlook Repair. Pode corrigir PST arquivo em um instante, independentemente de quão extremamente seu arquivo PST está danificado.

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 recuperar sql e produtos de software de reparo do Outlook. Para mais informações visite www.datanumen.com