2 Metode pentru a exporta toți membrii unui grup de contact Outlook în Excel

Uneori, este posibil să doriți să exportați membrii dintr-un anumit grup de contacte Outlook. Deci, acest articol vă va împărtăși 2 mijloace pentru a extrage membrii grupului în Excel.

Outlook oferă o caracteristică nativă care vă permite să exportați toate contactele dintr-un anumit folder de contacte. Cu toate acestea, nu vă permite să exportați grupuri de contacte, ca să nu mai vorbim de extragerea membrilor din grupurile de contact. Prin urmare, dacă doriți să extrageți membrii unui grup de contact selectat, trebuie să faceți mai multe eforturi. Iată două sfaturi la care te poți referi.

Metoda 1: Extrageți membrii grupului prin Salvare ca

1. De la bun început, lansați Outlook.
2. Apoi găsiți și selectați grupul de contacte ai cărui membri trebuie să îi extrageți.
3. Apoi ar trebui să accesați meniul „Fișier” și să faceți clic pe „Salvare ca”.
4. Ulterior, în fereastra de dialog pop-up „Salvare ca”, selectați un folder de destinație pentru salvare și alegeți „Numai text” din lista derulantă „Salvare ca tip”.
5. Și apoi faceți clic pe „Salvați”.
6. După aceea, deschideți Excel și creați un nou fișier Excel.
7. Mai târziu, ar trebui să accesați „Fișier” și să faceți clic pe butonul „Deschidere”.
8. În caseta de dialog ulterioară „Deschidere”, ar trebui să accesați mai întâi folderul în care ați salvat grupul de contacte chiar acum.
9. Apoi faceți clic pe a doua casetă din linia „Nume fișier” și selectați „Toate fișierele” din lista verticală.
10. După aceea, introduceți fișierul text pentru grupul de contacte și apăsați „Deschide”.
11. În fereastra de dialog pop-up „Expert de importare text”, asigurați-vă că este selectat „Delimitat” și faceți clic pe butonul „Terminare”.
12. În cele din urmă, veți primi membrii, cum ar fi următoarea captură de ecran:

Metoda 2: Extrageți membrii grupului prin Outlook VBA

1. În primul rând, apăsați butoanele tastei „Alt + F11” în Outlook.
2. Apoi deschideți un nou modul în fereastra editorului VBA.
3. Ulterior, copiați următoarele coduri VBA în el.

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. După aceea, puteți adăuga macrocomandă la Bara de instrumente de acces rapid (QAT) ca de obicei.
5. Mai târziu, puteți selecta un grup de contacte și faceți clic pe butonul macro din QAT.
6. După export, veți primi un mesaj – „Export Complete!”
7. În cele din urmă, puteți găsi fișierul Excel în folderul care este predeterminat în codurile VBA. Deschideți-l, puteți vedea membrii grupului, ca în imaginea de mai jos:

Recuperați datele PST anterioare

Deoarece Outlook este susceptibil de a se prăbuși, datele dvs. PST pot fi corupte fără nicio prevestire. Prin urmare, ar trebui să faceți o copie de rezervă regulată a fișierelor dvs. PST. De asemenea, ar fi mai bine să pregătiți un instrument puternic, cum ar fi DataNumen Outlook Repair, care poate repara Outlook date în timp util.

Introducerea autorului:

Shirley Zhang este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv repara sql și produse software de reparații Outlook. Pentru mai multe informații vizitați www.datanumen.com