2 Metody eksportowania wszystkich członków grupy kontaktów programu Outlook do programu Excel

Czasami możesz chcieć wyeksportować członków z określonej grupy kontaktów programu Outlook. W tym artykule udostępnimy Ci 2 sposoby wyodrębnienia członków grupy do programu Excel.

Outlook oferuje natywną funkcję, która pozwala wyeksportować wszystkie kontakty z określonego folderu kontaktów. Nie pozwala jednak na eksportowanie grup kontaktów, nie wspominając o wyodrębnianiu członków z grup kontaktów. Dlatego jeśli chcesz wyodrębnić członków wybranej grupy kontaktów, musisz poczynić więcej wysiłku. Oto dwie wskazówki, do których możesz się odnieść.

Metoda 1: Wyodrębnij członków grupy za pomocą opcji Zapisz jako

1. Na samym początku uruchom Outlooka.
2. Następnie znajdź i wybierz grupę kontaktów, której członków chcesz wyodrębnić.
3. Następnie należy przejść do menu „Plik” i kliknąć „Zapisz jako”.
4. Następnie w wyskakującym oknie dialogowym „Zapisz jako” wybierz folder docelowy do zapisania i wybierz „Tylko tekst” z rozwijanej listy „Zapisz jako typ”.
5. Następnie kliknij „Zapisz”.
6. Następnie otwórz Excel i utwórz nowy plik Excela.
7. Później należy przejść do „Plik” i kliknąć przycisk „Otwórz”.
8. W kolejnym oknie dialogowym „Otwórz” należy najpierw uzyskać dostęp do folderu, w którym przed chwilą zapisano grupę kontaktów.
9. Następnie kliknij drugie pole w wierszu „Nazwa pliku” i wybierz „Wszystkie pliki” z rozwijanej listy.
10. Następnie przejdź do pliku tekstowego grupy kontaktów i naciśnij „Otwórz”.
11. W wyskakującym oknie dialogowym „Kreator importu tekstu” upewnij się, że wybrana jest opcja „Rozdzielany” i kliknij przycisk „Zakończ”.
12. Wreszcie otrzymasz członków, jak na poniższym zrzucie ekranu:

Metoda 2: Wyodrębnij członków grupy za pomocą programu Outlook VBA

1. W pierwszej kolejności naciśnij klawisze „Alt + F11” w Outlooku.
2. Następnie otwórz nowy moduł w oknie edytora VBA.
3. Następnie skopiuj do niego następujące kody VBA.

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. Następnie możesz jak zwykle dodać makro do paska narzędzi szybkiego dostępu (QAT).
5. Później możesz wybrać grupę kontaktów i kliknąć przycisk makra w QAT.
6. Po wyeksportowaniu otrzymasz komunikat - „Eksport zakończony!”
7. Ostatecznie możesz znaleźć plik Excela w folderze, który jest z góry określony w kodach VBA. Otwórz go, możesz zobaczyć członków grupy, jak na poniższym obrazku:

Odzyskaj swoje poprzednie dane PST

Ponieważ program Outlook jest podatny na awarie, dane PST mogą zostać uszkodzone bez żadnych znaków. Dlatego należy regularnie tworzyć kopie zapasowe plików PST. Ponadto lepiej przygotować potężne narzędzie, takie jak DataNumen Outlook Repair, Który może napraw Outlooka dane na bieżąco.

Wprowadzenie autora:

Shirley Zhang jest ekspertem w dziedzinie odzyskiwania danych w DataNumen, Inc., która jest światowym liderem w technologiach odzyskiwania danych, w tym naprawić sql i oprogramowanie do naprawy programu Outlook. po więcej informacji odwiedź www.datanumen.com