2 Methoden om alle leden van een Outlook-contactgroep naar Excel te exporteren

Soms wilt u misschien de leden in een bepaalde Outlook-contactgroep exporteren. Dus dit artikel deelt je 2 manieren om de groepsleden naar Excel te extraheren.

Outlook biedt een native functie waarmee u alle contacten van een bepaalde contactmap kunt exporteren. Het staat je echter niet toe om contactgroepen te exporteren, om nog maar te zwijgen van het extraheren van de leden in de contactgroepen. Daarom, als u de leden van een geselecteerde contactgroep wilt extraheren, moet u wat meer moeite doen. Hier zijn twee tips waar u naar kunt verwijzen.

Methode 1: Extraheer de groepsleden via Opslaan als

1. Start Outlook vanaf het begin.
2. Zoek en selecteer vervolgens de contactgroep waarvan u de leden wilt extraheren.
3. Ga vervolgens naar het menu "Bestand" en klik op "Opslaan als".
4. Selecteer vervolgens in het pop-upvenster "Opslaan als" een doelmap om op te slaan en kies "Alleen tekst" in de vervolgkeuzelijst van "Opslaan als type".
5. En klik vervolgens op "Opslaan".
6. Open daarna Excel en maak een nieuw Excel-bestand aan.
7. Later moet u naar "Bestand" gaan en op de knop "Openen" klikken.
8. In het daaropvolgende dialoogvenster "Openen" moet u eerst de map openen waarin u de contactgroep zojuist hebt opgeslagen.
9. Klik vervolgens op het tweede vak in de regel "Bestandsnaam" en selecteer "Alle bestanden" in de vervolgkeuzelijst.
10. Pitch daarna op het tekstbestand voor de contactgroep en klik op "Openen".
11. Zorg ervoor dat in het pop-upvenster "Tekstimportwizard" de optie "Gescheiden" is geselecteerd en klik op de knop "Voltooien".
12. Eindelijk krijg je de leden, zoals de volgende screenshot:

Methode 2: Extraheer de groepsleden via Outlook VBA

1. Druk in de eerste plaats op de toetsen "Alt + F11" in Outlook.
2. Open vervolgens een nieuwe module in het VBA-editorvenster.
3. Kopieer vervolgens de volgende VBA-codes erin.

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. Daarna kunt u zoals gewoonlijk de macro toevoegen aan de Quick Access Toolbar (QAT).
5. Later kunt u een contactgroep selecteren en op de macroknop in QAT klikken.
6. Na het exporteren ontvangt u een bericht - "Export voltooid!"
7. Uiteindelijk kunt u het Excel-bestand vinden in de map die vooraf is bepaald in VBA-codes. Open het, je kunt de groepsleden zien, zoals de afbeelding hieronder:

Krijg uw eerdere PST-gegevens terug

Omdat Outlook crasht, kunnen uw PST-gegevens zonder voortekenen beschadigd raken. Maak daarom regelmatig een back-up van uw PST-bestanden. Je kunt ook beter een krachtige tool voorbereiden, zoals DataNumen Outlook Repair, welke kan reparatie Outlook gegevens op tijd.

Auteur Introductie:

Shirley Zhang is een expert op het gebied van gegevensherstel in DataNumen, Inc., de wereldleider in technologieën voor gegevensherstel, waaronder SQL repareren en Outlook-reparatiesoftwareproducten. Voor meer informatie bezoek www.datanumen.com