2 Metode za izvoz svih članova Outlook grupe kontakata u Excel

Ponekad ćete možda poželjeti da izvezete članove određene Outlook grupe kontakata. Dakle, ovaj članak će vam podijeliti 2 načina izdvajanja članova grupe u Excel.

Outlook nudi izvornu funkciju koja vam omogućava da izvezete sve kontakte određene fascikle kontakata. Međutim, ne dozvoljava vam izvoz grupa kontakata, a da ne spominjemo izdvajanje članova u grupama kontakata. Stoga, ako želite izdvojiti članove odabrane kontakt grupe, potrebno je uložiti još napora. Evo dva savjeta na koja se možete obratiti.

Metoda 1: Izdvojite članove grupe putem Save As

1. Na samom početku pokrenite Outlook.
2. Zatim pronađite i odaberite grupu kontakata čije članove trebate izdvojiti.
3. Zatim treba da odete u meni „Datoteka“ i kliknete na „Sačuvaj kao“.
4. Nakon toga, u iskačućem dijaloškom okviru „Sačuvaj kao“, izaberite odredišnu fasciklu koju želite da sačuvate i izaberite „Samo tekst“ sa padajuće liste „Sačuvaj kao tip“.
5. A zatim kliknite na “Sačuvaj”.
6. Nakon toga otvorite Excel i kreirajte novu Excel datoteku.
7. Kasnije treba da se okrenete na “File” i kliknete na dugme “Open”.
8. U sljedećem dijaloškom okviru „Otvori“, prvo treba da pristupite fascikli u koju ste upravo sada sačuvali grupu kontakata.
9. Zatim kliknite na drugi okvir u liniji "Naziv datoteke" i odaberite "Sve datoteke" sa padajuće liste.
10. Nakon toga, postavite tekstualnu datoteku za grupu kontakata i pritisnite “Otvori”.
11. U iskačućem dijaloškom okviru „Čarobnjak za uvoz teksta“, provjerite je li odabrano „Delimited“ i kliknite na dugme „Završi“.
12. Konačno ćete dobiti članove, kao na sljedećem snimku ekrana:

Metoda 2: Izdvojite članove grupe putem Outlook VBA

1. Prvo, pritisnite tipke "Alt + F11" u Outlooku.
2. Zatim otvorite novi modul u prozoru VBA editora.
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 traku s alatima za brzi pristup (QAT) kao i obično.
5. Kasnije možete odabrati grupu kontakata i kliknuti na makro dugme u QAT-u.
6. Nakon izvoza, dobit ćete poruku – „Izvoz je 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 podložan rušenju, vaši PST podaci mogu se oštetiti bez ikakvih znakova. Stoga biste trebali redovno praviti sigurnosnu kopiju svojih PST datoteka. Također, bolje je pripremiti moćno sredstvo, kao što je npr DataNumen Outlook Repair, što može popraviti Outlook podatke na vreme.

Uvod za autora:

Shirley Zhang je stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući popraviti sql i Outlook softverski proizvodi za popravku. Za više informacija posjetite www.datanumen.com