2 метода за експортиране на всички членове на група контакти на Outlook в Excel

Понякога може да искате да експортирате членовете в определена група контакти на Outlook. Така че тази статия ще ви сподели 2 начина за извличане на членовете на групата в Excel.

Outlook предлага собствена функция, която ви позволява да експортирате всички контакти от определена папка с контакти. Той обаче не ви позволява да експортирате групи с контакти, да не говорим за извличане на членовете в групите с контакти. Следователно, ако искате да извлечете членовете на избрана група с контакти, трябва да положите още малко усилия. Ето два съвета, на които можете да се обърнете.

Метод 1: Извличане на членовете на групата чрез Запазване като

1. В самото начало стартирайте Outlook.
2. След това намерете и изберете групата с контакти, чиито членове трябва да извлечете.
3. След това трябва да отидете в менюто „Файл“ и да щракнете върху „Запазване като“.
4. След това в изскачащия диалогов прозорец „Запазване като“ изберете целева папка за запазване и изберете „Само текст“ от падащия списък на „Запазване като тип“.
5. След това щракнете върху „Запазване“.
6. След това отворете Excel и създайте нов excel файл.
7. По-късно трябва да отидете на „Файл“ и да щракнете върху бутона „Отвори“.
8. В следващия диалогов прозорец „Отваряне“ първо трябва да получите достъп до папката, в която току-що сте запазили групата с контакти.
9. След това щракнете върху второто поле в реда „Име на файл“ и изберете „Всички файлове“ от падащия списък.
10. След това насочете текстовия файл за групата с контакти и натиснете „Отвори“.
11. В изскачащия диалогов прозорец „Съветник за импортиране на текст“ се уверете, че е избрано „Разграничено“ и щракнете върху бутона „Край“.
12. Накрая ще получите членовете, като следната екранна снимка:

Метод 2: Извличане на членовете на групата чрез Outlook VBA

1. На първо място, натиснете бутоните „Alt + F11“ в Outlook.
2. След това отворете нов модул в прозореца на редактора на VBA.
3. След това копирайте следните 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. След това можете да добавите макроса към лентата с инструменти за бърз достъп (QAT), както обикновено.
5. По-късно можете да изберете група контакти и да щракнете върху бутона за макроси в QAT.
6. След експортиране ще получите съобщение – „Експортирането е завършено!“
7. В крайна сметка можете да намерите файла на Excel в папката, която е предварително определена в кодовете на VBA. Отворете го, можете да видите членовете на групата, като изображението по-долу:

Върнете своите предишни PST данни

Тъй като Outlook е податлив на срив, вашите PST данни могат да се повредят без никакви признаци. Следователно трябва да правите редовно архивиране на вашите PST файлове. Освен това е по-добре да подготвите мощен инструмент, като напр DataNumen Outlook Repair, който може ремонт на Outlook данни навреме.

Въведение на автора:

Шърли Джанг е експерт по възстановяване на данни в DataNumen, Inc., която е световен лидер в технологиите за възстановяване на данни, включително поправям sql и outlook софтуерни продукти за ремонт. За повече информация посетете WWW.datanumen.com