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" de uma só vez ao compor um e-mail no Outlook. Portanto, neste post, compartilharemos uma solução desse tipo.

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
 
    'Get the current mail
    Set objMail = ActiveInspector.CurrentItem
    bContactGroupFound = True
 
    Do While bContactGroupFound = True
       Set objRecipients = objMail.Recipients
       bContactGroupFound = False
 
       'Expand all contact groups in "To" field
       For i = objRecipients.Count To 1 Step -1
           If objRecipients(i).Type = olTo Then
              If objRecipients(i).AddressEntry.DisplayType <> olUser Then
                 For n = 1 To objRecipients(i).AddressEntry.Members.Count
                     If objRecipients(i).AddressEntry.Members.Item(n).DisplayType = olUser Then
                        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 começar, crie e redija 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