2 métodos para exportar todos os membros de um grupo de contatos do Outlook para o Excel

Às vezes, você pode querer exportar os membros de um determinado grupo de contatos do Outlook. Portanto, este artigo irá compartilhar 2 meios de extrair os membros do grupo para o Excel.

O Outlook oferece um recurso nativo que permite exportar todos os contatos de uma determinada pasta de contatos. Porém, não permite exportar grupos de contatos, muito menos extrair os membros dos grupos de contatos. Portanto, se desejar extrair os membros de um grupo de contato selecionado, você precisará fazer mais alguns esforços. Aqui estão duas dicas que você pode consultar.

Método 1: extrair os membros do grupo salvando como

1. No início, inicie o Outlook.
2. Em seguida, encontre e selecione o grupo de contatos cujos membros você precisa extrair.
3. Em seguida você deve ir ao menu “Arquivo” e clicar em “Salvar como”.
4. Posteriormente, na caixa de diálogo pop-up “Salvar como”, selecione uma pasta de destino para salvar e escolha “Somente texto” na lista suspensa de “Salvar como tipo”.
5. E então clique em “Salvar”.
6. Depois disso, abra o Excel e crie um novo arquivo Excel.
7. Mais tarde você deve ir para “Arquivo” e clicar no botão “Abrir”.
8. Na caixa de diálogo “Abrir” subsequente, você deve primeiro acessar a pasta onde salvou o grupo de contatos agora há pouco.
9. Em seguida, clique na segunda caixa na linha “Nome do arquivo” e selecione “Todos os arquivos” na lista suspensa.
10. Depois disso, insira o arquivo de texto do grupo de contato e clique em “Abrir”.
11. Na caixa de diálogo pop-up “Assistente de importação de texto”, certifique-se de que “Delimitado” esteja selecionado e clique no botão “Concluir”.
12. Finalmente você obterá os membros, como na imagem a seguir:

Método 2: extrair os membros do grupo via Outlook VBA

1. Em primeiro lugar, pressione os botões de tecla “Alt + F11” no Outlook.
2. Em seguida, abra um novo módulo na janela do editor VBA.
3. Posteriormente, copie os seguintes códigos VBA para ele.

Sub ExtractContactGroupMembersToExcel()
    Dim objContactGroup As Outlook.DistListItem
    Dim objMember As Outlook.recipient
    Dim objExcelApp As Excel.Application
    Dim objExcelWorkBook As Excel.Workbook
    Dim objExcelWorkSheet As Excel.Worksheet
    Dim i As Integer
    Dim nRow As Integer
    Dim strPath As String
    Dim strFilename As String
 
    Select Case Application.ActiveWindow.Class
           Case olExplorer
                Set objContactGroup = Application.ActiveExplorer.Selection(1)
           Case olInspector
                Set objContactGroup = Application.ActiveInspector.CurrentItem
    End Select
 
    If TypeOf objContactGroup Is DistListItem Then
       'Create a new Excel workbook
       Set objExcelApp = CreateObject("Excel.Application")
       Set objExcelWorkBook = objExcelApp.Workbooks.Add
       Set objExcelWorkSheet = objExcelWorkBook.Worksheets(1)
 
       'Set the two column headers
       objExcelWorkSheet.Cells(1, 1) = "Contact Name"
       objExcelWorkSheet.Cells(1, 2) = "Email Address"

       nRow = 2
 
       'Extract the contact group members' names and email addresses
       For i = 1 To objContactGroup.MemberCount
           Set objMember = objContactGroup.GetMember(i)
           objExcelWorkSheet.Cells(nRow, 1) = objMember.Name
           objExcelWorkSheet.Cells(nRow, 2) = objMember.Address
           nRow = nRow + 1
       Next
 
       'AutoFit the columns in the new Excel worksheet
       objExcelWorkSheet.Columns("A:B").AutoFit
 
       'Change the strPath to your actual case
       strPath = "C:\Contact Groups\"
       strFilename = strPath & objContactGroup.DLName & ".xlsx"
 
       'Save the Excel workbook
       objExcelWorkBook.Close True, strFilename
 
       'Notify you of the export complete
       MsgBox ("Export Complete!")
    End If
End Sub

4. Depois disso, você pode adicionar a macro à Barra de Ferramentas de Acesso Rápido (QAT) normalmente.
5. Posteriormente, você pode selecionar um grupo de contatos e clicar no botão macro no QAT.
6. Após a exportação, você receberá uma mensagem – “Exportação concluída!”
7. Eventualmente, você pode encontrar o arquivo Excel na pasta que está pré-determinada nos códigos VBA. Abra-o, você poderá ver os membros do grupo, como na imagem abaixo:

Recupere seus dados PST anteriores

Como o Outlook é suscetível a falhas, seus dados PST podem ser corrompidos sem qualquer presságio. Portanto, você deve fazer backups regulares dos seus arquivos PST. Além disso, é melhor você preparar uma ferramenta potente, como DataNumen Outlook Repair, Que pode reparar o Outlook dados em tempo hábil.

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