2 métodos para copiar todos os membros de um grupo de contatos para outro no Outlook

Este artigo apresentará 2 abordagens para copiar todos os membros de um grupo de contato para outro. Você pode escolher de acordo com suas necessidades.

Muitos usuários esperam que o Outlook possa fornecer um meio rápido de copiar os membros de um grupo de contatos para outro. Isso pode ajudá-los a escapar do problema de adicionar membros um a um manualmente. Agora, a seguir, vamos compartilhar 2 maneiras. A primeira é uma solução alternativa, usando o recurso nativo do Outlook. E o último é muito mais inteligente devido ao uso do código VBA.

Método 1: copiar e colar membros manualmente

1. Primeiramente, inicie o programa Outlook.
2. Em seguida, você pode acessar a área de Contatos, na qual você precisa localizar e lançar em um grupo de contato específico.
3. Em seguida, você pode clicar no botão “E-mail” no grupo “Communicate” na guia “Home”.
4. Depois disso, um novo e-mail será exibido, no qual você precisa clicar no ícone “+” na frente do grupo no campo “Para” para expandir o grupo.
5. Posteriormente, copie os endereços de e-mail de todos os membros depois de expandir no campo "Para".
6. Em seguida, retorne à pasta Contatos, localize e abra o grupo de contatos para o qual deseja copiar os membros.
7. Na janela do Grupo de Contatos de destino, clique em “Adicionar membros” > “Da Agenda de Endereços”.
8. Em seguida, na caixa de diálogo pop-up, pressione “Ctrl + V” para colar os membros copiados no campo “Membros->”.
9. Por fim, clique em “OK” e no botão “Salvar e fechar” para salvar as alterações.

Método 2: Copiar membros de um grupo de contato para outro via VBA

1. Primeiro, na janela principal do Outlook, pressione os botões de tecla “Alt + F11”.
2. Na janela subsequente “Microsoft Visual Basic for Applications”, copie o seguinte código VBA para um módulo não utilizado.

Sub CopyMembersFromOneContactGroupToAnother()
    Dim objSourceGroup As DistListItem
    Dim strTargetGroupName As String
    Dim objCurrentContactsFolder, objDefaultContactsFolder As Folder
    Dim objTargetGroup As DistListItem
    Dim objGroupMember As recipient
 
    Select Case Application.ActiveWindow.Class
           Case olInspector
                Set objSourceGroup = ActiveInspector.CurrentItem
           Case olExplorer
                Set objSourceGroup = ActiveExplorer.Selection.Item(1)
    End Select
 
    If objSourceGroup.MemberCount > 0 Then
 
       strTargetGroupName = InputBox("Enter the target contact group name:", "Specify Target Contact Group")
 
       Set objCurrentContactsFolder = objSourceGroup.parent
       Set objTargetGroup = objCurrentContactsFolder.Items.Find("[Subject]= " & Chr(34) & strTargetGroupName & Chr(34))
 
       If Not objTargetGroup Is Nothing Then
          For i = objSourceGroup.MemberCount To 1 Step -1
              Set objGroupMember = objSourceGroup.GetMember(i)
              objTargetGroup.AddMember objGroupMember
          Next i
          objTargetGroup.Save
          MsgBox "Copy Successfully!", vbInformation
      Else
          Set objDefaultContactsFolder = Application.Session.GetDefaultFolder(olFolderContacts)
          Set objTargetGroup = objDefaultContactsFolder.Items.Find("[Subject]= " & Chr(34) & strTargetGroupName & Chr(34))
 
          If Not objTargetGroup Is Nothing Then
             For i = objSourceGroup.MemberCount To 1 Step -1
                 Set objGroupMember = objSourceGroup.GetMember(i)
                 objTargetGroup.AddMember objGroupMember
             Next i
             objTargetGroup.Save
             MsgBox "Copy Successfully!", vbInformation
         Else
             MsgBox "There is not a contact group named as" & Chr(34) & strTargetGroupName & Chr(34) & "!", vbExclamation
         End If
      End If
    End If
End Sub

3. Em seguida, você pode adicionar esta macro à Barra de Ferramentas de Acesso Rápido como de costume.
4. Finalmente, você pode tentar.

• Para começar, selecione ou abra um grupo de contatos de origem.
• Em seguida, clique no botão de macro na Barra de Ferramentas de Acesso Rápido.
• Mais tarde, você será solicitado a inserir o nome do grupo de contatos de destino.
• Em seguida, pressione “OK”. Imediatamente, o Outlook encontrará o grupo de contatos de destino e copiará os membros do grupo de origem para ele.

Resgatar arquivos danificados do Outlook

O Outlook é suscetível a vários fatores maliciosos, incluindo queda de energia, infecção por vírus e assim por diante. Para se proteger contra corrupções indesejadas, não temos escolha a não ser fazer um backup regular do Outlook. Além disso, é aconselhável instalar uma ferramenta de reparo de PST potente, como DataNumen Outlook Repair. Ele pode escanear e reparar PST arquivo em uma alta taxa de recuperação.

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