2 Metódy exportu všetkých členov skupiny kontaktov programu Outlook do programu Excel

Niekedy môžete exportovať členov do určitej skupiny kontaktov programu Outlook. Tento článok vás teda bude zdieľať 2 prostriedky na extrahovanie členov skupiny do programu Excel.

Outlook ponúka natívnu funkciu, ktorá vám umožňuje exportovať všetky kontakty z určitého priečinka kontaktov. Neumožňuje vám však exportovať skupiny kontaktov, nehovoriac o extrahovaní členov v skupinách kontaktov. Preto, ak chcete získať členov vybranej kontaktnej skupiny, musíte vyvinúť ďalšie úsilie. Tu sú dva tipy, na ktoré sa môžete obrátiť.

Metóda 1: Extrahujte členov skupiny pomocou príkazu Uložiť ako

1. Hneď na začiatku spustite program Outlook.
2. Potom vyhľadajte a vyberte skupinu kontaktov, ktorej členov potrebujete extrahovať.
3. Ďalej by ste mali ísť do ponuky „Súbor“ a kliknúť na „Uložiť ako“.
4. Následne v rozbaľovacom dialógovom okne „Uložiť ako“ vyberte cieľový priečinok, ktorý chcete uložiť, a v rozbaľovacom zozname „Uložiť ako typ“ vyberte možnosť „Iba text“.
5. A potom kliknite na „Uložiť“.
6. Potom otvorte program Excel a vytvorte nový súbor programu Excel.
7. Neskôr by ste sa mali obrátiť na „Súbor“ a kliknúť na tlačidlo „Otvoriť“.
8. V nasledujúcom dialógovom okne „Otvoriť“ by ste mali najskôr prejsť do priečinka, do ktorého ste práve uložili skupinu kontaktov.
9. Potom kliknite na druhé políčko v riadku „Názov súboru“ a v rozbaľovacom zozname vyberte možnosť „Všetky súbory“.
10. Potom položte textový súbor pre skupinu kontaktov a stlačte „Otvoriť“.
11. V rozbaľovacom dialógovom okne Sprievodca importom textu skontrolujte, či je vybratá položka „Oddelené“, a kliknite na tlačidlo „Dokončiť“.
12. Nakoniec získate členov, napríklad nasledovný obrázok obrazovky:

Metóda 2: Extrahujte členov skupiny pomocou Outlooku VBA

1. Na prvom mieste stlačte v aplikácii Outlook klávesové skratky „Alt + F11“.
2. Potom otvorte nový modul v okne editora VBA.
3. Následne do nej skopírujte nasledujúce kódy 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. Potom môžete ako obvykle pridať makro na Panel s nástrojmi Rýchly prístup (QAT).
5. Neskôr môžete vybrať skupinu kontaktov a kliknúť na tlačidlo makra v QAT.
6. Po exportovaní dostanete správu - „Export je dokončený!“
7. Nakoniec môžete nájsť súbor Excel v priečinku, ktorý je vopred určený v kódoch VBA. Otvorte ho a uvidíte členov skupiny, ako je napríklad obrázok nižšie:

Získajte späť svoje predchádzajúce údaje PST

Pretože je Outlook náchylný na zlyhanie, môžu sa vaše údaje PST poškodiť bez akýchkoľvek znamení. Preto by ste si mali pravidelne zálohovať svoje súbory PST. Tiež by ste si mali lepšie pripraviť silný nástroj, ako napr DataNumen Outlook Repair, ktorý môže opraviť Outlook údaje včas.

Úvod autora:

Shirley Zhang je expertkou na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane opraviť sql a výhľadové softvérové ​​produkty na opravu. Pre viac informácií navštívte www.datanumen. S