2 metode za izvoz svih članova grupe kontakata programa Outlook u Excel

Ponekad ćete možda htjeti izvesti članove u određenoj Outlook grupi kontakata. Stoga će vam ovaj članak podijeliti 2 načina za izdvajanje članova grupe u Excel.

Outlook nudi izvornu značajku koja vam omogućuje izvoz svih kontakata određene mape kontakata. Međutim, ne dopušta izvoz grupa kontakata, a da ne spominjemo izdvajanje članova u grupama kontakata. Stoga, ako želite izdvojiti članove odabrane grupe kontakata, morate se malo više potruditi. Evo dva savjeta na koja se možete osloniti.

Metoda 1: Izdvojite članove grupe putem Spremi kao

1. Na samom početku pokrenite Outlook.
2. Zatim pronađite i odaberite grupu kontakata čije članove trebate izdvojiti.
3. Zatim biste trebali otići na izbornik "Datoteka" i kliknuti "Spremi kao".
4. Nakon toga, u skočnom dijaloškom okviru "Spremi kao", odaberite odredišnu mapu za spremanje i odaberite "Samo tekst" s padajućeg popisa "Spremi kao vrstu".
5. Zatim kliknite "Spremi".
6. Nakon toga otvorite Excel i izradite novu excel datoteku.
7. Kasnije biste trebali otvoriti "Datoteka" i kliknuti gumb "Otvori".
8. U sljedećem dijaloškom okviru "Otvori" prvo biste trebali pristupiti mapi u koju ste upravo spremili grupu kontakata.
9. Zatim kliknite drugi okvir u retku "Naziv datoteke" i odaberite "Sve datoteke" s padajućeg popisa.
10. Nakon toga, predstavite tekstualnu datoteku za grupu kontakata i pritisnite "Otvori".
11. U skočnom dijaloškom okviru "Čarobnjak za uvoz teksta" provjerite je li odabrano "Razgraničeno" i kliknite gumb "Završi".
12. Konačno ćete dobiti članove, kao na sljedećoj snimci zaslona:

Metoda 2: Izdvojite članove grupe putem programa Outlook VBA

1. Na prvom mjestu pritisnite tipke "Alt + F11" u programu Outlook.
2. Zatim otvorite novi modul u prozoru uređivača VBA.
3. Nakon toga kopirajte sljedeće VBA kodove u njega.

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. Nakon toga možete dodati makro na alatnu traku za brzi pristup (QAT) kao i obično.
5. Kasnije možete odabrati grupu kontakata i kliknuti gumb makronaredbe u QAT-u.
6. Nakon izvoza, dobit ćete poruku - "Izvoz završen!"
7. Na kraju možete pronaći Excel datoteku u mapi koja je unaprijed određena u VBA kodovima. Otvorite ga, možete vidjeti članove grupe, kao na slici ispod:

Vratite svoje prethodne PST podatke

Budući da je Outlook osjetljiv na pad, vaši PST podaci mogu se oštetiti bez ikakvih znakova. Stoga biste trebali redovito izraditi sigurnosnu kopiju svojih PST datoteka. Također, bolje pripremite moćan alat, kao što je DataNumen Outlook Repair, koji može popraviti Outlook podatke na vrijeme.

Uvod za autora:

Shirley Zhang stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući popraviti sql i softverske proizvode za popravak Outlooka. Za više informacija posjetite www.datanumen.com