2 métodos para exportar todos los miembros de un grupo de contactos de Outlook a Excel

En ocasiones, es posible que desee exportar los miembros de un determinado grupo de contactos de Outlook. Entonces, este artículo le compartirá 2 medios para extraer los miembros del grupo a Excel.

Outlook ofrece una función nativa que le permite exportar todos los contactos de una determinada carpeta de contactos. Sin embargo, no le permite exportar grupos de contactos, sin mencionar la extracción de miembros en los grupos de contactos. Por lo tanto, si desea extraer a los miembros de un grupo de contacto seleccionado, debe hacer algunos esfuerzos más. Aquí hay dos consejos que puede consultar.

Método 1: extraer los miembros del grupo mediante Guardar como

1. Desde el principio, inicie Outlook.
2. Luego busque y seleccione el grupo de contactos cuyos miembros necesita extraer.
3. A continuación, debe ir al menú "Archivo" y hacer clic en "Guardar como".
4. Posteriormente, en el cuadro de diálogo emergente "Guardar como", seleccione una carpeta de destino para guardar y elija "Sólo texto" de la lista desplegable de "Guardar como tipo".
5. Y luego haga clic en "Guardar".
6. Después de eso, abra Excel y cree un nuevo archivo de Excel.
7. Más tarde debería pasar a "Archivo" y hacer clic en el botón "Abrir".
8. En el siguiente cuadro de diálogo "Abrir", primero debe acceder a la carpeta donde guardó el grupo de contactos en este momento.
9. Luego, haga clic en el segundo cuadro en la línea "Nombre de archivo" y seleccione "Todos los archivos" de su lista desplegable.
10. Después de eso, lanza el archivo de texto para el grupo de contactos y presiona "Abrir".
11. En el cuadro de diálogo emergente "Asistente de importación de texto", asegúrese de que esté seleccionado "Delimitado" y haga clic en el botón "Finalizar".
12. Finalmente obtendrá los miembros, como la siguiente captura de pantalla:

Método 2: extraer los miembros del grupo a través de Outlook VBA

1. En primer lugar, presione los botones de tecla "Alt + F11" en Outlook.
2. Luego abra un nuevo módulo en la ventana del editor de VBA.
3. Posteriormente, copie los siguientes códigos VBA en él.

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. Después de eso, puede agregar la macro a la barra de herramientas de acceso rápido (QAT) como de costumbre.
5. Más tarde, puede seleccionar un grupo de contactos y hacer clic en el botón de macro en QAT.
6. Después de exportar, recibirá un mensaje: "¡Exportación completa!"
7. Eventualmente, puede encontrar el archivo de Excel en la carpeta que está predeterminada en los códigos VBA. Ábralo, puede ver los miembros del grupo, como la imagen a continuación:

Recupere sus datos PST anteriores

Como Outlook es susceptible de fallar, sus datos PST pueden corromperse sin ningún presagio. Por lo tanto, debe realizar una copia de seguridad periódica de sus archivos PST. Además, es mejor que prepare una herramienta potente, como DataNumen Outlook Repair, Que puede reparar Outlook datos de forma oportuna.

Introducción del autor:

Shirley Zhang es experta en recuperación de datos en DataNumen, Inc., que es el líder mundial en tecnologías de recuperación de datos, incluyendo arreglar sql y productos de software de reparación de Outlook. Para más información visite www.datanumen.com