2 méthodes pour exporter tous les membres d'un groupe de contacts Outlook vers Excel

Parfois, vous souhaiterez peut-être exporter les membres d'un certain groupe de contacts Outlook. Cet article va donc vous partager 2 moyens pour extraire les membres du groupe vers Excel.

Outlook propose une fonctionnalité native qui vous permet d'exporter tous les contacts d'un certain dossier de contacts. Cependant, il ne vous permet pas d'exporter des groupes de contacts, sans parler d'extraire les membres des groupes de contacts. Par conséquent, si vous souhaitez extraire les membres d'un groupe de contacts sélectionné, vous devez faire plus d'efforts. Voici deux conseils auxquels vous pouvez vous référer.

Méthode 1 : Extrayez les membres du groupe via Enregistrer sous

1. Au tout début, lancez Outlook.
2. Ensuite, recherchez et sélectionnez le groupe de contacts dont vous devez extraire les membres.
3. Ensuite, vous devez aller dans le menu "Fichier" et cliquer sur "Enregistrer sous".
4. Ensuite, dans la boîte de dialogue contextuelle "Enregistrer sous", sélectionnez un dossier de destination à enregistrer et choisissez "Texte uniquement" dans la liste déroulante "Enregistrer sous le type".
5. Et puis cliquez sur "Enregistrer".
6. Après cela, ouvrez Excel et créez un nouveau fichier Excel.
7. Plus tard, vous devez vous tourner vers "Fichier" et cliquer sur le bouton "Ouvrir".
8. Dans la boîte de dialogue "Ouvrir" suivante, vous devez d'abord accéder au dossier dans lequel vous venez d'enregistrer le groupe de contacts.
9. Cliquez ensuite sur la deuxième case dans la ligne "Nom de fichier" et sélectionnez "Tous les fichiers" dans sa liste déroulante.
10. Après cela, lancez le fichier texte du groupe de contacts et appuyez sur "Ouvrir".
11. Dans la boîte de dialogue contextuelle "Assistant d'importation de texte", assurez-vous que "Délimité" est sélectionné et cliquez sur le bouton "Terminer".
12. Enfin, vous obtiendrez les membres, comme la capture d'écran suivante :

Méthode 2 : Extraire les membres du groupe via Outlook VBA

1. En premier lieu, appuyez sur les touches "Alt + F11" dans Outlook.
2. Ouvrez ensuite un nouveau module dans la fenêtre de l'éditeur VBA.
3. Ensuite, copiez-y les codes VBA suivants.

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. Après cela, vous pouvez ajouter la macro à la barre d'outils d'accès rapide (QAT) comme d'habitude.
5. Plus tard, vous pouvez sélectionner un groupe de contacts et cliquer sur le bouton macro dans QAT.
6. Après l'exportation, vous recevrez un message - "Exportation terminée!"
7. Finalement, vous pouvez trouver le fichier Excel dans le dossier qui est prédéterminé dans les codes VBA. Ouvrez-le, vous pouvez voir les membres du groupe, comme l'image ci-dessous :

Récupérez vos données PST précédentes

Comme Outlook est susceptible de planter, vos données PST peuvent être corrompues sans aucun présage. Par conséquent, vous devez effectuer une sauvegarde régulière de vos fichiers PST. En outre, vous feriez mieux de préparer un outil puissant, tel que DataNumen Outlook Repair, Qui peut réparer Outlook données en temps opportun.

Introduction de l'auteur:

Shirley Zhang est une experte en récupération de données dans DataNumen, Inc., qui est le leader mondial des technologies de récupération de données, y compris réparer sql et produits logiciels de réparation Outlook. Pour plus d'informations, visitez www.datanumen.com